|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: 5 A B C D E F H I K L M O P R S T U V
Length: 327680 (0x50000)
Description: Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
Types: 5¼" Floppy Disk, ImdContainer
| basis | type | name | artifact |
|---|---|---|---|
| 10 | K | AFBET_RE | ⟦55c4deae2⟧ Mikados TextFile, Mikados_K |
| 10 | K | AFSTAND | ⟦1ffd9f40e⟧ Mikados TextFile, Mikados_K |
| 5 | K | ANDENGR1 | ⟦ad870979f⟧ Mikados TextFile, Mikados_K |
| 6 | K | ANDENGR2 | ⟦c92396c22⟧ Mikados TextFile, Mikados_K |
| 1 | K | ANTILOG | ⟦703bad56d⟧ Mikados TextFile, Mikados_K |
| 5 | K | BIBLIOTE | ⟦ae17e4393⟧ Mikados TextFile, Mikados_K |
| 5 | K | BINÆR_2 | ⟦a3a2e6db3⟧ Mikados TextFile, Mikados_K |
| 10 | K | BISECTIO | ⟦94b27b649⟧ Mikados TextFile, Mikados_K |
| 3 | K | CIRKEL | ⟦573ce99fb⟧ Mikados TextFile, Mikados_K |
| 4 | K | COS_RELA | ⟦8367a29aa⟧ Mikados TextFile, Mikados_K |
| 10 | K | DEMOFIL | ⟦870a59638⟧ Mikados TextFile, Mikados_K |
| 10 | K | DEMOSEKV | ⟦6c944eab7⟧ Mikados TextFile, Mikados_K |
| 10 | K | DEMO_4 | ⟦ad7babc6d⟧ Mikados TextFile, Mikados_K |
| 2 | K | DIVISORE | ⟦a3bf3bdd9⟧ Mikados TextFile, Mikados_K |
| 3 | K | EKSMD1 | ⟦be3a9267f⟧ Mikados TextFile, Mikados_K |
| 10 | K | ETOILES | ⟦70a9d2999⟧ Mikados TextFile, Mikados_K |
| 7 | K | EXAMEN | ⟦794ba7460⟧ Mikados TextFile, Mikados_K |
| 10 | K | FLETNING | ⟦60d2f495d⟧ Mikados TextFile, Mikados_K |
| 10 | K | FORKORT | ⟦3156ea4fd⟧ Mikados TextFile, Mikados_K |
| 10 | K | FREKVENS | ⟦5473f8ea2⟧ Mikados TextFile, Mikados_K |
| 6 | K | FUNC_HER | ⟦b5ff53ca7⟧ Mikados TextFile, Mikados_K |
| 10 | K | FÆLLESDI | ⟦813c35866⟧ Mikados TextFile, Mikados_K |
| 8 | K | HERON3 | ⟦48a5cfe45⟧ Mikados TextFile, Mikados_K |
| 3 | K | HUNDREDE | ⟦cc6d849a9⟧ Mikados TextFile, Mikados_K |
| 10 | K | INFO | ⟦a994d5c25⟧ Mikados TextFile, Mikados_K |
| 10 | K | INFOTXT | ⟦50e1f6dad⟧ Mikados TextFile, Mikados_K |
| 10 | K | ISENKRAM | ⟦105f4a012⟧ Mikados TextFile, Mikados_K |
| 10 | K | KARTOTEK | ⟦5b3548471⟧ Mikados TextFile, Mikados_K |
| 10 | K | KOPI | ⟦870a59638⟧ Mikados TextFile, Mikados_K |
| 10 | K | KOPIDIR | ⟦69c26dfa2⟧ Mikados TextFile, Mikados_K |
| 10 | K | KORRELAT | ⟦f81dc5aae⟧ Mikados TextFile, Mikados_K |
| 10 | K | LAGER | ⟦363511fdf⟧ Mikados TextFile, Mikados_K |
| 3 | K | LIGE_ULI | ⟦a1125fcad⟧ Mikados TextFile, Mikados_K |
| 1 | K | LOWSCORE | ⟦2153aac58⟧ Mikados TextFile, Mikados_K |
| 10 | K | LØNSEDDE | ⟦b07a88587⟧ Mikados TextFile, Mikados_K |
| 3 | K | MAX | ⟦cf5e18c7d⟧ Mikados TextFile, Mikados_K |
| 4 | K | MAX_MIN | ⟦b2a567aab⟧ Mikados TextFile, Mikados_K |
| 10 | K | OVERFL1 | ⟦27caa7cc1⟧ Mikados TextFile, Mikados_K |
| 10 | K | OVERFL2 | ⟦dcef3666b⟧ Mikados TextFile, Mikados_K |
| 3 | K | OVERFLAD | ⟦775114d95⟧ Mikados TextFile, Mikados_K |
| 5 | K | PAKKEPOS | ⟦24846cd4b⟧ Mikados TextFile, Mikados_K |
| 10 | K | PANTEBRE | ⟦a0f366185⟧ Mikados TextFile, Mikados_K |
| 10 | K | PERSONNU | ⟦47a614923⟧ Mikados TextFile, Mikados_K |
| 4 | K | POSTTAK2 | ⟦0f641f472⟧ Mikados TextFile, Mikados_K |
| 2 | K | RAMME | ⟦d1c075d08⟧ Mikados TextFile, Mikados_K |
| 10 | K | REJSEB2 | ⟦80a9e485a⟧ Mikados TextFile, Mikados_K |
| 10 | K | REJSEBUR | ⟦5e6a6056a⟧ Mikados TextFile, Mikados_K |
| 4 | K | RENTE | ⟦5f1914ce3⟧ Mikados TextFile, Mikados_K |
| 3 | K | RENTEFOD | ⟦af0337dfd⟧ Mikados TextFile, Mikados_K |
| 8 | K | RETTEFIL | ⟦1fc02a82c⟧ Mikados TextFile, Mikados_K |
| 10 | K | RUMFANG3 | ⟦36882fb66⟧ Mikados TextFile, Mikados_K |
| 10 | K | SCORE | ⟦23bef8893⟧ Mikados TextFile, Mikados_K |
| 1 | K | SFD | ⟦0e065201d⟧ Mikados TextFile, Mikados_K |
| 10 | K | SPARTXT | ⟦8ff75b693⟧ Mikados TextFile, Mikados_K |
| 8 | K | SPIL1_KO | ⟦f7657c342⟧ Mikados TextFile, Mikados_K |
| 10 | K | STJERN2 | ⟦77a3aa57d⟧ Mikados TextFile, Mikados_K |
| 10 | K | STJERNER | ⟦04e94a683⟧ Mikados TextFile, Mikados_K |
| 10 | K | STOPUR | ⟦28140fc26⟧ Mikados TextFile, Mikados_K |
| 10 | K | STYRTLØB | ⟦45f6b256f⟧ Mikados TextFile, Mikados_K |
| 27 | K | SYSBÅND | ⟦4a4f5bfed⟧ Mikados TextFile, Mikados_K |
| 27 | K | SYSBÅND2 | ⟦8ae1151eb⟧ Mikados TextFile, Mikados_K |
| 34 | K | TELEFON | ⟦fecefb70b⟧ Mikados TextFile, Mikados_K |
| 10 | K | TESTFIL | ⟦81fb204df⟧ Mikados TextFile, Mikados_K |
| 19 | K | TESTFIL2 | ⟦779773457⟧ Mikados TextFile, Mikados_K |
| 3 | K | TOPPKT1 | ⟦7fb1174ea⟧ Mikados TextFile, Mikados_K |
| 2 | K | TREKANT1 | ⟦39304046e⟧ Mikados TextFile, Mikados_K |
| 3 | K | TREKANT3 | ⟦048290bea⟧ Mikados TextFile, Mikados_K |
| 3 | K | TRIGONOM | ⟦1f5d15d7f⟧ Mikados TextFile, Mikados_K |
| 8 | K | UDLAND | ⟦043f4955b⟧ Mikados TextFile, Mikados_K |
| 19 | K | VESTER | ⟦5fa9b20ab⟧ Mikados TextFile, Mikados_K |
0x00000…00030 (0, 0, 1) DiskLabel {plidn=»PLADELAGER«, ledig={DA 0034,0b (0x034b00)}, plart=»MIK «, pldto=»1981.06.12«, plbtg=»DDE «, pluda=» «}
0x00030…00040 1f 00 02 10 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00040…00060 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x5…]
0x00100…00200 (0, 0, 2) EmptyDirSect
[…0x7…]
0x00900…00a00 (0, 0, 10) DirSect {
0x00900…00a00 dent = [ // 0x900 @0x0
0x00900…00a00 [0x00]: DirEnt {name=»BIBLIOTE«, typ=»K«, seg=»A«, seg0={DA 0004,01 (0x004100)}}
0x00900…00a00 [0x01]: DirEnt {name=»COS_RELA«, typ=»K«, seg=»A«, seg0={DA 0004,0b (0x004b00)}}
0x00900…00a00 [0x02]:
0x00900…00a00 [0x03]:
0x00900…00a00 [0x04]:
0x00900…00a00 [0x05]:
0x00900…00a00 [0x06]:
0x00900…00a00 [0x07]:
0x00900…00a00 [0x08]:
0x00900…00a00 [0x09]:
0x00900…00a00 [0x0a]:
0x00900…00a00 [0x0b]:
0x00900…00a00 [0x0c]:
0x00900…00a00 [0x0d]:
0x00900…00a00 [0x0e]:
0x00900…00a00 [0x0f]:
0x00900…00a00 [0x10]:
0x00900…00a00 [0x11]:
0x00900…00a00 [0x12]:
0x00900…00a00 ]
0x00900…00a00 }
0x00a00…00b00 (0, 0, 11) EmptyDirSect
0x00b00…00c00 (0, 0, 12) DirSect {
0x00b00…00c00 dent = [ // 0xb00 @0x0
0x00b00…00c00 [0x00]: DirEnt {name=»DEMO_4 «, typ=»K«, seg=»A«, seg0={DA 0005,03 (0x005300)}}
0x00b00…00c00 [0x01]: DirEnt {name=»RETTEFIL«, typ=»K«, seg=»A«, seg0={DA 0005,0d (0x005d00)}}
0x00b00…00c00 [0x02]: DirEnt {name=»KOPIDIR «, typ=»K«, seg=»A«, seg0={DA 0006,05 (0x006500)}}
0x00b00…00c00 [0x03]: DirEnt {name=»TREKANT3«, typ=»K«, seg=»A«, seg0={DA 0006,0f (0x006f00)}}
0x00b00…00c00 [0x04]: DirEnt {name=»HUNDREDE«, typ=»K«, seg=»A«, seg0={DA 0007,02 (0x007200)}}
0x00b00…00c00 [0x05]:
0x00b00…00c00 [0x06]:
0x00b00…00c00 [0x07]:
0x00b00…00c00 [0x08]:
0x00b00…00c00 [0x09]:
0x00b00…00c00 [0x0a]:
0x00b00…00c00 [0x0b]:
0x00b00…00c00 [0x0c]:
0x00b00…00c00 [0x0d]:
0x00b00…00c00 [0x0e]:
0x00b00…00c00 [0x0f]:
0x00b00…00c00 [0x10]:
0x00b00…00c00 [0x11]:
0x00b00…00c00 [0x12]:
0x00b00…00c00 ]
0x00b00…00c00 }
0x00c00…00d00 (0, 0, 13) EmptyDirSect
0x00d00…00e00 (0, 0, 14) DirSect {
0x00d00…00e00 dent = [ // 0xd00 @0x0
0x00d00…00e00 [0x00]: DirEnt {name=»AFBET_RE«, typ=»K«, seg=»A«, seg0={DA 0007,05 (0x007500)}}
0x00d00…00e00 [0x01]: DirEnt {name=»FREKVENS«, typ=»K«, seg=»A«, seg0={DA 0007,0f (0x007f00)}}
0x00d00…00e00 [0x02]: DirEnt {name=»HERON3 «, typ=»K«, seg=»A«, seg0={DA 0008,09 (0x008900)}}
0x00d00…00e00 [0x03]:
0x00d00…00e00 [0x04]:
0x00d00…00e00 [0x05]:
0x00d00…00e00 [0x06]:
0x00d00…00e00 [0x07]:
0x00d00…00e00 [0x08]:
0x00d00…00e00 [0x09]:
0x00d00…00e00 [0x0a]:
0x00d00…00e00 [0x0b]:
0x00d00…00e00 [0x0c]:
0x00d00…00e00 [0x0d]:
0x00d00…00e00 [0x0e]:
0x00d00…00e00 [0x0f]:
0x00d00…00e00 [0x10]:
0x00d00…00e00 [0x11]:
0x00d00…00e00 [0x12]:
0x00d00…00e00 ]
0x00d00…00e00 }
0x00e00…00f00 (0, 0, 15) EmptyDirSect
0x00f00…01000 (0, 0, 16) DirSect {
0x00f00…01000 dent = [ // 0xf00 @0x0
0x00f00…01000 [0x00]: DirEnt {name=»ANDENGR1«, typ=»K«, seg=»A«, seg0={DA 0009,09 (0x009900)}}
0x00f00…01000 [0x01]:
0x00f00…01000 [0x02]:
0x00f00…01000 [0x03]:
0x00f00…01000 [0x04]:
0x00f00…01000 [0x05]:
0x00f00…01000 [0x06]:
0x00f00…01000 [0x07]:
0x00f00…01000 [0x08]:
0x00f00…01000 [0x09]:
0x00f00…01000 [0x0a]:
0x00f00…01000 [0x0b]:
0x00f00…01000 [0x0c]:
0x00f00…01000 [0x0d]:
0x00f00…01000 [0x0e]:
0x00f00…01000 [0x0f]:
0x00f00…01000 [0x10]:
0x00f00…01000 [0x11]:
0x00f00…01000 [0x12]:
0x00f00…01000 ]
0x00f00…01000 }
0x01000…01100 (0, 1, 1) EmptyDirSect
[…0x2…]
0x01300…01400 (0, 1, 4) DirSect {
0x01300…01400 dent = [ // 0x1300 @0x0
0x01300…01400 [0x00]: DirEnt {name=»SYSBÅND2«, typ=»K«, seg=»A«, seg0={DA 0009,0e (0x009e00)}}
0x01300…01400 [0x01]: DirEnt {name=»TOPPKT1 «, typ=»K«, seg=»A«, seg0={DA 000b,09 (0x00b900)}}
0x01300…01400 [0x02]: DirEnt {name=»SPIL1_KO«, typ=»K«, seg=»A«, seg0={DA 000b,0c (0x00bc00)}}
0x01300…01400 [0x03]:
0x01300…01400 [0x04]:
0x01300…01400 [0x05]:
0x01300…01400 [0x06]:
0x01300…01400 [0x07]:
0x01300…01400 [0x08]:
0x01300…01400 [0x09]:
0x01300…01400 [0x0a]:
0x01300…01400 [0x0b]:
0x01300…01400 [0x0c]:
0x01300…01400 [0x0d]:
0x01300…01400 [0x0e]:
0x01300…01400 [0x0f]:
0x01300…01400 [0x10]:
0x01300…01400 [0x11]:
0x01300…01400 [0x12]:
0x01300…01400 ]
0x01300…01400 }
0x01400…01500 (0, 1, 5) EmptyDirSect
0x01500…01600 (0, 1, 6) DirSect {
0x01500…01600 dent = [ // 0x1500 @0x0
0x01500…01600 [0x00]: DirEnt {name=»FUNC_HER«, typ=»K«, seg=»A«, seg0={DA 000c,04 (0x00c400)}}
0x01500…01600 [0x01]: DirEnt {name=»TESTFIL2«, typ=»K«, seg=»A«, seg0={DA 000c,0a (0x00ca00)}}
0x01500…01600 [0x02]: DirEnt {name=»UDLAND «, typ=»K«, seg=»A«, seg0={DA 000d,0d (0x00dd00)}}
0x01500…01600 [0x03]:
0x01500…01600 [0x04]:
0x01500…01600 [0x05]:
0x01500…01600 [0x06]:
0x01500…01600 [0x07]:
0x01500…01600 [0x08]:
0x01500…01600 [0x09]:
0x01500…01600 [0x0a]:
0x01500…01600 [0x0b]:
0x01500…01600 [0x0c]:
0x01500…01600 [0x0d]:
0x01500…01600 [0x0e]:
0x01500…01600 [0x0f]:
0x01500…01600 [0x10]:
0x01500…01600 [0x11]:
0x01500…01600 [0x12]:
0x01500…01600 ]
0x01500…01600 }
0x01600…01700 (0, 1, 7) EmptyDirSect
0x01700…01800 (0, 1, 8) DirSect {
0x01700…01800 dent = [ // 0x1700 @0x0
0x01700…01800 [0x00]: DirEnt {name=»DEMOFIL «, typ=»K«, seg=»A«, seg0={DA 000e,0d (0x00ed00)}}
0x01700…01800 [0x01]: DirEnt {name=»FLETNING«, typ=»K«, seg=»A«, seg0={DA 000f,07 (0x00f700)}}
0x01700…01800 [0x02]: DirEnt {name=»RAMME «, typ=»K«, seg=»A«, seg0={DA 0010,01 (0x010100)}}
0x01700…01800 [0x03]: DirEnt {name=»OVERFL1 «, typ=»K«, seg=»A«, seg0={DA 0010,03 (0x010300)}}
0x01700…01800 [0x04]:
0x01700…01800 [0x05]:
0x01700…01800 [0x06]:
0x01700…01800 [0x07]:
0x01700…01800 [0x08]:
0x01700…01800 [0x09]:
0x01700…01800 [0x0a]:
0x01700…01800 [0x0b]:
0x01700…01800 [0x0c]:
0x01700…01800 [0x0d]:
0x01700…01800 [0x0e]:
0x01700…01800 [0x0f]:
0x01700…01800 [0x10]:
0x01700…01800 [0x11]:
0x01700…01800 [0x12]:
0x01700…01800 ]
0x01700…01800 }
0x01800…01900 (0, 1, 9) EmptyDirSect
0x01900…01a00 (0, 1, 10) DirSect {
0x01900…01a00 dent = [ // 0x1900 @0x0
0x01900…01a00 [0x00]: DirEnt {name=»BISECTIO«, typ=»K«, seg=»A«, seg0={DA 0011,07 (0x011700)}}
0x01900…01a00 [0x01]: DirEnt {name=»STYRTLØB«, typ=»K«, seg=»A«, seg0={DA 0012,01 (0x012100)}}
0x01900…01a00 [0x02]: DirEnt {name=»MAX_MIN «, typ=»K«, seg=»A«, seg0={DA 0012,0b (0x012b00)}}
0x01900…01a00 [0x03]: DirEnt {name=»PAKKEPOS«, typ=»K«, seg=»A«, seg0={DA 0012,0f (0x012f00)}}
0x01900…01a00 [0x04]:
0x01900…01a00 [0x05]:
0x01900…01a00 [0x06]:
0x01900…01a00 [0x07]:
0x01900…01a00 [0x08]:
0x01900…01a00 [0x09]:
0x01900…01a00 [0x0a]:
0x01900…01a00 [0x0b]:
0x01900…01a00 [0x0c]:
0x01900…01a00 [0x0d]:
0x01900…01a00 [0x0e]:
0x01900…01a00 [0x0f]:
0x01900…01a00 [0x10]:
0x01900…01a00 [0x11]:
0x01900…01a00 [0x12]:
0x01900…01a00 ]
0x01900…01a00 }
0x01a00…01b00 (0, 1, 11) EmptyDirSect
0x01b00…01c00 (0, 1, 12) DirSect {
0x01b00…01c00 dent = [ // 0x1b00 @0x0
0x01b00…01c00 [0x00]: DirEnt {name=»REJSEB2 «, typ=»K«, seg=»A«, seg0={DA 0013,09 (0x013900)}}
0x01b00…01c00 [0x01]: DirEnt {name=»STOPUR «, typ=»K«, seg=»A«, seg0={DA 0014,0d (0x014d00)}}
0x01b00…01c00 [0x02]: DirEnt {name=»RENTEFOD«, typ=»K«, seg=»A«, seg0={DA 0015,07 (0x015700)}}
0x01b00…01c00 [0x03]: DirEnt {name=»BINÆR_2 «, typ=»K«, seg=»A«, seg0={DA 0015,0a (0x015a00)}}
0x01b00…01c00 [0x04]:
0x01b00…01c00 [0x05]:
0x01b00…01c00 [0x06]:
0x01b00…01c00 [0x07]:
0x01b00…01c00 [0x08]:
0x01b00…01c00 [0x09]:
0x01b00…01c00 [0x0a]:
0x01b00…01c00 [0x0b]:
0x01b00…01c00 [0x0c]:
0x01b00…01c00 [0x0d]:
0x01b00…01c00 [0x0e]:
0x01b00…01c00 [0x0f]:
0x01b00…01c00 [0x10]:
0x01b00…01c00 [0x11]:
0x01b00…01c00 [0x12]:
0x01b00…01c00 ]
0x01b00…01c00 }
0x01c00…01d00 (0, 1, 13) EmptyDirSect
0x01d00…01e00 (0, 1, 14) DirSect {
0x01d00…01e00 dent = [ // 0x1d00 @0x0
0x01d00…01e00 [0x00]: DirEnt {name=»KORRELAT«, typ=»K«, seg=»A«, seg0={DA 0016,04 (0x016400)}}
0x01d00…01e00 [0x01]: DirEnt {name=»INFO «, typ=»K«, seg=»A«, seg0={DA 0017,08 (0x017800)}}
0x01d00…01e00 [0x02]: DirEnt {name=»SFD «, typ=»K«, seg=»A«, seg0={DA 0018,02 (0x018200)}}
0x01d00…01e00 [0x03]: DirEnt {name=»ETOILES «, typ=»K«, seg=»A«, seg0={DA 0018,03 (0x018300)}}
0x01d00…01e00 [0x04]:
0x01d00…01e00 [0x05]:
0x01d00…01e00 [0x06]:
0x01d00…01e00 [0x07]:
0x01d00…01e00 [0x08]:
0x01d00…01e00 [0x09]:
0x01d00…01e00 [0x0a]:
0x01d00…01e00 [0x0b]:
0x01d00…01e00 [0x0c]:
0x01d00…01e00 [0x0d]:
0x01d00…01e00 [0x0e]:
0x01d00…01e00 [0x0f]:
0x01d00…01e00 [0x10]:
0x01d00…01e00 [0x11]:
0x01d00…01e00 [0x12]:
0x01d00…01e00 ]
0x01d00…01e00 }
0x01e00…01f00 (0, 1, 15) EmptyDirSect
0x01f00…02000 (0, 1, 16) DirSect {
0x01f00…02000 dent = [ // 0x1f00 @0x0
0x01f00…02000 [0x00]: DirEnt {name=»SCORE «, typ=»K«, seg=»A«, seg0={DA 0018,0d (0x018d00)}}
0x01f00…02000 [0x01]: DirEnt {name=»ANTILOG «, typ=»K«, seg=»A«, seg0={DA 0019,07 (0x019700)}}
0x01f00…02000 [0x02]:
0x01f00…02000 [0x03]:
0x01f00…02000 [0x04]:
0x01f00…02000 [0x05]:
0x01f00…02000 [0x06]:
0x01f00…02000 [0x07]:
0x01f00…02000 [0x08]:
0x01f00…02000 [0x09]:
0x01f00…02000 [0x0a]:
0x01f00…02000 [0x0b]:
0x01f00…02000 [0x0c]:
0x01f00…02000 [0x0d]:
0x01f00…02000 [0x0e]:
0x01f00…02000 [0x0f]:
0x01f00…02000 [0x10]:
0x01f00…02000 [0x11]:
0x01f00…02000 [0x12]:
0x01f00…02000 ]
0x01f00…02000 }
0x02000…02100 (1, 0, 1) EmptyDirSect
0x02100…02200 (1, 0, 2) DirSect {
0x02100…02200 dent = [ // 0x2100 @0x0
0x02100…02200 [0x00]: DirEnt {name=»TELEFON «, typ=»K«, seg=»A«, seg0={DA 0019,09 (0x019900)}}
0x02100…02200 [0x01]: DirEnt {name=»PERSONNU«, typ=»K«, seg=»A«, seg0={DA 001b,0b (0x01bb00)}}
0x02100…02200 [0x02]: DirEnt {name=»RUMFANG3«, typ=»K«, seg=»A«, seg0={DA 001c,05 (0x01c500)}}
0x02100…02200 [0x03]:
0x02100…02200 [0x04]:
0x02100…02200 [0x05]:
0x02100…02200 [0x06]:
0x02100…02200 [0x07]:
0x02100…02200 [0x08]:
0x02100…02200 [0x09]:
0x02100…02200 [0x0a]:
0x02100…02200 [0x0b]:
0x02100…02200 [0x0c]:
0x02100…02200 [0x0d]:
0x02100…02200 [0x0e]:
0x02100…02200 [0x0f]:
0x02100…02200 [0x10]:
0x02100…02200 [0x11]:
0x02100…02200 [0x12]:
0x02100…02200 ]
0x02100…02200 }
0x02200…02300 (1, 0, 3) EmptyDirSect
0x02300…02400 (1, 0, 4) DirSect {
0x02300…02400 dent = [ // 0x2300 @0x0
0x02300…02400 [0x00]: DirEnt {name=»KARTOTEK«, typ=»K«, seg=»A«, seg0={DA 001e,03 (0x01e300)}}
0x02300…02400 [0x01]: DirEnt {name=»POSTTAK2«, typ=»K«, seg=»A«, seg0={DA 001f,07 (0x01f700)}}
0x02300…02400 [0x02]:
0x02300…02400 [0x03]:
0x02300…02400 [0x04]:
0x02300…02400 [0x05]:
0x02300…02400 [0x06]:
0x02300…02400 [0x07]:
0x02300…02400 [0x08]:
0x02300…02400 [0x09]:
0x02300…02400 [0x0a]:
0x02300…02400 [0x0b]:
0x02300…02400 [0x0c]:
0x02300…02400 [0x0d]:
0x02300…02400 [0x0e]:
0x02300…02400 [0x0f]:
0x02300…02400 [0x10]:
0x02300…02400 [0x11]:
0x02300…02400 [0x12]:
0x02300…02400 ]
0x02300…02400 }
0x02400…02500 (1, 0, 5) EmptyDirSect
[…0x2…]
0x02700…02800 (1, 0, 8) DirSect {
0x02700…02800 dent = [ // 0x2700 @0x0
0x02700…02800 [0x00]: DirEnt {name=»SYSBÅND «, typ=»K«, seg=»A«, seg0={DA 001f,0f (0x01ff00)}}
0x02700…02800 [0x01]:
0x02700…02800 [0x02]:
0x02700…02800 [0x03]:
0x02700…02800 [0x04]:
0x02700…02800 [0x05]:
0x02700…02800 [0x06]:
0x02700…02800 [0x07]:
0x02700…02800 [0x08]:
0x02700…02800 [0x09]:
0x02700…02800 [0x0a]:
0x02700…02800 [0x0b]:
0x02700…02800 [0x0c]:
0x02700…02800 [0x0d]:
0x02700…02800 [0x0e]:
0x02700…02800 [0x0f]:
0x02700…02800 [0x10]:
0x02700…02800 [0x11]:
0x02700…02800 [0x12]:
0x02700…02800 ]
0x02700…02800 }
0x02800…02900 (1, 0, 9) EmptyDirSect
0x02900…02a00 (1, 0, 10) DirSect {
0x02900…02a00 dent = [ // 0x2900 @0x0
0x02900…02a00 [0x00]: DirEnt {name=»TESTFIL «, typ=»K«, seg=»A«, seg0={DA 0021,0a (0x021a00)}}
0x02900…02a00 [0x01]: DirEnt {name=»FÆLLESDI«, typ=»K«, seg=»A«, seg0={DA 0022,04 (0x022400)}}
0x02900…02a00 [0x02]: DirEnt {name=»LAGER «, typ=»K«, seg=»A«, seg0={DA 0022,0e (0x022e00)}}
0x02900…02a00 [0x03]:
0x02900…02a00 [0x04]:
0x02900…02a00 [0x05]:
0x02900…02a00 [0x06]:
0x02900…02a00 [0x07]:
0x02900…02a00 [0x08]:
0x02900…02a00 [0x09]:
0x02900…02a00 [0x0a]:
0x02900…02a00 [0x0b]:
0x02900…02a00 [0x0c]:
0x02900…02a00 [0x0d]:
0x02900…02a00 [0x0e]:
0x02900…02a00 [0x0f]:
0x02900…02a00 [0x10]:
0x02900…02a00 [0x11]:
0x02900…02a00 [0x12]:
0x02900…02a00 ]
0x02900…02a00 }
0x02a00…02b00 (1, 0, 11) EmptyDirSect
[…0x2…]
0x02d00…02e00 (1, 0, 14) DirSect {
0x02d00…02e00 dent = [ // 0x2d00 @0x0
0x02d00…02e00 [0x00]: DirEnt {name=»LOWSCORE«, typ=»K«, seg=»A«, seg0={DA 0023,08 (0x023800)}}
0x02d00…02e00 [0x01]: DirEnt {name=»LIGE_ULI«, typ=»K«, seg=»A«, seg0={DA 0023,0a (0x023a00)}}
0x02d00…02e00 [0x02]: DirEnt {name=»CIRKEL «, typ=»K«, seg=»A«, seg0={DA 0023,0d (0x023d00)}}
0x02d00…02e00 [0x03]: DirEnt {name=»STJERN2 «, typ=»K«, seg=»A«, seg0={DA 0024,00 (0x024000)}}
0x02d00…02e00 [0x04]:
0x02d00…02e00 [0x05]:
0x02d00…02e00 [0x06]:
0x02d00…02e00 [0x07]:
0x02d00…02e00 [0x08]:
0x02d00…02e00 [0x09]:
0x02d00…02e00 [0x0a]:
0x02d00…02e00 [0x0b]:
0x02d00…02e00 [0x0c]:
0x02d00…02e00 [0x0d]:
0x02d00…02e00 [0x0e]:
0x02d00…02e00 [0x0f]:
0x02d00…02e00 [0x10]:
0x02d00…02e00 [0x11]:
0x02d00…02e00 [0x12]:
0x02d00…02e00 ]
0x02d00…02e00 }
0x02e00…02f00 (1, 0, 15) EmptyDirSect
0x02f00…03000 (1, 0, 16) DirSect {
0x02f00…03000 dent = [ // 0x2f00 @0x0
0x02f00…03000 [0x00]: DirEnt {name=»KOPI «, typ=»K«, seg=»A«, seg0={DA 0024,0a (0x024a00)}}
0x02f00…03000 [0x01]: DirEnt {name=»VESTER «, typ=»K«, seg=»A«, seg0={DA 0025,04 (0x025400)}}
0x02f00…03000 [0x02]: DirEnt {name=»INFOTXT «, typ=»K«, seg=»A«, seg0={DA 0026,07 (0x026700)}}
0x02f00…03000 [0x03]: DirEnt {name=»OVERFLAD«, typ=»K«, seg=»A«, seg0={DA 0028,05 (0x028500)}}
0x02f00…03000 [0x04]: DirEnt {name=»TREKANT1«, typ=»K«, seg=»A«, seg0={DA 0028,08 (0x028800)}}
0x02f00…03000 [0x05]: DirEnt {name=»STJERNER«, typ=»K«, seg=»A«, seg0={DA 0028,0c (0x028c00)}}
0x02f00…03000 [0x06]:
0x02f00…03000 [0x07]:
0x02f00…03000 [0x08]:
0x02f00…03000 [0x09]:
0x02f00…03000 [0x0a]:
0x02f00…03000 [0x0b]:
0x02f00…03000 [0x0c]:
0x02f00…03000 [0x0d]:
0x02f00…03000 [0x0e]:
0x02f00…03000 [0x0f]:
0x02f00…03000 [0x10]:
0x02f00…03000 [0x11]:
0x02f00…03000 [0x12]:
0x02f00…03000 ]
0x02f00…03000 }
0x03000…03100 (1, 1, 1) EmptyDirSect
0x03100…03200 (1, 1, 2) DirSect {
0x03100…03200 dent = [ // 0x3100 @0x0
0x03100…03200 [0x00]: DirEnt {name=»EKSMD1 «, typ=»K«, seg=»A«, seg0={DA 0029,06 (0x029600)}}
0x03100…03200 [0x01]:
0x03100…03200 [0x02]:
0x03100…03200 [0x03]:
0x03100…03200 [0x04]:
0x03100…03200 [0x05]:
0x03100…03200 [0x06]:
0x03100…03200 [0x07]:
0x03100…03200 [0x08]:
0x03100…03200 [0x09]:
0x03100…03200 [0x0a]:
0x03100…03200 [0x0b]:
0x03100…03200 [0x0c]:
0x03100…03200 [0x0d]:
0x03100…03200 [0x0e]:
0x03100…03200 [0x0f]:
0x03100…03200 [0x10]:
0x03100…03200 [0x11]:
0x03100…03200 [0x12]:
0x03100…03200 ]
0x03100…03200 }
0x03200…03300 (1, 1, 3) EmptyDirSect
0x03300…03400 (1, 1, 4) DirSect {
0x03300…03400 dent = [ // 0x3300 @0x0
0x03300…03400 [0x00]: DirEnt {name=»RENTE «, typ=»K«, seg=»A«, seg0={DA 0029,0c (0x029c00)}}
0x03300…03400 [0x01]: DirEnt {name=»MAX «, typ=»K«, seg=»A«, seg0={DA 002a,00 (0x02a000)}}
0x03300…03400 [0x02]:
0x03300…03400 [0x03]:
0x03300…03400 [0x04]:
0x03300…03400 [0x05]:
0x03300…03400 [0x06]:
0x03300…03400 [0x07]:
0x03300…03400 [0x08]:
0x03300…03400 [0x09]:
0x03300…03400 [0x0a]:
0x03300…03400 [0x0b]:
0x03300…03400 [0x0c]:
0x03300…03400 [0x0d]:
0x03300…03400 [0x0e]:
0x03300…03400 [0x0f]:
0x03300…03400 [0x10]:
0x03300…03400 [0x11]:
0x03300…03400 [0x12]:
0x03300…03400 ]
0x03300…03400 }
0x03400…03500 (1, 1, 5) EmptyDirSect
[…0x2…]
0x03700…03800 (1, 1, 8) DirSect {
0x03700…03800 dent = [ // 0x3700 @0x0
0x03700…03800 [0x00]: DirEnt {name=»TRIGONOM«, typ=»K«, seg=»A«, seg0={DA 002a,03 (0x02a300)}}
0x03700…03800 [0x01]:
0x03700…03800 [0x02]:
0x03700…03800 [0x03]:
0x03700…03800 [0x04]:
0x03700…03800 [0x05]:
0x03700…03800 [0x06]:
0x03700…03800 [0x07]:
0x03700…03800 [0x08]:
0x03700…03800 [0x09]:
0x03700…03800 [0x0a]:
0x03700…03800 [0x0b]:
0x03700…03800 [0x0c]:
0x03700…03800 [0x0d]:
0x03700…03800 [0x0e]:
0x03700…03800 [0x0f]:
0x03700…03800 [0x10]:
0x03700…03800 [0x11]:
0x03700…03800 [0x12]:
0x03700…03800 ]
0x03700…03800 }
0x03800…03900 (1, 1, 9) EmptyDirSect
0x03900…03a00 (1, 1, 10) DirSect {
0x03900…03a00 dent = [ // 0x3900 @0x0
0x03900…03a00 [0x00]: DirEnt {name=»DEMOSEKV«, typ=»K«, seg=»A«, seg0={DA 002a,06 (0x02a600)}}
0x03900…03a00 [0x01]: DirEnt {name=»OVERFL2 «, typ=»K«, seg=»A«, seg0={DA 002b,0a (0x02ba00)}}
0x03900…03a00 [0x02]: DirEnt {name=»EXAMEN «, typ=»K«, seg=»A«, seg0={DA 002c,0e (0x02ce00)}}
0x03900…03a00 [0x03]: DirEnt {name=»FORKORT «, typ=»K«, seg=»A«, seg0={DA 002d,05 (0x02d500)}}
0x03900…03a00 [0x04]:
0x03900…03a00 [0x05]:
0x03900…03a00 [0x06]:
0x03900…03a00 [0x07]:
0x03900…03a00 [0x08]:
0x03900…03a00 [0x09]:
0x03900…03a00 [0x0a]:
0x03900…03a00 [0x0b]:
0x03900…03a00 [0x0c]:
0x03900…03a00 [0x0d]:
0x03900…03a00 [0x0e]:
0x03900…03a00 [0x0f]:
0x03900…03a00 [0x10]:
0x03900…03a00 [0x11]:
0x03900…03a00 [0x12]:
0x03900…03a00 ]
0x03900…03a00 }
0x03a00…03b00 (1, 1, 11) EmptyDirSect
0x03b00…03c00 (1, 1, 12) DirSect {
0x03b00…03c00 dent = [ // 0x3b00 @0x0
0x03b00…03c00 [0x00]: DirEnt {name=»DIVISORE«, typ=»K«, seg=»A«, seg0={DA 002d,0f (0x02df00)}}
0x03b00…03c00 [0x01]: DirEnt {name=»PANTEBRE«, typ=»K«, seg=»A«, seg0={DA 002e,01 (0x02e100)}}
0x03b00…03c00 [0x02]:
0x03b00…03c00 [0x03]:
0x03b00…03c00 [0x04]:
0x03b00…03c00 [0x05]:
0x03b00…03c00 [0x06]:
0x03b00…03c00 [0x07]:
0x03b00…03c00 [0x08]:
0x03b00…03c00 [0x09]:
0x03b00…03c00 [0x0a]:
0x03b00…03c00 [0x0b]:
0x03b00…03c00 [0x0c]:
0x03b00…03c00 [0x0d]:
0x03b00…03c00 [0x0e]:
0x03b00…03c00 [0x0f]:
0x03b00…03c00 [0x10]:
0x03b00…03c00 [0x11]:
0x03b00…03c00 [0x12]:
0x03b00…03c00 ]
0x03b00…03c00 }
0x03c00…03d00 (1, 1, 13) EmptyDirSect
0x03d00…03e00 (1, 1, 14) DirSect {
0x03d00…03e00 dent = [ // 0x3d00 @0x0
0x03d00…03e00 [0x00]: DirEnt {name=»REJSEBUR«, typ=»K«, seg=»A«, seg0={DA 002f,05 (0x02f500)}}
0x03d00…03e00 [0x01]: DirEnt {name=»AFSTAND «, typ=»K«, seg=»A«, seg0={DA 0030,09 (0x030900)}}
0x03d00…03e00 [0x02]: DirEnt {name=»ANDENGR2«, typ=»K«, seg=»A«, seg0={DA 0031,03 (0x031300)}}
0x03d00…03e00 [0x03]: DirEnt {name=»ISENKRAM«, typ=»K«, seg=»A«, seg0={DA 0031,09 (0x031900)}}
0x03d00…03e00 [0x04]:
0x03d00…03e00 [0x05]:
0x03d00…03e00 [0x06]:
0x03d00…03e00 [0x07]:
0x03d00…03e00 [0x08]:
0x03d00…03e00 [0x09]:
0x03d00…03e00 [0x0a]:
0x03d00…03e00 [0x0b]:
0x03d00…03e00 [0x0c]:
0x03d00…03e00 [0x0d]:
0x03d00…03e00 [0x0e]:
0x03d00…03e00 [0x0f]:
0x03d00…03e00 [0x10]:
0x03d00…03e00 [0x11]:
0x03d00…03e00 [0x12]:
0x03d00…03e00 ]
0x03d00…03e00 }
0x03e00…03f00 (1, 1, 15) EmptyDirSect
0x03f00…04000 (1, 1, 16) DirSect {
0x03f00…04000 dent = [ // 0x3f00 @0x0
0x03f00…04000 [0x00]: DirEnt {name=»LØNSEDDE«, typ=»K«, seg=»A«, seg0={DA 0032,0d (0x032d00)}}
0x03f00…04000 [0x01]: DirEnt {name=»SPARTXT «, typ=»K«, seg=»A«, seg0={DA 0034,01 (0x034100)}}
0x03f00…04000 [0x02]:
0x03f00…04000 [0x03]:
0x03f00…04000 [0x04]:
0x03f00…04000 [0x05]:
0x03f00…04000 [0x06]:
0x03f00…04000 [0x07]:
0x03f00…04000 [0x08]:
0x03f00…04000 [0x09]:
0x03f00…04000 [0x0a]:
0x03f00…04000 [0x0b]:
0x03f00…04000 [0x0c]:
0x03f00…04000 [0x0d]:
0x03f00…04000 [0x0e]:
0x03f00…04000 [0x0f]:
0x03f00…04000 [0x10]:
0x03f00…04000 [0x11]:
0x03f00…04000 [0x12]:
0x03f00…04000 ]
0x03f00…04000 }
0x04000…04100 (2, 0, 1) EmptyDirSect
0x04100…04120 (2, 0, 2) ExtentHdr {name=»BIBLIOTE«, typ=»K«, seg=»A«, next=0x01, basis=0x0005, nextext={DA 0004,06 (0x004600)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0004,06 (0x004600)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x04120…04140 3c 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆<0010 // -----------------------┆
0x04140…04160 2d 20 62 69 62 6c 69 6f 74 65 6b 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3c 29 30 ┆- bibliotek -----------------<)0┆
0x04160…04180 30 31 35 20 49 4e 54 45 47 45 52 20 4e 55 4d 4d 45 52 20 2f 2f 20 68 65 6c 74 61 6c 73 2d 64 65 ┆015 INTEGER NUMMER // heltals-de┆
0x04180…041a0 66 69 6e 65 72 69 6e 67 29 2d 30 30 32 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 62 6f ┆finering)-0020 INPUT "Indtast bo┆
0x041a0…041c0 67 65 6e 73 20 6e 75 6d 6d 65 72 3a 20 20 20 22 3a 4e 55 4d 4d 45 52 2d 0b 30 30 33 30 20 43 4c ┆gens nummer: ":NUMMER- 0030 CL┆
0x041c0…041e0 45 41 52 20 0b 0f 30 30 34 30 20 43 55 52 53 4f 52 20 31 2c 34 0f 21 30 30 35 30 20 50 52 49 4e ┆EAR 0040 CURSOR 1,4 !0050 PRIN┆
0x041e0…04200 54 20 22 20 42 20 49 20 42 20 4c 20 49 20 4f 20 54 20 45 20 4b 20 2e 22 21 21 30 30 36 30 20 50 ┆T " B I B L I O T E K ."!!0060 P┆
0x04200…04220 (2, 0, 3) 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 21 0f 30 30 37 ┆RINT "--------------------"! 007┆
0x04220…04240 30 20 43 55 52 53 4f 52 20 31 2c 38 0f 3c 30 30 38 30 20 50 52 49 4e 54 20 22 42 6f 67 65 6e 20 ┆0 CURSOR 1,8 <0080 PRINT "Bogen ┆
0x04240…04260 6d 65 64 20 6e 75 6d 6d 65 72 3a 20 20 20 22 3b 4e 55 4d 4d 45 52 3b 22 6c 69 67 67 65 72 20 69 ┆med nummer: ";NUMMER;"ligger i┆
0x04260…04280 20 67 72 75 70 70 65 6e 3a 22 3c 3d 30 30 39 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d ┆ gruppen:"<=0090 PRINT "--------┆
0x04280…042a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x042a0…042c0 2d 2d 2d 2d 2d 2d 2d 2d 22 3d 0b 30 31 30 30 20 50 52 49 4e 54 20 0b 0b 30 31 31 30 20 50 52 49 ┆--------"= 0100 PRINT 0110 PRI┆
0x042c0…042e0 4e 54 20 0b 17 30 31 32 30 20 49 46 20 4e 55 4d 4d 45 52 3c 3d 39 20 54 48 45 4e 20 17 3b 30 31 ┆NT 0120 IF NUMMER<=9 THEN ;01┆
0x042e0…04300 33 30 20 50 52 49 4e 54 20 22 30 30 20 2d 20 30 39 20 20 20 42 6c 61 6e 64 65 64 65 20 73 6b 72 ┆30 PRINT "00 - 09 Blandede skr┆
0x04300…04320 (2, 0, 4) 69 66 74 65 72 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3b 0a 30 31 34 30 20 ┆ifter. "; 0140 ┆
0x04320…04340 45 4c 53 45 20 0a 18 30 31 34 35 20 49 46 20 4e 55 4d 4d 45 52 3c 3d 31 39 20 54 48 45 4e 20 18 ┆ELSE 0145 IF NUMMER<=19 THEN ┆
0x04340…04360 42 30 31 35 30 20 50 52 49 4e 54 20 22 31 30 20 2d 20 31 39 20 20 20 46 69 6c 6f 73 6f 66 69 2e ┆B0150 PRINT "10 - 19 Filosofi.┆
0x04360…04380 20 50 73 79 6b 6f 6c 6f 67 69 2e 20 56 69 64 65 6e 73 6b 61 62 20 26 20 66 6f 72 73 6b 6e 69 6e ┆ Psykologi. Videnskab & forsknin┆
0x04380…043a0 67 2e 22 42 0a 30 31 36 30 20 45 4c 53 45 20 0a 18 30 31 36 35 20 49 46 20 4e 55 4d 4d 45 52 3c ┆g."B 0160 ELSE 0165 IF NUMMER<┆
0x043a0…043c0 3d 32 39 20 54 48 45 4e 20 18 28 30 31 37 30 20 50 52 49 4e 54 20 22 32 30 20 2d 20 32 39 20 20 ┆=29 THEN (0170 PRINT "20 - 29 ┆
0x043c0…043e0 20 52 65 6c 69 67 69 6f 6e 2e 20 20 20 20 20 20 20 20 22 28 0a 30 31 38 30 20 45 4c 53 45 20 0a ┆ Religion. "( 0180 ELSE ┆
0x043e0…04400 18 30 31 38 35 20 49 46 20 4e 55 4d 4d 45 52 3c 3d 33 39 20 54 48 45 4e 20 18 3e 30 31 39 30 20 ┆ 0185 IF NUMMER<=39 THEN >0190 ┆
0x04400…04420 (2, 0, 5) 50 52 49 4e 54 20 22 33 30 20 2d 20 33 39 20 20 20 53 61 6d 66 75 6e 64 73 76 69 64 65 6e 73 6b ┆PRINT "30 - 39 Samfundsvidensk┆
0x04420…04440 61 62 2e 20 50 7b 64 61 67 6f 67 69 6b 2e 20 46 6f 6c 6b 65 6c 69 76 2e 22 3e 0a 30 32 30 30 20 ┆ab. Pædagogik. Folkeliv."> 0200 ┆
0x04440…04460 45 4c 53 45 20 0a 18 30 32 30 35 20 49 46 20 4e 55 4d 4d 45 52 3c 3d 34 39 20 54 48 45 4e 20 18 ┆ELSE 0205 IF NUMMER<=49 THEN ┆
0x04460…04480 29 30 32 31 30 20 50 52 49 4e 54 20 22 34 30 20 2d 20 34 39 20 20 20 47 65 6f 67 72 61 66 69 20 ┆)0210 PRINT "40 - 49 Geografi ┆
0x04480…044a0 26 20 72 65 6a 73 65 72 2e 22 29 0a 30 32 32 30 20 45 4c 53 45 20 0a 18 30 32 32 35 20 49 46 20 ┆& rejser.") 0220 ELSE 0225 IF ┆
0x044a0…044c0 4e 55 4d 4d 45 52 3c 3d 35 39 20 54 48 45 4e 20 18 32 30 32 33 30 20 50 52 49 4e 54 20 22 35 30 ┆NUMMER<=59 THEN 20230 PRINT "50┆
0x044c0…044e0 20 2d 20 35 39 20 20 20 4e 61 74 75 72 76 69 64 65 6e 73 6b 61 62 20 26 20 6d 61 74 65 6d 61 74 ┆ - 59 Naturvidenskab & matemat┆
0x044e0…04500 69 6b 2e 22 32 0a 30 32 34 30 20 45 4c 53 45 20 0a 18 30 32 34 35 20 49 46 20 4e 55 4d 4d 45 52 ┆ik."2 0240 ELSE 0245 IF NUMMER┆
0x04500…04520 (2, 0, 6) 3c 3d 36 39 20 54 48 45 4e 20 18 25 30 32 35 30 20 50 52 49 4e 54 20 22 36 30 20 2d 20 36 39 20 ┆<=69 THEN %0250 PRINT "60 - 69 ┆
0x04520…04540 20 20 50 72 61 6b 74 69 73 6b 65 20 66 61 67 2e 22 25 0a 30 32 36 30 20 45 4c 53 45 20 0a 18 30 ┆ Praktiske fag."% 0260 ELSE 0┆
0x04540…04560 32 36 35 20 49 46 20 4e 55 4d 4d 45 52 3c 3d 37 39 20 54 48 45 4e 20 18 40 30 32 37 30 20 50 52 ┆265 IF NUMMER<=79 THEN @0270 PR┆
0x04560…04580 49 4e 54 20 22 37 30 20 2d 20 37 39 20 20 20 4b 75 6e 73 74 2e 20 54 65 61 74 65 72 2e 20 46 69 ┆INT "70 - 79 Kunst. Teater. Fi┆
0x04580…045a0 6c 6d 2e 20 4d 75 73 69 6b 2e 20 53 70 69 6c 2e 20 49 64 72 7b 74 2e 20 22 40 0a 30 32 38 30 20 ┆lm. Musik. Spil. Idræt. "@ 0280 ┆
0x045a0…045c0 45 4c 53 45 20 0a 18 30 32 38 35 20 49 46 20 4e 55 4d 4d 45 52 3c 3d 38 39 20 54 48 45 4e 20 18 ┆ELSE 0285 IF NUMMER<=89 THEN ┆
0x045c0…045e0 2a 30 32 39 30 20 50 52 49 4e 54 20 22 38 30 20 2d 20 38 39 20 20 20 4c 69 74 74 65 72 61 74 75 ┆*0290 PRINT "80 - 89 Litteratu┆
0x045e0…04600 72 2e 20 53 70 72 6f 67 2e 20 22 2a 0a 30 33 30 30 20 45 4c 53 45 20 0a 18 30 33 30 35 20 49 46 ┆r. Sprog. "* 0300 ELSE 0305 IF┆
0x04600…04620 (2, 0, 7) ExtentHdr {name=»BIBLIOTE«, typ=»K«, seg=»B«, next=0x01, basis=0x0005, nextext={DA 0000,00 (0x000000)}, prevext={DA 0004,01 (0x004100)}, nextfile={DA 0004,0b (0x004b00)}, f99=00 00 00 20 00 00 00 00 00 00 ┆ ┆}
0x04620…04640 20 4e 55 4d 4d 45 52 3c 3d 39 39 20 54 48 45 4e 20 18 20 30 33 31 30 20 50 52 49 4e 54 20 22 39 ┆ NUMMER<=99 THEN 0310 PRINT "9┆
0x04640…04660 30 20 2d 20 39 39 20 20 20 48 69 73 74 6f 72 69 65 2e 22 20 0b 30 33 32 30 20 45 4e 44 49 46 20 ┆0 - 99 Historie." 0320 ENDIF ┆
0x04660…04680 0b 0b 30 33 32 31 20 45 4e 44 49 46 20 0b 0b 30 33 32 32 20 45 4e 44 49 46 20 0b 0b 30 33 32 33 ┆ 0321 ENDIF 0322 ENDIF 0323┆
0x04680…046a0 20 45 4e 44 49 46 20 0b 0b 30 33 32 34 20 45 4e 44 49 46 20 0b 0b 30 33 32 35 20 45 4e 44 49 46 ┆ ENDIF 0324 ENDIF 0325 ENDIF┆
0x046a0…046c0 20 0b 0b 30 33 32 36 20 45 4e 44 49 46 20 0b 0b 30 33 32 37 20 45 4e 44 49 46 20 0b 0b 30 33 32 ┆ 0326 ENDIF 0327 ENDIF 032┆
0x046c0…046e0 38 20 45 4e 44 49 46 20 0b 0b 30 33 32 39 20 45 4e 44 49 46 20 0b 3d 30 33 33 30 20 50 52 49 4e ┆8 ENDIF 0329 ENDIF =0330 PRIN┆
0x046e0…04700 54 20 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 ┆T "-----------------------------┆
0x04700…04720 (2, 0, 8) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 3d 00 00 63 63 63 63 63 63 63 63 63 ┆-------------------"= ccccccccc┆
0x04720…04740 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x6…]
0x04800…04900 (2, 0, 9) 0x63[0x100]
[…0x2…]
0x04b00…04b20 (2, 0, 12) ExtentHdr {name=»COS_RELA«, typ=»K«, seg=»A«, next=0x01, basis=0x0004, nextext={DA 0004,0f (0x004f00)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0004,0f (0x004f00)}, f99=41 04 00 fe 00 00 00 00 00 00 ┆A ┆}
0x04b20…04b40 44 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆D0010 // -----------------------┆
0x04b40…04b60 2d 2d 2d 20 63 6f 73 5f 72 65 6c 61 74 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--- cos_relat ------------------┆
0x04b60…04b80 2d 2d 2d 2d 2d 44 44 30 30 32 30 20 2f 2f 20 55 64 67 7d 65 74 20 69 20 64 65 6e 6e 65 20 43 4f ┆-----DD0020 // Udgået i denne CO┆
0x04b80…04ba0 4d 41 4c 2d 76 65 72 73 69 6f 6e 2c 20 64 61 20 64 65 6e 20 69 6b 6b 65 20 74 69 6c 6c 61 64 65 ┆MAL-version, da den ikke tillade┆
0x04ba0…04bc0 72 20 72 65 63 75 72 73 69 76 65 44 12 30 30 33 30 20 2f 2f 20 70 72 6f 63 65 64 75 72 65 72 12 ┆r recursiveD 0030 // procedurer ┆
0x04bc0…04be0 00 00 69 76 65 74 20 69 20 72 61 64 69 61 6e 65 72 2e 3b 12 30 30 33 30 20 43 41 53 45 20 54 52 ┆ ivet i radianer.; 0030 CASE TR┆
0x04be0…04c00 55 45 20 4f 46 20 12 17 30 30 34 30 20 57 48 45 4e 20 2d 31 3c 3d 58 20 41 4e 44 20 58 3c 30 17 ┆UE OF 0040 WHEN -1<=X AND X<0 ┆
0x04c00…04c20 (2, 0, 13) 27 30 30 35 30 20 41 52 43 43 4f 53 3a 3d 41 54 4e 28 53 51 52 28 31 2d 58 2a 58 29 2f 58 29 2b ┆'0050 ARCCOS:=ATN(SQR(1-X*X)/X)+┆
0x04c20…04c40 34 2a 41 54 4e 28 31 29 27 0d 30 30 36 30 20 57 48 45 4e 20 58 3d 30 0d 15 30 30 37 30 20 41 52 ┆4*ATN(1)' 0060 WHEN X=0 0070 AR┆
0x04c40…04c60 43 43 4f 53 3a 3d 41 54 4e 28 31 29 2a 32 15 16 30 30 38 30 20 57 48 45 4e 20 30 3c 58 20 41 4e ┆CCOS:=ATN(1)*2 0080 WHEN 0<X AN┆
0x04c60…04c80 44 20 58 3c 3d 31 16 1e 30 30 39 30 20 41 52 43 43 4f 53 3a 3d 41 54 4e 28 53 51 52 28 31 2d 58 ┆D X<=1 0090 ARCCOS:=ATN(SQR(1-X┆
0x04c80…04ca0 2a 58 29 2f 58 29 1e 0f 30 30 39 32 20 4f 54 48 45 52 57 49 53 45 20 0f 0b 30 30 39 33 20 50 52 ┆*X)/X) 0092 OTHERWISE 0093 PR┆
0x04ca0…04cc0 49 4e 54 20 0b 0d 30 31 30 30 20 45 4e 44 43 41 53 45 20 0d 13 30 31 31 30 20 45 4e 44 50 52 4f ┆INT 0100 ENDCASE 0110 ENDPRO┆
0x04cc0…04ce0 43 20 41 52 43 43 4f 53 13 08 30 31 32 30 20 2f 2f 20 08 0b 30 31 33 30 20 43 4c 45 41 52 20 0b ┆C ARCCOS 0120 // 0130 CLEAR ┆
0x04ce0…04d00 0b 30 31 33 35 20 50 52 49 4e 54 20 0b 1b 30 31 34 30 20 46 41 4b 54 4f 52 3a 3d 31 38 30 2f 28 ┆ 0135 PRINT 0140 FAKTOR:=180/(┆
0x04d00…04d20 (2, 0, 14) 41 54 4e 28 31 29 2a 34 29 1b 3c 30 31 35 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 73 ┆ATN(1)*4) <0150 INPUT "Indtast s┆
0x04d20…04d40 69 64 65 72 6e 65 20 61 2c 62 20 6f 67 20 63 20 69 20 65 6e 20 74 72 65 6b 61 6e 74 3a 20 20 20 ┆iderne a,b og c i en trekant: ┆
0x04d40…04d60 22 3a 41 2c 42 2c 43 3c 30 30 31 36 30 20 56 49 4e 4b 45 4c 41 3a 3d 46 41 4b 54 4f 52 2a 41 52 ┆":A,B,C<00160 VINKELA:=FAKTOR*AR┆
0x04d60…04d80 43 43 4f 53 28 28 42 2a 42 2b 43 2a 43 2d 41 2a 41 29 2f 32 2f 42 2f 43 29 30 30 30 31 37 30 20 ┆CCOS((B*B+C*C-A*A)/2/B/C)000170 ┆
0x04d80…04da0 56 49 4e 4b 45 4c 42 3a 3d 46 41 4b 54 4f 52 2a 41 52 43 43 4f 53 28 28 41 2a 41 2b 43 2a 43 2d ┆VINKELB:=FAKTOR*ARCCOS((A*A+C*C-┆
0x04da0…04dc0 42 2a 42 29 2f 32 2f 41 2f 43 29 30 30 30 31 38 30 20 56 49 4e 4b 45 4c 43 3a 3d 46 41 4b 54 4f ┆B*B)/2/A/C)000180 VINKELC:=FAKTO┆
0x04dc0…04de0 52 2a 41 52 43 43 4f 53 28 28 41 2a 41 2b 42 2a 42 2d 43 2a 43 29 2f 32 2f 41 2f 42 29 30 13 30 ┆R*ARCCOS((A*A+B*B-C*C)/2/A/B)0 0┆
0x04de0…04e00 31 39 30 20 50 52 49 4e 54 20 22 61 20 3d 20 22 3b 41 13 13 30 32 30 30 20 50 52 49 4e 54 20 22 ┆190 PRINT "a = ";A 0200 PRINT "┆
0x04e00…04e20 (2, 0, 15) 62 20 3d 20 22 3b 42 13 13 30 32 31 30 20 50 52 49 4e 54 20 22 63 20 3d 20 22 3b 43 13 0b 30 32 ┆b = ";B 0210 PRINT "c = ";C 02┆
0x04e20…04e40 32 30 20 50 52 49 4e 54 20 0b 34 30 32 33 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 56 69 6e ┆20 PRINT 40230 PRINT USING "Vin┆
0x04e40…04e60 6b 65 6c 20 41 20 3d 20 23 23 23 23 2e 23 23 20 67 72 61 64 65 72 22 3a 56 49 4e 4b 45 4c 41 34 ┆kel A = ####.## grader":VINKELA4┆
0x04e60…04e80 34 30 32 34 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 56 69 6e 6b 65 6c 20 42 20 3d 20 23 23 ┆40240 PRINT USING "Vinkel B = ##┆
0x04e80…04ea0 23 23 2e 23 23 20 67 72 61 64 65 72 22 3a 56 49 4e 4b 45 4c 42 34 34 30 32 35 30 20 50 52 49 4e ┆##.## grader":VINKELB440250 PRIN┆
0x04ea0…04ec0 54 20 55 53 49 4e 47 20 22 56 69 6e 6b 65 6c 20 43 20 3d 20 23 23 23 23 2e 23 23 20 67 72 61 64 ┆T USING "Vinkel C = ####.## grad┆
0x04ec0…04ee0 65 72 22 3a 56 49 4e 4b 45 4c 43 34 0b 30 32 37 30 20 50 52 49 4e 54 20 0b 3c 30 32 38 30 20 50 ┆er":VINKELC4 0270 PRINT <0280 P┆
0x04ee0…04f00 52 49 4e 54 20 22 4b 6f 6e 74 72 6f 6c 3a 20 20 20 56 69 6e 6b 65 6c 73 75 6d 20 3d 20 22 2c 56 ┆RINT "Kontrol: Vinkelsum = ",V┆
0x04f00…04f20 (2, 0, 16) ExtentHdr {name=»COS_RELA«, typ=»K«, seg=»B«, next=0x01, basis=0x0004, nextext={DA 0000,00 (0x000000)}, prevext={DA 0004,0b (0x004b00)}, nextfile={DA 0005,03 (0x005300)}, f99=41 04 00 20 00 00 00 00 00 00 ┆A ┆}
0x04f20…04f40 49 4e 4b 45 4c 41 2b 56 49 4e 4b 45 4c 42 2b 56 49 4e 4b 45 4c 43 3c 00 00 2d 2d 2d 2d 2d 2d 2d ┆INKELA+VINKELB+VINKELC< -------┆
0x04f40…04f60 2d 2d 2d 20 63 6f 73 5f 72 65 6c 61 74 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--- cos_relat ------------------┆
0x04f60…04f80 2d 2d 2d 2d 2d 44 17 30 30 31 35 20 49 4e 54 45 47 45 52 20 54 52 55 45 2c 46 41 4c 53 45 17 15 ┆-----D 0015 INTEGER TRUE,FALSE ┆
0x04f80…04fa0 30 30 31 36 20 54 52 55 45 3a 3d 31 3b 46 41 4c 53 45 3a 3d 30 15 3b 30 30 32 30 20 50 52 4f 43 ┆0016 TRUE:=1;FALSE:=0 ;0020 PROC┆
0x04fa0…04fc0 20 41 52 43 43 4f 53 28 58 29 20 2f 2f 20 61 72 63 63 6f 73 28 78 29 20 62 6c 69 76 65 72 20 61 ┆ ARCCOS(X) // arccos(x) bliver a┆
0x04fc0…04fe0 6e 67 69 76 65 74 20 69 20 72 61 64 69 61 6e 65 72 2e 3b 12 30 30 33 30 20 43 41 53 45 20 54 52 ┆ngivet i radianer.; 0030 CASE TR┆
0x04fe0…05000 55 45 20 4f 46 20 12 17 30 30 34 30 20 57 48 45 4e 20 2d 31 3c 3d 58 20 41 4e 44 20 58 3c 30 17 ┆UE OF 0040 WHEN -1<=X AND X<0 ┆
0x05000…05100 (2, 1, 1) 0x63[0x100]
[…0x2…]
0x05300…05320 (2, 1, 4) ExtentHdr {name=»DEMO_4 «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0005,0d (0x005d00)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x05320…05340 38 30 31 30 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 64 65 6d 6f 5f ┆80100 // ----------------- demo_┆
0x05340…05360 34 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 38 2d 30 31 31 30 20 ┆4 -----------------------8-0110 ┆
0x05360…05380 44 49 4d 20 4e 41 56 4e 24 20 4f 46 20 32 32 2c 41 44 52 24 20 4f 46 20 32 32 2c 50 4f 53 54 42 ┆DIM NAVN$ OF 22,ADR$ OF 22,POSTB┆
0x05380…053a0 59 24 20 4f 46 20 32 30 2d 16 30 31 32 30 20 49 4e 54 45 47 45 52 20 4e 52 2c 4e 55 4d 4d 45 52 ┆Y$ OF 20- 0120 INTEGER NR,NUMMER┆
0x053a0…053c0 16 0b 30 31 33 30 20 43 4c 45 41 52 20 0b 0f 30 31 34 30 20 43 55 52 53 4f 52 20 31 2c 36 0f 35 ┆ 0130 CLEAR 0140 CURSOR 1,6 5┆
0x053c0…053e0 30 31 35 30 20 50 52 49 4e 54 20 22 44 75 20 73 6b 61 6c 20 6e 75 20 72 65 74 74 65 20 69 20 6b ┆0150 PRINT "Du skal nu rette i k┆
0x053e0…05400 61 72 74 6f 74 65 6b 65 74 20 27 44 45 4d 4f 46 49 4c 27 20 22 35 25 30 31 36 30 20 50 52 49 4e ┆artoteket 'DEMOFIL' "5%0160 PRIN┆
0x05400…05420 (2, 1, 5) 54 20 22 49 20 66 69 6c 65 6e 20 6c 69 67 67 65 72 20 36 20 70 6f 73 74 65 72 2e 22 25 10 30 31 ┆T "I filen ligger 6 poster."% 01┆
0x05420…05440 37 30 20 43 55 52 53 4f 52 20 31 2c 31 30 10 37 30 31 38 30 20 49 4e 50 55 54 20 22 48 76 69 6c ┆70 CURSOR 1,10 70180 INPUT "Hvil┆
0x05440…05460 6b 65 6e 20 70 6f 73 74 20 73 6b 61 6c 20 72 65 74 74 65 73 3f 20 20 20 20 20 20 20 20 20 20 20 ┆ken post skal rettes? ┆
0x05460…05480 20 20 20 22 3a 4e 52 37 0c 30 31 39 30 20 54 41 42 3a 3d 31 30 0c 1f 30 32 30 30 20 44 49 4d 20 ┆ ":NR7 0190 TAB:=10 0200 DIM ┆
0x05480…054a0 46 49 4c 24 20 4f 46 20 38 2c 4b 4c 41 53 53 45 24 20 4f 46 20 35 1f 1a 30 32 31 30 20 43 52 45 ┆FIL$ OF 8,KLASSE$ OF 5 0210 CRE┆
0x054a0…054c0 41 54 45 20 22 53 59 53 54 49 4d 45 3a 4b 4f 50 49 22 1a 1a 30 32 32 30 20 4f 50 45 4e 20 22 53 ┆ATE "SYSTIME:KOPI" 0220 OPEN "S┆
0x054c0…054e0 59 53 54 49 4d 45 3a 4b 4f 50 49 22 2c 57 1a 1d 30 32 33 30 20 4f 50 45 4e 20 22 53 59 53 54 49 ┆YSTIME:KOPI",W 0230 OPEN "SYSTI┆
0x054e0…05500 4d 45 3a 44 45 4d 4f 46 49 4c 22 2c 52 1d 3c 30 32 34 30 20 47 45 54 20 22 53 59 53 54 49 4d 45 ┆ME:DEMOFIL",R <0240 GET "SYSTIME┆
0x05500…05520 (2, 1, 6) 3a 44 45 4d 4f 46 49 4c 22 3a 4e 55 4d 4d 45 52 2c 4b 4c 41 53 53 45 24 2c 4e 41 56 4e 24 2c 41 ┆:DEMOFIL":NUMMER,KLASSE$,NAVN$,A┆
0x05520…05540 44 52 24 2c 50 4f 53 54 42 59 24 3c 29 30 32 35 30 20 57 48 49 4c 45 20 4e 4f 54 20 45 4f 46 28 ┆DR$,POSTBY$<)0250 WHILE NOT EOF(┆
0x05540…05560 22 53 59 53 54 49 4d 45 3a 44 45 4d 4f 46 49 4c 22 29 20 44 4f 20 29 4b 30 32 36 30 20 50 52 49 ┆"SYSTIME:DEMOFIL") DO )K0260 PRI┆
0x05560…05580 4e 54 20 4e 55 4d 4d 45 52 3b 54 41 42 28 36 29 3b 4b 4c 41 53 53 45 24 3b 54 41 42 28 31 37 29 ┆NT NUMMER;TAB(6);KLASSE$;TAB(17)┆
0x05580…055a0 3b 4e 41 56 4e 24 3b 54 41 42 28 33 39 29 3b 41 44 52 24 3b 54 41 42 28 36 32 29 3b 50 4f 53 54 ┆;NAVN$;TAB(39);ADR$;TAB(62);POST┆
0x055a0…055c0 42 59 24 4b 17 30 32 37 30 20 49 46 20 4e 55 4d 4d 45 52 3d 4e 52 20 54 48 45 4e 20 17 27 30 32 ┆BY$K 0270 IF NUMMER=NR THEN '02┆
0x055c0…055e0 38 30 20 49 4e 50 55 54 20 22 4e 75 6d 6d 65 72 2e 20 20 20 20 20 20 20 20 20 20 3a 20 22 3a 4e ┆80 INPUT "Nummer. : ":N┆
0x055e0…05600 55 4d 4d 45 52 27 28 30 32 39 30 20 49 4e 50 55 54 20 22 4b 6c 61 73 73 65 20 20 20 20 20 20 20 ┆UMMER'(0290 INPUT "Klasse ┆
0x05600…05620 (2, 1, 7) 20 20 20 20 3a 20 22 3a 4b 4c 41 53 53 45 24 28 26 30 33 30 30 20 49 4e 50 55 54 20 22 4e 61 76 ┆ : ":KLASSE$(&0300 INPUT "Nav┆
0x05620…05640 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 20 22 3a 4e 41 56 4e 24 26 25 30 33 31 30 20 49 4e ┆n : ":NAVN$&%0310 IN┆
0x05640…05660 50 55 54 20 22 41 64 72 65 73 73 65 20 20 20 20 20 20 20 20 20 20 3a 20 22 3a 41 44 52 24 25 28 ┆PUT "Adresse : ":ADR$%(┆
0x05660…05680 30 33 32 30 20 49 4e 50 55 54 20 22 50 6f 73 74 6e 72 2e 20 26 20 62 79 20 20 20 20 20 3a 20 22 ┆0320 INPUT "Postnr. & by : "┆
0x05680…056a0 3a 50 4f 53 54 42 59 24 28 0b 30 33 33 30 20 45 4e 44 49 46 20 0b 39 30 33 34 30 20 50 55 54 20 ┆:POSTBY$( 0330 ENDIF 90340 PUT ┆
0x056a0…056c0 22 53 59 53 54 49 4d 45 3a 4b 4f 50 49 22 3a 4e 55 4d 4d 45 52 2c 4b 4c 41 53 53 45 24 2c 4e 41 ┆"SYSTIME:KOPI":NUMMER,KLASSE$,NA┆
0x056c0…056e0 56 4e 24 2c 41 44 52 24 2c 50 4f 53 54 42 59 24 39 3c 30 33 35 30 20 47 45 54 20 22 53 59 53 54 ┆VN$,ADR$,POSTBY$9<0350 GET "SYST┆
0x056e0…05700 49 4d 45 3a 44 45 4d 4f 46 49 4c 22 3a 4e 55 4d 4d 45 52 2c 4b 4c 41 53 53 45 24 2c 4e 41 56 4e ┆IME:DEMOFIL":NUMMER,KLASSE$,NAVN┆
0x05700…05720 (2, 1, 8) 24 2c 41 44 52 24 2c 50 4f 53 54 42 59 24 3c 0e 30 33 36 30 20 45 4e 44 57 48 49 4c 45 20 0e 1c ┆$,ADR$,POSTBY$< 0360 ENDWHILE ┆
0x05720…05740 30 33 37 30 20 43 4c 4f 53 45 20 22 53 59 53 54 49 4d 45 3a 44 45 4d 4f 46 49 4c 22 1c 38 30 33 ┆0370 CLOSE "SYSTIME:DEMOFIL" 803┆
0x05740…05760 38 30 20 45 4e 44 46 49 4c 45 20 22 53 59 53 54 49 4d 45 3a 4b 4f 50 49 22 20 2f 2f 20 55 64 73 ┆80 ENDFILE "SYSTIME:KOPI" // Uds┆
0x05760…05780 6b 72 69 76 20 73 6c 75 74 6d 7b 72 6b 65 20 69 20 66 69 6c 65 6e 38 19 30 33 39 30 20 43 4c 4f ┆kriv slutmærke i filen8 0390 CLO┆
0x05780…057a0 53 45 20 22 53 59 53 54 49 4d 45 3a 4b 4f 50 49 22 19 05 30 34 30 30 20 05 1a 30 34 31 30 20 4f ┆SE "SYSTIME:KOPI" 0400 0410 O┆
0x057a0…057c0 50 45 4e 20 22 53 59 53 54 49 4d 45 3a 4b 4f 50 49 22 2c 52 1a 1d 30 34 32 30 20 4f 50 45 4e 20 ┆PEN "SYSTIME:KOPI",R 0420 OPEN ┆
0x057c0…057e0 22 53 59 53 54 49 4d 45 3a 44 45 4d 4f 46 49 4c 22 2c 57 1d 39 30 34 33 30 20 47 45 54 20 22 53 ┆"SYSTIME:DEMOFIL",W 90430 GET "S┆
0x057e0…05800 59 53 54 49 4d 45 3a 4b 4f 50 49 22 3a 4e 55 4d 4d 45 52 2c 4b 4c 41 53 53 45 24 2c 4e 41 56 4e ┆YSTIME:KOPI":NUMMER,KLASSE$,NAVN┆
0x05800…05820 (2, 1, 9) 24 2c 41 44 52 24 2c 50 4f 53 54 42 59 24 39 26 30 34 34 30 20 57 48 49 4c 45 20 4e 4f 54 20 45 ┆$,ADR$,POSTBY$9&0440 WHILE NOT E┆
0x05820…05840 4f 46 28 22 53 59 53 54 49 4d 45 3a 4b 4f 50 49 22 29 20 44 4f 20 26 3c 30 34 35 30 20 50 55 54 ┆OF("SYSTIME:KOPI") DO &<0450 PUT┆
0x05840…05860 20 22 53 59 53 54 49 4d 45 3a 44 45 4d 4f 46 49 4c 22 3a 4e 55 4d 4d 45 52 2c 4b 4c 41 53 53 45 ┆ "SYSTIME:DEMOFIL":NUMMER,KLASSE┆
0x05860…05880 24 2c 4e 41 56 4e 24 2c 41 44 52 24 2c 50 4f 53 54 42 59 24 3c 39 30 34 36 30 20 47 45 54 20 22 ┆$,NAVN$,ADR$,POSTBY$<90460 GET "┆
0x05880…058a0 53 59 53 54 49 4d 45 3a 4b 4f 50 49 22 3a 4e 55 4d 4d 45 52 2c 4b 4c 41 53 53 45 24 2c 4e 41 56 ┆SYSTIME:KOPI":NUMMER,KLASSE$,NAV┆
0x058a0…058c0 4e 24 2c 41 44 52 24 2c 50 4f 53 54 42 59 24 39 0e 30 34 37 30 20 45 4e 44 57 48 49 4c 45 20 0e ┆N$,ADR$,POSTBY$9 0470 ENDWHILE ┆
0x058c0…058e0 19 30 34 38 30 20 43 4c 4f 53 45 20 22 53 59 53 54 49 4d 45 3a 4b 4f 50 49 22 19 3b 30 34 39 30 ┆ 0480 CLOSE "SYSTIME:KOPI" ;0490┆
0x058e0…05900 20 45 4e 44 46 49 4c 45 20 22 53 59 53 54 49 4d 45 3a 44 45 4d 4f 46 49 4c 22 20 2f 2f 20 55 64 ┆ ENDFILE "SYSTIME:DEMOFIL" // Ud┆
0x05900…05920 (2, 1, 10) 73 6b 72 69 76 20 73 6c 75 74 6d 7b 72 6b 65 20 69 20 66 69 6c 65 6e 3b 1c 30 35 30 30 20 43 4c ┆skriv slutmærke i filen; 0500 CL┆
0x05920…05940 4f 53 45 20 22 53 59 53 54 49 4d 45 3a 44 45 4d 4f 46 49 4c 22 1c 05 30 35 31 30 20 05 15 30 35 ┆OSE "SYSTIME:DEMOFIL" 0510 05┆
0x05940…05960 32 30 20 50 52 4f 43 20 45 4f 46 28 46 4e 41 56 4e 24 29 15 41 30 35 33 30 20 2f 2f 20 45 4f 46 ┆20 PROC EOF(FNAVN$) A0530 // EOF┆
0x05960…05980 20 66 75 6e 6b 74 69 6f 6e 65 6e 20 66 69 6e 64 65 73 20 69 6b 6b 65 20 69 20 44 44 45 2d 43 4f ┆ funktionen findes ikke i DDE-CO┆
0x05980…059a0 4d 41 4c 38 30 20 69 73 74 65 64 65 74 20 61 6e 76 65 6e 64 65 73 41 3f 30 35 34 30 20 2f 2f 20 ┆MAL80 istedet anvendesA?0540 // ┆
0x059a0…059c0 73 74 61 6e 64 61 72 64 20 66 75 6e 6b 74 69 6f 6e 20 53 54 41 54 55 53 2c 20 73 6f 6d 20 72 65 ┆standard funktion STATUS, som re┆
0x059c0…059e0 74 75 72 6e 65 72 65 72 20 6d 65 64 20 76 7b 72 64 69 65 6e 20 31 39 3f 17 30 35 35 30 20 2f 2f ┆turnerer med værdien 19? 0550 //┆
0x059e0…05a00 20 76 65 64 20 45 4e 44 2d 4f 46 2d 46 49 4c 45 17 1d 30 35 36 30 20 45 4f 46 3a 3d 28 53 54 41 ┆ ved END-OF-FILE 0560 EOF:=(STA┆
0x05a00…05a20 (2, 1, 11) 54 55 53 28 46 4e 41 56 4e 24 29 3d 31 39 29 1d 10 30 35 37 30 20 45 4e 44 50 52 4f 43 20 45 4f ┆TUS(FNAVN$)=19) 0570 ENDPROC EO┆
0x05a20…05a40 46 10 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆F cccccccccccccccccccccccccccc┆
0x05a40…05a60 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x5…]
0x05b00…05c00 (2, 1, 12) 0x63[0x100]
[…0x1…]
0x05d00…05d20 (2, 1, 14) ExtentHdr {name=»RETTEFIL«, typ=»K«, seg=»A«, next=0x00, basis=0x0008, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0006,05 (0x006500)}, f99=41 05 00 fe 00 00 00 00 00 00 ┆A ┆}
0x05d20…05d40 40 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 72 65 74 ┆@0010 // ------------------- ret┆
0x05d40…05d60 74 65 5f 66 69 6c 75 73 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆te_filus -----------------------┆
0x05d60…05d80 2d 40 21 30 30 32 30 20 44 49 4d 20 50 24 28 31 32 30 29 20 4f 46 20 38 30 2c 46 49 4c 24 20 4f ┆-@!0020 DIM P$(120) OF 80,FIL$ O┆
0x05d80…05da0 46 20 31 36 21 38 30 30 33 30 20 49 4e 50 55 54 20 22 48 76 61 64 20 68 65 64 64 65 72 20 66 69 ┆F 16!80030 INPUT "Hvad hedder fi┆
0x05da0…05dc0 6c 65 6e 2c 20 64 65 72 20 73 6b 61 6c 20 72 65 74 74 65 73 3f 20 20 20 22 3a 46 49 4c 24 38 0b ┆len, der skal rettes? ":FIL$8 ┆
0x05dc0…05de0 30 30 34 30 20 50 52 49 4e 54 20 0b 0b 30 30 35 30 20 50 52 49 4e 54 20 0b 3a 30 30 36 30 20 49 ┆0040 PRINT 0050 PRINT :0060 I┆
0x05de0…05e00 4e 50 55 54 20 22 48 76 69 6c 6b 65 6e 20 6c 69 6e 69 65 20 73 6b 61 6c 20 72 65 74 74 65 73 3f ┆NPUT "Hvilken linie skal rettes?┆
0x05e00…05e20 (2, 1, 15) 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 4e 55 4d 4d 45 52 3a 1a 30 30 37 30 20 46 49 4c 24 3a ┆ ":NUMMER: 0070 FIL$:┆
0x05e20…05e40 3d 22 53 59 53 54 49 4d 45 3a 22 2b 46 49 4c 24 1a 10 30 30 38 30 20 4f 50 45 4e 20 46 49 4c 24 ┆="SYSTIME:"+FIL$ 0080 OPEN FIL$┆
0x05e40…05e60 2c 52 10 18 30 30 39 30 20 46 4f 52 20 42 3a 3d 31 20 54 4f 20 31 32 30 20 44 4f 20 18 13 30 31 ┆,R 0090 FOR B:=1 TO 120 DO 01┆
0x05e60…05e80 30 30 20 47 45 54 20 46 49 4c 24 3a 50 24 28 42 29 13 10 30 31 31 30 20 50 52 49 4e 54 20 50 24 ┆00 GET FIL$:P$(B) 0110 PRINT P$┆
0x05e80…05ea0 28 42 29 10 16 30 31 32 30 20 49 46 20 42 3d 4e 55 4d 4d 45 52 20 54 48 45 4e 20 16 10 30 31 33 ┆(B) 0120 IF B=NUMMER THEN 013┆
0x05ea0…05ec0 30 20 49 4e 50 55 54 20 50 24 28 42 29 10 0b 30 31 34 30 20 45 4e 44 49 46 20 0b 0b 30 31 36 30 ┆0 INPUT P$(B) 0140 ENDIF 0160┆
0x05ec0…05ee0 20 4e 45 58 54 20 42 0b 0f 30 31 37 30 20 43 4c 4f 53 45 20 46 49 4c 24 0f 10 30 31 38 30 20 4f ┆ NEXT B 0170 CLOSE FIL$ 0180 O┆
0x05ee0…05f00 50 45 4e 20 46 49 4c 24 2c 57 10 18 30 31 39 30 20 46 4f 52 20 42 3a 3d 31 20 54 4f 20 31 32 30 ┆PEN FIL$,W 0190 FOR B:=1 TO 120┆
0x05f00…05f20 (2, 1, 16) 20 44 4f 20 18 13 30 32 30 30 20 50 55 54 20 46 49 4c 24 3a 50 24 28 42 29 13 0b 30 32 31 30 20 ┆ DO 0200 PUT FIL$:P$(B) 0210 ┆
0x05f20…05f40 4e 45 58 54 20 42 0b 11 30 32 32 30 20 45 4e 44 46 49 4c 45 20 46 49 4c 24 11 0f 30 32 33 30 20 ┆NEXT B 0220 ENDFILE FIL$ 0230 ┆
0x05f40…05f60 43 4c 4f 53 45 20 46 49 4c 24 0f 09 44 30 33 33 20 2f 2f 20 32 09 00 00 63 63 63 63 63 63 63 63 ┆CLOSE FIL$ D033 // 2 cccccccc┆
0x05f60…05f80 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x4…]
0x06000…06100 (3, 0, 1) 0x63[0x100]
[…0x4…]
0x06500…06520 (3, 0, 6) ExtentHdr {name=»KOPIDIR «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0006,0f (0x006f00)}, f99=41 05 00 fe 00 4f 50 49 44 49 ┆A OPIDI┆}
0x06520…06540 42 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 6b 6f ┆B0010 // -------------------- ko┆
0x06540…06560 70 69 5f 64 69 72 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 ┆pi_dir -------------------------┆
0x06560…06580 2d 2d 2d 42 45 30 30 32 30 20 2f 2f 20 50 72 6f 67 72 61 6d 6d 65 74 20 6c 61 76 65 74 20 66 6f ┆---BE0020 // Programmet lavet fo┆
0x06580…065a0 72 20 61 74 20 6b 75 6e 6e 65 20 66 7c 6c 67 65 20 62 6f 67 65 6e 73 20 66 6f 72 6b 6c 61 72 69 ┆r at kunne følge bogens forklari┆
0x065a0…065c0 6e 67 20 66 72 61 20 52 43 2e 45 34 30 30 33 30 20 2f 2f 20 46 69 6c 65 6e 20 27 68 69 67 68 73 ┆ng fra RC.E40030 // Filen 'highs┆
0x065c0…065e0 63 6f 72 65 27 20 6b 61 6e 20 6e 65 6d 6d 65 72 65 20 6b 6f 70 69 65 72 65 73 20 76 65 64 20 3a ┆core' kan nemmere kopieres ved :┆
0x065e0…06600 34 2d 30 30 34 30 20 2f 2f 20 31 2e 20 20 54 65 6b 73 74 62 65 68 61 6e 64 6c 69 6e 67 73 73 79 ┆4-0040 // 1. Tekstbehandlingssy┆
0x06600…06620 (3, 0, 7) 73 74 65 6d 65 74 20 57 6f 72 64 57 6f 72 6b 2d 26 30 30 35 30 20 2f 2f 20 32 2e 20 20 43 4f 4d ┆stemet WordWork-&0050 // 2. COM┆
0x06620…06640 41 4c 38 30 20 70 72 6f 67 72 61 6d 6d 65 74 20 46 43 4f 50 59 38 30 26 4a 30 30 38 30 20 44 49 ┆AL80 programmet FCOPY80&J0080 DI┆
0x06640…06660 4d 20 4c 49 53 54 45 28 31 30 29 2c 50 45 52 53 4f 4e 24 28 31 30 29 20 4f 46 20 33 30 2c 53 24 ┆M LISTE(10),PERSON$(10) OF 30,S$┆
0x06660…06680 20 4f 46 20 31 2c 46 49 4c 4e 41 56 4e 24 20 4f 46 20 31 37 2c 45 54 49 4b 45 54 54 45 24 20 4f ┆ OF 1,FILNAVN$ OF 17,ETIKETTE$ O┆
0x06680…066a0 46 20 38 4a 19 30 31 30 30 20 45 54 49 4b 45 54 54 45 24 3a 3d 22 53 59 53 54 49 4d 45 22 19 27 ┆F 8J 0100 ETIKETTE$:="SYSTIME" '┆
0x066a0…066c0 30 31 30 35 20 46 49 4c 4e 41 56 4e 24 3a 3d 45 54 49 4b 45 54 54 45 24 2b 22 3a 22 2b 22 48 49 ┆0105 FILNAVN$:=ETIKETTE$+":"+"HI┆
0x066c0…066e0 47 48 53 43 4f 52 22 27 14 30 31 31 30 20 4f 50 45 4e 20 46 49 4c 4e 41 56 4e 24 2c 52 14 16 30 ┆GHSCOR"' 0110 OPEN FILNAVN$,R 0┆
0x066e0…06700 31 32 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 35 20 44 4f 20 16 32 30 31 33 30 20 47 45 54 20 ┆120 FOR I:=1 TO 5 DO 20130 GET ┆
0x06700…06720 (3, 0, 8) 22 53 59 53 54 49 4d 45 3a 48 49 47 48 53 43 4f 52 45 22 2c 49 3a 4c 49 53 54 45 28 49 29 2c 50 ┆"SYSTIME:HIGHSCORE",I:LISTE(I),P┆
0x06720…06740 45 52 53 4f 4e 24 28 49 29 32 1e 30 31 34 30 20 50 52 49 4e 54 20 4c 49 53 54 45 28 49 29 2c 50 ┆ERSON$(I)2 0140 PRINT LISTE(I),P┆
0x06740…06760 45 52 53 4f 4e 24 28 49 29 1e 0b 30 31 35 30 20 4e 45 58 54 20 49 0b 0b 30 31 36 30 20 43 4c 4f ┆ERSON$(I) 0150 NEXT I 0160 CLO┆
0x06760…06780 53 45 20 0b 25 30 31 37 30 20 49 4e 50 55 54 20 22 49 6e 64 73 7b 74 20 6e 79 20 64 69 73 6b 65 ┆SE %0170 INPUT "Indsæt ny diske┆
0x06780…067a0 74 74 65 3a 20 20 22 3a 53 24 25 3a 30 31 38 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 ┆tte: ":S$%:0180 INPUT "Indtast ┆
0x067a0…067c0 65 74 69 6b 65 74 74 65 20 66 6f 72 20 6e 79 20 64 69 73 6b 65 74 74 65 20 3a 20 22 3a 45 54 49 ┆etikette for ny diskette : ":ETI┆
0x067c0…067e0 4b 45 54 54 45 24 3a 27 30 31 38 35 20 46 49 4c 4e 41 56 4e 24 3a 3d 45 54 49 4b 45 54 54 45 24 ┆KETTE$:'0185 FILNAVN$:=ETIKETTE$┆
0x067e0…06800 2b 22 3a 22 2b 22 48 49 47 48 53 43 4f 52 22 27 19 30 31 38 36 20 43 52 45 41 54 45 20 46 49 4c ┆+":"+"HIGHSCOR"' 0186 CREATE FIL┆
0x06800…06820 (3, 0, 9) 4e 41 56 4e 24 2c 35 2c 34 30 19 14 30 31 39 30 20 4f 50 45 4e 20 46 49 4c 4e 41 56 4e 24 2c 57 ┆NAVN$,5,40 0190 OPEN FILNAVN$,W┆
0x06820…06840 14 16 30 32 30 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 35 20 44 4f 20 16 27 30 32 31 30 20 50 ┆ 0200 FOR I:=1 TO 5 DO '0210 P┆
0x06840…06860 55 54 20 46 49 4c 4e 41 56 4e 24 2c 49 3a 4c 49 53 54 45 28 49 29 2c 50 45 52 53 4f 4e 24 28 49 ┆UT FILNAVN$,I:LISTE(I),PERSON$(I┆
0x06860…06880 29 27 1e 30 32 32 30 20 50 52 49 4e 54 20 4c 49 53 54 45 28 49 29 2c 50 45 52 53 4f 4e 24 28 49 ┆)' 0220 PRINT LISTE(I),PERSON$(I┆
0x06880…068a0 29 1e 0b 30 32 33 30 20 4e 45 58 54 20 49 0b 0b 30 32 34 30 20 43 4c 4f 53 45 20 0b 00 00 63 63 ┆) 0230 NEXT I 0240 CLOSE cc┆
0x068a0…068c0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x2…]
0x06900…06a00 (3, 0, 10) 0x63[0x100]
[…0x5…]
0x06f00…06f20 (3, 0, 16) ExtentHdr {name=»TREKANT3«, typ=»K«, seg=»A«, next=0x00, basis=0x0003, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0007,02 (0x007200)}, f99=41 05 00 fe 00 4f 50 49 44 49 ┆A OPIDI┆}
0x06f20…06f40 3b 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 74 72 65 ┆;0010 // ------------------- tre┆
0x06f40…06f60 6b 61 6e 74 33 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3b 3f 30 30 ┆kant3 ----------------------;?00┆
0x06f60…06f80 32 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 67 72 75 6e 64 6c 69 6e 69 65 6e 3a 20 20 ┆20 INPUT "Indtast grundlinien: ┆
0x06f80…06fa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 47 52 55 4e 44 4c 49 4e 49 45 3f 38 30 ┆ ":GRUNDLINIE?80┆
0x06fa0…06fc0 30 33 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6c 7b 6e 67 64 65 6e 20 61 66 20 65 74 ┆030 INPUT "Indtast længden af et┆
0x06fc0…06fe0 20 61 66 20 62 65 6e 65 6e 65 3a 20 20 20 20 20 20 20 22 3a 42 45 4e 38 0b 30 30 34 30 20 43 4c ┆ af benene: ":BEN8 0040 CL┆
0x06fe0…07000 45 41 52 20 0b 0b 30 30 34 35 20 50 52 49 4e 54 20 0b 3f 30 30 35 30 20 50 52 49 4e 54 20 22 47 ┆EAR 0045 PRINT ?0050 PRINT "G┆
0x07000…07020 (3, 1, 1) 72 75 6e 64 6c 69 6e 69 65 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆rundlinien: ┆
0x07020…07040 20 20 20 20 20 20 22 3b 47 52 55 4e 44 4c 49 4e 49 45 3f 38 30 30 36 30 20 50 52 49 4e 54 20 22 ┆ ";GRUNDLINIE?80060 PRINT "┆
0x07040…07060 4c 7b 6e 67 64 65 6e 20 61 66 20 65 74 20 61 66 20 62 65 6e 65 6e 65 3a 20 20 20 20 20 20 20 20 ┆Længden af et af benene: ┆
0x07060…07080 20 20 20 20 20 20 20 22 3b 42 45 4e 38 0b 30 30 37 30 20 50 52 49 4e 54 20 0b 11 30 30 38 30 20 ┆ ";BEN8 0070 PRINT 0080 ┆
0x07080…070a0 50 49 3a 3d 41 54 4e 28 31 29 2a 34 11 29 30 30 39 30 20 48 5c 4a 44 45 3a 3d 53 51 52 28 42 45 ┆PI:=ATN(1)*4 )0090 HØJDE:=SQR(BE┆
0x070a0…070c0 4e 2a 2a 32 2d 28 47 52 55 4e 44 4c 49 4e 49 45 2f 32 29 2a 2a 32 29 29 2e 30 31 30 30 20 56 49 ┆N**2-(GRUNDLINIE/2)**2)).0100 VI┆
0x070c0…070e0 4e 4b 45 4c 41 3a 3d 41 54 4e 28 48 5c 4a 44 45 2f 28 47 52 55 4e 44 4c 49 4e 49 45 2f 32 29 29 ┆NKELA:=ATN(HØJDE/(GRUNDLINIE/2))┆
0x070e0…07100 2a 31 38 30 2f 50 49 2e 48 30 31 31 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 56 69 6e 6b 6c ┆*180/PI.H0110 PRINT USING "Vinkl┆
0x07100…07120 (3, 1, 2) 65 72 6e 65 20 76 65 64 20 67 72 75 6e 64 6c 69 6e 69 65 6e 3a 20 20 23 23 23 23 2e 23 23 23 20 ┆erne ved grundlinien: ####.### ┆
0x07120…07140 67 72 61 64 65 72 2e 20 22 3a 56 49 4e 4b 45 4c 41 48 4d 30 31 32 30 20 50 52 49 4e 54 20 55 53 ┆grader. ":VINKELAHM0120 PRINT US┆
0x07140…07160 49 4e 47 20 22 54 6f 70 76 69 6e 6b 6c 65 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ING "Topvinklen: ┆
0x07160…07180 20 23 23 23 23 2e 23 23 23 20 67 72 61 64 65 72 2e 22 3a 31 38 30 2d 32 2a 56 49 4e 4b 45 4c 41 ┆ ####.### grader.":180-2*VINKELA┆
0x07180…071a0 4d 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆M ccccccccccccccccccccccccccccc┆
0x071a0…071c0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x2…]
0x07200…07220 (3, 1, 3) ExtentHdr {name=»HUNDREDE«, typ=»K«, seg=»A«, next=0x00, basis=0x0003, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0007,05 (0x007500)}, f99=41 05 00 fe 00 4f 50 49 44 49 ┆A OPIDI┆}
0x07220…07240 3c 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 68 ┆<0010 // --------------------- h┆
0x07240…07260 75 6e 64 72 65 64 65 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3c 33 30 ┆undrede ---------------------<30┆
0x07260…07280 30 32 30 20 2f 2f 20 55 64 73 6b 72 69 76 65 72 20 31 30 30 20 74 69 6c 66 7b 6c 64 69 67 65 20 ┆020 // Udskriver 100 tilfældige ┆
0x07280…072a0 74 61 6c 20 6d 65 6c 6c 65 6d 20 65 74 20 76 69 73 74 33 1a 30 30 33 30 20 2f 2f 20 6d 69 6e 69 ┆tal mellem et vist3 0030 // mini┆
0x072a0…072c0 6d 75 6d 20 6f 67 20 6d 61 78 69 6d 75 6d 1a 14 30 30 33 35 20 52 4e 44 53 45 45 44 3a 3d 33 2e ┆mum og maximum 0035 RNDSEED:=3.┆
0x072c0…072e0 31 31 34 32 14 08 30 30 34 30 20 2f 2f 20 08 0b 30 30 35 30 20 43 4c 45 41 52 20 0b 0c 30 30 36 ┆1142 0040 // 0050 CLEAR 006┆
0x072e0…07300 30 20 54 41 42 3a 3d 31 30 0c 0f 30 30 37 30 20 43 55 52 53 4f 52 20 31 2c 35 0f 1e 30 30 38 30 ┆0 TAB:=10 0070 CURSOR 1,5 0080┆
0x07300…07320 (3, 1, 4) 20 49 4e 50 55 54 20 22 4d 69 6e 69 6d 75 6d 3a 20 20 20 20 20 22 3a 4d 49 4e 1e 0f 30 30 39 30 ┆ INPUT "Minimum: ":MIN 0090┆
0x07320…07340 20 43 55 52 53 4f 52 20 31 2c 37 0f 1e 30 31 30 30 20 49 4e 50 55 54 20 22 4d 61 78 69 6d 75 6d ┆ CURSOR 1,7 0100 INPUT "Maximum┆
0x07340…07360 3a 20 20 20 20 20 22 3a 4d 41 58 1e 0b 30 31 31 30 20 50 52 49 4e 54 20 0b 18 30 31 33 30 20 46 ┆: ":MAX 0110 PRINT 0130 F┆
0x07360…07380 4f 52 20 49 3a 3d 31 20 54 4f 20 31 30 30 20 44 4f 20 18 20 30 31 34 30 20 50 52 49 4e 54 20 43 ┆OR I:=1 TO 100 DO 0140 PRINT C┆
0x07380…073a0 48 52 24 28 52 4e 44 28 4d 49 4e 2c 4d 41 58 29 2c 36 29 3b 20 0b 30 31 35 30 20 4e 45 58 54 20 ┆HR$(RND(MIN,MAX),6); 0150 NEXT ┆
0x073a0…073c0 49 0b 08 30 31 36 30 20 2f 2f 20 08 17 30 31 37 30 20 50 52 4f 43 20 52 4e 44 28 4c 4f 57 2c 48 ┆I 0160 // 0170 PROC RND(LOW,H┆
0x073c0…073e0 49 47 48 29 17 1a 30 31 38 30 20 52 4e 44 58 3a 3d 52 4e 44 53 45 45 44 2b 33 2e 31 34 31 35 39 ┆IGH) 0180 RNDX:=RNDSEED+3.14159┆
0x073e0…07400 1a 1c 30 31 39 30 20 52 4e 44 58 3a 3d 45 58 50 28 35 2e 30 2a 4c 4e 28 52 4e 44 58 29 29 1c 1c ┆ 0190 RNDX:=EXP(5.0*LN(RNDX)) ┆
0x07400…07420 (3, 1, 5) 30 32 30 30 20 52 4e 44 53 45 45 44 3a 3d 52 4e 44 58 2d 49 4e 54 28 52 4e 44 58 29 1c 29 30 32 ┆0200 RNDSEED:=RNDX-INT(RNDX) )02┆
0x07420…07440 31 30 20 52 4e 44 3a 3d 49 4e 54 28 52 4e 44 53 45 45 44 2a 28 48 49 47 48 2d 4c 4f 57 29 2b 4c ┆10 RND:=INT(RNDSEED*(HIGH-LOW)+L┆
0x07440…07460 4f 57 2b 30 2e 35 29 29 10 30 32 32 30 20 45 4e 44 50 52 4f 43 20 52 4e 44 10 00 00 63 63 63 63 ┆OW+0.5)) 0220 ENDPROC RND cccc┆
0x07460…07480 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x4…]
0x07500…07520 (3, 1, 6) ExtentHdr {name=»AFBET_RE«, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0007,0f (0x007f00)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x07520…07540 43 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 ┆C0010 // ---------------------- ┆
0x07540…07560 61 66 62 65 74 5f 72 65 6e 74 65 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆afbet_rente --------------------┆
0x07560…07580 2d 2d 2d 2d 43 08 30 30 32 30 20 2f 2f 20 08 24 30 30 33 30 20 50 52 4f 43 20 46 28 50 52 59 44 ┆----C 0020 // $0030 PROC F(PRYD┆
0x07580…075a0 45 4c 53 45 2c 50 52 47 5b 4c 44 2c 50 52 52 2c 50 52 4e 29 24 2f 30 30 34 30 20 46 3a 3d 50 52 ┆ELSE,PRGÆLD,PRR,PRN)$/0040 F:=PR┆
0x075a0…075c0 59 44 45 4c 53 45 2f 50 52 47 5b 4c 44 2d 50 52 52 2f 28 31 2d 28 31 2b 50 52 52 29 2a 2a 28 2d ┆YDELSE/PRGÆLD-PRR/(1-(1+PRR)**(-┆
0x075c0…075e0 50 52 4e 29 29 2f 0e 30 30 35 30 20 45 4e 44 50 52 4f 43 20 46 0e 08 30 30 36 30 20 2f 2f 20 08 ┆PRN))/ 0050 ENDPROC F 0060 // ┆
0x075e0…07600 0e 30 30 36 35 20 49 4e 54 45 47 45 52 20 4e 0e 0b 30 30 37 30 20 43 4c 45 41 52 20 0b 0f 30 30 ┆ 0065 INTEGER N 0070 CLEAR 00┆
0x07600…07620 (3, 1, 7) 38 30 20 43 55 52 53 4f 52 20 31 2c 34 0f 45 30 30 39 30 20 50 52 49 4e 54 20 22 50 72 6f 67 72 ┆80 CURSOR 1,4 E0090 PRINT "Progr┆
0x07620…07640 61 6d 6d 65 74 20 62 65 72 65 67 6e 65 72 20 7d 72 6c 69 67 20 72 65 6e 74 65 20 76 65 64 20 61 ┆ammet beregner årlig rente ved a┆
0x07640…07660 66 62 65 74 61 6c 69 6e 67 73 68 61 6e 64 65 6c 65 72 2e 22 45 45 30 31 30 30 20 50 52 49 4e 54 ┆fbetalingshandeler."EE0100 PRINT┆
0x07660…07680 20 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 ┆ "------------------------------┆
0x07680…076a0 2d 2d 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 45 0b 30 31 31 ┆--------------------------"E 011┆
0x076a0…076c0 30 20 50 52 49 4e 54 20 0b 49 30 31 32 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6b 6f ┆0 PRINT I0120 INPUT "Indtast ko┆
0x076c0…076e0 6e 74 61 6e 74 70 72 69 73 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ntantpris: ┆
0x076e0…07700 20 20 20 20 20 20 22 3a 4b 4f 4e 54 41 4e 54 50 52 49 53 49 48 30 31 33 30 20 49 4e 50 55 54 20 ┆ ":KONTANTPRISIH0130 INPUT ┆
0x07700…07720 (3, 1, 8) 22 55 64 62 65 74 61 6c 69 6e 67 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆"Udbetaling: ┆
0x07720…07740 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 55 44 42 45 54 41 4c 49 4e 47 48 44 30 ┆ ":UDBETALINGHD0┆
0x07740…07760 31 34 30 20 49 4e 50 55 54 20 22 4d 7d 6e 65 64 6c 69 67 20 79 64 65 6c 73 65 3a 20 20 20 20 20 ┆140 INPUT "Månedlig ydelse: ┆
0x07760…07780 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 22 3a 59 44 45 ┆ ":YDE┆
0x07780…077a0 4c 53 45 44 3f 30 31 35 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 64 65 74 20 61 6e 74 ┆LSED?0150 INPUT "Indtast det ant┆
0x077a0…077c0 61 6c 20 67 61 6e 67 65 2c 20 79 64 65 6c 73 65 6e 20 73 6b 61 6c 20 62 65 74 61 6c 65 73 3a 20 ┆al gange, ydelsen skal betales: ┆
0x077c0…077e0 20 22 3a 4e 3f 0b 30 31 36 30 20 50 52 49 4e 54 20 0b 45 30 31 37 30 20 50 52 49 4e 54 20 22 2d ┆ ":N? 0160 PRINT E0170 PRINT "-┆
0x077e0…07800 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x07800…07820 (3, 1, 9) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 45 0b 30 31 38 30 20 50 ┆-----------------------"E 0180 P┆
0x07820…07840 52 49 4e 54 20 0b 21 30 31 39 30 20 47 5b 4c 44 3a 3d 4b 4f 4e 54 41 4e 54 50 52 49 53 2d 55 44 ┆RINT !0190 GÆLD:=KONTANTPRIS-UD┆
0x07840…07860 42 45 54 41 4c 49 4e 47 21 0b 30 32 30 30 20 50 52 49 4e 54 20 0b 4c 30 32 31 30 20 50 52 49 4e ┆BETALING! 0200 PRINT L0210 PRIN┆
0x07860…07880 54 20 55 53 49 4e 47 20 22 4b 6f 6e 74 61 6e 74 70 72 69 73 3a 20 20 20 20 20 20 20 20 20 20 20 ┆T USING "Kontantpris: ┆
0x07880…078a0 20 20 20 20 20 20 20 20 20 23 23 23 23 23 23 23 23 23 23 2e 23 23 22 3a 4b 4f 4e 54 41 4e 54 50 ┆ ##########.##":KONTANTP┆
0x078a0…078c0 52 49 53 4c 4b 30 32 32 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 55 64 62 65 74 61 6c 69 6e ┆RISLK0220 PRINT USING "Udbetalin┆
0x078c0…078e0 67 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 23 23 23 23 23 23 23 23 ┆g: #########┆
0x078e0…07900 23 2e 23 23 22 3a 55 44 42 45 54 41 4c 49 4e 47 4b 45 30 32 33 30 20 50 52 49 4e 54 20 55 53 49 ┆#.##":UDBETALINGKE0230 PRINT USI┆
0x07900…07920 (3, 1, 10) 4e 47 20 22 47 7b 6c 64 28 6b 6f 6e 74 61 6e 74 70 72 69 73 20 2d 20 75 64 62 65 74 61 6c 69 6e ┆NG "Gæld(kontantpris - udbetalin┆
0x07920…07940 67 29 3a 20 23 23 23 23 23 23 23 23 23 23 2e 23 23 22 3a 47 5b 4c 44 45 47 30 32 34 30 20 50 52 ┆g): ##########.##":GÆLDEG0240 PR┆
0x07940…07960 49 4e 54 20 55 53 49 4e 47 20 22 4d 7d 6e 65 64 6c 69 67 20 79 64 65 6c 73 65 3a 20 20 20 20 20 ┆INT USING "Månedlig ydelse: ┆
0x07960…07980 20 20 20 20 20 20 20 20 20 20 20 23 23 23 23 23 23 23 23 23 23 2e 23 23 22 3a 59 44 45 4c 53 45 ┆ ##########.##":YDELSE┆
0x07980…079a0 47 37 30 32 35 30 20 50 52 49 4e 54 20 22 41 6e 74 61 6c 20 6d 7d 6e 65 64 6c 69 67 65 20 69 6e ┆G70250 PRINT "Antal månedlige in┆
0x079a0…079c0 64 62 65 74 61 6c 69 6e 67 65 72 3a 20 20 20 20 20 20 20 20 20 20 22 3b 4e 37 25 30 32 36 30 20 ┆dbetalinger: ";N7%0260 ┆
0x079c0…079e0 56 45 4e 53 54 52 45 3a 3d 39 2e 39 39 39 39 39 39 45 2d 30 36 3b 48 5c 4a 52 45 3a 3d 30 2e 32 ┆VENSTRE:=9.999999E-06;HØJRE:=0.2┆
0x079e0…07a00 25 21 30 32 37 30 20 46 56 3a 3d 46 28 59 44 45 4c 53 45 2c 47 5b 4c 44 2c 56 45 4e 53 54 52 45 ┆%!0270 FV:=F(YDELSE,GÆLD,VENSTRE┆
0x07a00…07a20 (3, 1, 11) 2c 4e 29 21 1f 30 32 37 35 20 46 48 3a 3d 46 28 59 44 45 4c 53 45 2c 47 5b 4c 44 2c 48 5c 4a 52 ┆,N)! 0275 FH:=F(YDELSE,GÆLD,HØJR┆
0x07a20…07a40 45 2c 4e 29 1f 0c 30 32 38 30 20 52 45 50 45 41 54 20 0c 21 30 32 39 30 20 4d 49 44 54 50 55 4e ┆E,N) 0280 REPEAT !0290 MIDTPUN┆
0x07a40…07a60 4b 54 3a 3d 28 56 45 4e 53 54 52 45 2b 48 5c 4a 52 45 29 2f 32 21 23 30 33 30 30 20 46 4d 3a 3d ┆KT:=(VENSTRE+HØJRE)/2!#0300 FM:=┆
0x07a60…07a80 46 28 59 44 45 4c 53 45 2c 47 5b 4c 44 2c 4d 49 44 54 50 55 4e 4b 54 2c 4e 29 23 16 30 33 31 30 ┆F(YDELSE,GÆLD,MIDTPUNKT,N)# 0310┆
0x07a80…07aa0 20 49 46 20 46 56 2a 46 4d 3c 3d 30 20 54 48 45 4e 20 16 15 30 33 32 30 20 48 5c 4a 52 45 3a 3d ┆ IF FV*FM<=0 THEN 0320 HØJRE:=┆
0x07aa0…07ac0 4d 49 44 54 50 55 4e 4b 54 15 0b 30 33 33 30 20 46 48 3a 3d 46 4d 0b 0a 30 33 34 30 20 45 4c 53 ┆MIDTPUNKT 0330 FH:=FM 0340 ELS┆
0x07ac0…07ae0 45 20 0a 17 30 33 35 30 20 56 45 4e 53 54 52 45 3a 3d 4d 49 44 54 50 55 4e 4b 54 17 0b 30 33 36 ┆E 0350 VENSTRE:=MIDTPUNKT 036┆
0x07ae0…07b00 30 20 46 56 3a 3d 46 4d 0b 0b 30 33 37 30 20 45 4e 44 49 46 20 0b 25 30 33 38 30 20 55 4e 54 49 ┆0 FV:=FM 0370 ENDIF %0380 UNTI┆
0x07b00…07b20 (3, 1, 12) 4c 20 48 5c 4a 52 45 2d 56 45 4e 53 54 52 45 3c 39 2e 39 39 39 39 39 39 45 2d 30 36 25 23 30 33 ┆L HØJRE-VENSTRE<9.999999E-06%#03┆
0x07b20…07b40 39 30 20 52 45 4e 54 45 5f 50 52 5f 4d 44 3a 3d 28 56 45 4e 53 54 52 45 2b 48 5c 4a 52 45 29 2f ┆90 RENTE_PR_MD:=(VENSTRE+HØJRE)/┆
0x07b40…07b60 32 23 25 30 34 30 30 20 52 45 4e 54 45 5f 50 5f 41 3a 3d 28 31 2b 52 45 4e 54 45 5f 50 52 5f 4d ┆2#%0400 RENTE_P_A:=(1+RENTE_PR_M┆
0x07b60…07b80 44 29 2a 2a 31 32 2d 31 25 3b 30 34 31 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 52 65 6e 74 ┆D)**12-1%;0410 PRINT USING "Rent┆
0x07b80…07ba0 65 20 70 72 2e 20 7d 72 3a 20 20 20 20 23 23 23 2e 23 23 20 25 20 22 3a 52 45 4e 54 45 5f 50 5f ┆e pr. år: ###.## % ":RENTE_P_┆
0x07ba0…07bc0 41 2a 31 30 30 3b 45 30 34 32 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆A*100;E0420 PRINT "-------------┆
0x07bc0…07be0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x07be0…07c00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 45 0c 3a 35 35 33 20 2f 2f 20 2d 2d 2d 22 0c 08 45 30 37 31 ┆-----------"E :553 // ---" E071┆
0x07c00…07c20 (3, 1, 13) 20 2f 2f 20 08 08 48 39 35 30 20 2f 2f 20 08 26 30 33 35 36 20 2f 2f 20 4e 47 20 22 52 65 6e 74 ┆ // H950 // &0356 // NG "Rent┆
0x07c20…07c40 65 20 70 72 2e 20 7d 72 3a 20 20 20 20 23 23 23 2e 23 23 20 25 20 26 09 31 30 32 33 20 2f 2f 20 ┆e pr. år: ###.## % & 1023 // ┆
0x07c40…07c60 53 09 4d 3d 32 33 37 20 2f 2f 20 30 31 33 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 75 ┆S M=237 // 0130 INPUT "Indtast u┆
0x07c60…07c80 64 62 65 74 61 6c 69 6e 67 65 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆dbetalingen: ┆
0x07c80…07ca0 20 20 20 20 20 20 20 20 20 20 20 22 3a 20 55 44 4d 4d 3f 36 31 36 20 2f 2f 20 30 31 34 30 20 49 ┆ ": UDMM?616 // 0140 I┆
0x07ca0…07cc0 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 64 65 6e 20 6d 7d 6e 65 64 6c 69 67 65 20 79 64 65 6c ┆NPUT "Indtast den månedlige ydel┆
0x07cc0…07ce0 73 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 20 59 44 4d ┆se: ": YDM┆
0x07ce0…07d00 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ cccccccccccccccccccccccccccccc┆
0x07d00…07e00 (3, 1, 14) 0x63[0x100]
[…0x1…]
0x07f00…07f20 (3, 1, 16) ExtentHdr {name=»FREKVENS«, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0008,09 (0x008900)}, f99=41 07 00 fe 00 00 00 00 00 00 ┆A ┆}
0x07f20…07f40 40 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 ┆@0010 // ---------------------- ┆
0x07f40…07f60 66 72 65 6b 76 65 6e 73 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆frekvens -----------------------┆
0x07f60…07f80 2d 40 17 30 30 31 31 20 49 4e 54 45 47 45 52 20 54 52 55 45 2c 46 41 4c 53 45 17 15 30 30 31 32 ┆-@ 0011 INTEGER TRUE,FALSE 0012┆
0x07f80…07fa0 20 54 52 55 45 3a 3d 31 3b 46 41 4c 53 45 3a 3d 30 15 35 30 30 32 30 20 49 4e 54 45 47 45 52 20 ┆ TRUE:=1;FALSE:=0 50020 INTEGER ┆
0x07fa0…07fc0 54 41 42 45 4c 28 32 30 30 29 2c 53 5c 4a 4c 45 28 31 30 29 2c 49 20 2f 2f 20 44 65 66 69 6e 65 ┆TABEL(200),SØJLE(10),I // Define┆
0x07fc0…07fe0 72 20 68 65 6c 74 61 6c 35 19 30 30 33 30 20 52 4e 44 53 45 45 44 3a 3d 33 2e 32 33 34 31 32 34 ┆r heltal5 0030 RNDSEED:=3.234124┆
0x07fe0…08000 33 32 31 19 26 30 30 34 30 20 2f 2f 20 46 7c 72 73 74 20 73 6b 61 66 66 65 72 20 76 69 20 6f 73 ┆321 &0040 // Først skaffer vi os┆
0x08000…08020 (4, 0, 1) 20 6e 6f 67 6c 65 20 74 61 6c 3a 26 18 30 30 35 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 32 30 ┆ nogle tal:& 0050 FOR I:=1 TO 20┆
0x08020…08040 30 20 44 4f 20 18 11 30 30 36 30 20 58 3a 3d 52 4e 44 28 30 2c 33 30 29 11 11 30 30 37 30 20 59 ┆0 DO 0060 X:=RND(0,30) 0070 Y┆
0x08040…08060 3a 3d 52 4e 44 28 30 2c 37 30 29 11 12 30 30 38 30 20 54 41 42 45 4c 28 49 29 3a 3d 58 2b 59 12 ┆:=RND(0,70) 0080 TABEL(I):=X+Y ┆
0x08060…08080 0b 30 30 39 30 20 4e 45 58 54 20 49 0b 0b 30 31 30 30 20 43 4c 45 41 52 20 0b 0b 30 31 30 35 20 ┆ 0090 NEXT I 0100 CLEAR 0105 ┆
0x08080…080a0 50 52 49 4e 54 20 0b 18 30 31 31 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 32 30 30 20 44 4f 20 ┆PRINT 0110 FOR I:=1 TO 200 DO ┆
0x080a0…080c0 18 14 30 31 32 30 20 50 52 49 4e 54 20 54 41 42 45 4c 28 49 29 3b 14 0b 30 31 33 30 20 4e 45 58 ┆ 0120 PRINT TABEL(I); 0130 NEX┆
0x080c0…080e0 54 20 49 0b 33 30 31 34 30 20 2f 2f 20 4e 75 20 73 61 6d 6c 65 72 20 76 69 20 74 61 6c 6c 65 6e ┆T I 30140 // Nu samler vi tallen┆
0x080e0…08100 65 20 69 20 70 61 73 73 65 6e 64 65 20 69 6e 74 65 72 76 61 6c 6c 65 72 33 18 30 31 35 30 20 46 ┆e i passende intervaller3 0150 F┆
0x08100…08120 (4, 0, 2) 4f 52 20 49 3a 3d 31 20 54 4f 20 32 30 30 20 44 4f 20 18 12 30 31 36 30 20 43 41 53 45 20 54 52 ┆OR I:=1 TO 200 DO 0160 CASE TR┆
0x08120…08140 55 45 20 4f 46 20 12 16 30 31 37 30 20 57 48 45 4e 20 54 41 42 45 4c 28 49 29 3c 3d 31 30 16 19 ┆UE OF 0170 WHEN TABEL(I)<=10 ┆
0x08140…08160 30 31 38 30 20 53 5c 4a 4c 45 28 31 29 3a 3d 53 5c 4a 4c 45 28 31 29 2b 31 19 16 30 31 39 30 20 ┆0180 SØJLE(1):=SØJLE(1)+1 0190 ┆
0x08160…08180 57 48 45 4e 20 54 41 42 45 4c 28 49 29 3c 3d 32 30 16 19 30 32 30 30 20 53 5c 4a 4c 45 28 32 29 ┆WHEN TABEL(I)<=20 0200 SØJLE(2)┆
0x08180…081a0 3a 3d 53 5c 4a 4c 45 28 32 29 2b 31 19 16 30 32 31 30 20 57 48 45 4e 20 54 41 42 45 4c 28 49 29 ┆:=SØJLE(2)+1 0210 WHEN TABEL(I)┆
0x081a0…081c0 3c 3d 33 30 16 19 30 32 32 30 20 53 5c 4a 4c 45 28 33 29 3a 3d 53 5c 4a 4c 45 28 33 29 2b 31 19 ┆<=30 0220 SØJLE(3):=SØJLE(3)+1 ┆
0x081c0…081e0 16 30 32 33 30 20 57 48 45 4e 20 54 41 42 45 4c 28 49 29 3c 3d 34 30 16 19 30 32 34 30 20 53 5c ┆ 0230 WHEN TABEL(I)<=40 0240 SØ┆
0x081e0…08200 4a 4c 45 28 34 29 3a 3d 53 5c 4a 4c 45 28 34 29 2b 31 19 16 30 32 34 32 20 57 48 45 4e 20 54 41 ┆JLE(4):=SØJLE(4)+1 0242 WHEN TA┆
0x08200…08220 (4, 0, 3) 42 45 4c 28 49 29 3c 3d 35 30 16 19 30 32 35 30 20 53 5c 4a 4c 45 28 35 29 3a 3d 53 5c 4a 4c 45 ┆BEL(I)<=50 0250 SØJLE(5):=SØJLE┆
0x08220…08240 28 35 29 2b 31 19 16 30 32 36 30 20 57 48 45 4e 20 54 41 42 45 4c 28 49 29 3c 3d 36 30 16 19 30 ┆(5)+1 0260 WHEN TABEL(I)<=60 0┆
0x08240…08260 32 37 30 20 53 5c 4a 4c 45 28 36 29 3a 3d 53 5c 4a 4c 45 28 36 29 2b 31 19 16 30 32 38 30 20 57 ┆270 SØJLE(6):=SØJLE(6)+1 0280 W┆
0x08260…08280 48 45 4e 20 54 41 42 45 4c 28 49 29 3c 3d 37 30 16 19 30 32 39 30 20 53 5c 4a 4c 45 28 37 29 3a ┆HEN TABEL(I)<=70 0290 SØJLE(7):┆
0x08280…082a0 3d 53 5c 4a 4c 45 28 37 29 2b 31 19 16 30 33 30 30 20 57 48 45 4e 20 54 41 42 45 4c 28 49 29 3c ┆=SØJLE(7)+1 0300 WHEN TABEL(I)<┆
0x082a0…082c0 3d 38 30 16 19 30 33 31 30 20 53 5c 4a 4c 45 28 38 29 3a 3d 53 5c 4a 4c 45 28 38 29 2b 31 19 16 ┆=80 0310 SØJLE(8):=SØJLE(8)+1 ┆
0x082c0…082e0 30 33 32 30 20 57 48 45 4e 20 54 41 42 45 4c 28 49 29 3c 3d 39 30 16 19 30 33 33 30 20 53 5c 4a ┆0320 WHEN TABEL(I)<=90 0330 SØJ┆
0x082e0…08300 4c 45 28 39 29 3a 3d 53 5c 4a 4c 45 28 39 29 2b 31 19 17 30 33 34 30 20 57 48 45 4e 20 54 41 42 ┆LE(9):=SØJLE(9)+1 0340 WHEN TAB┆
0x08300…08320 (4, 0, 4) 45 4c 28 49 29 3c 3d 31 30 30 17 1b 30 33 35 30 20 53 5c 4a 4c 45 28 31 30 29 3a 3d 53 5c 4a 4c ┆EL(I)<=100 0350 SØJLE(10):=SØJL┆
0x08320…08340 45 28 31 30 29 2b 31 1b 0d 30 34 30 30 20 45 4e 44 43 41 53 45 20 0d 0b 30 34 31 30 20 4e 45 58 ┆E(10)+1 0400 ENDCASE 0410 NEX┆
0x08340…08360 54 20 49 0b 0b 30 34 32 30 20 50 52 49 4e 54 20 0b 0b 30 34 33 30 20 50 52 49 4e 54 20 0b 17 30 ┆T I 0420 PRINT 0430 PRINT 0┆
0x08360…08380 34 34 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 31 30 20 44 4f 20 17 45 30 34 35 30 20 50 52 49 ┆440 FOR I:=1 TO 10 DO E0450 PRI┆
0x08380…083a0 4e 54 20 55 53 49 4e 47 20 22 46 72 65 6b 76 65 6e 73 20 69 20 69 6e 74 65 72 76 61 6c 6c 65 74 ┆NT USING "Frekvens i intervallet┆
0x083a0…083c0 20 23 23 23 23 20 2d 20 23 23 23 23 20 3d 20 22 3a 49 2a 31 30 2d 39 2c 49 2a 31 30 3b 45 2a 30 ┆ #### - #### = ":I*10-9,I*10;E*0┆
0x083c0…083e0 34 36 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 20 20 20 20 23 23 23 2e 23 23 20 25 22 3a 53 ┆460 PRINT USING " ###.## %":S┆
0x083e0…08400 5c 4a 4c 45 28 49 29 2f 32 2a 0b 30 34 37 30 20 4e 45 58 54 20 49 0b 05 30 34 38 30 20 05 17 30 ┆ØJLE(I)/2* 0470 NEXT I 0480 0┆
0x08400…08420 (4, 0, 5) 34 39 30 20 50 52 4f 43 20 52 4e 44 28 4c 4f 57 2c 48 49 47 48 29 17 1a 30 35 30 30 20 52 4e 44 ┆490 PROC RND(LOW,HIGH) 0500 RND┆
0x08420…08440 58 3a 3d 52 4e 44 53 45 45 44 2b 33 2e 31 34 31 35 39 1a 1c 30 35 31 30 20 52 4e 44 58 3a 3d 45 ┆X:=RNDSEED+3.14159 0510 RNDX:=E┆
0x08440…08460 58 50 28 35 2e 30 2a 4c 4e 28 52 4e 44 58 29 29 1c 1c 30 35 32 30 20 52 4e 44 53 45 45 44 3a 3d ┆XP(5.0*LN(RNDX)) 0520 RNDSEED:=┆
0x08460…08480 52 4e 44 58 2d 49 4e 54 28 52 4e 44 58 29 1c 29 30 35 33 30 20 52 4e 44 3a 3d 49 4e 54 28 52 4e ┆RNDX-INT(RNDX) )0530 RND:=INT(RN┆
0x08480…084a0 44 53 45 45 44 2a 28 48 49 47 48 2d 4c 4f 57 29 2b 4c 4f 57 2b 30 2e 35 29 29 10 30 35 34 30 20 ┆DSEED*(HIGH-LOW)+LOW+0.5)) 0540 ┆
0x084a0…084c0 45 4e 44 50 52 4f 43 20 52 4e 44 10 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ENDPROC RND cccccccccccccccccc┆
0x084c0…084e0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x1…]
0x08500…08600 (4, 0, 6) 0x63[0x100]
[…0x3…]
0x08900…08920 (4, 0, 10) ExtentHdr {name=»HERON3 «, typ=»K«, seg=»A«, next=0x01, basis=0x0008, nextext={DA 0009,01 (0x009100)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0009,01 (0x009100)}, f99=41 07 00 fe 00 45 52 4f 4e 33 ┆A ERON3┆}
0x08920…08940 42 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆B0010 // -----------------------┆
0x08940…08960 2d 20 68 65 72 6f 6e 33 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆- heron3 -----------------------┆
0x08960…08980 2d 2d 2d 42 46 30 30 32 30 20 2f 2f 20 50 72 6f 67 72 61 6d 6d 65 74 20 75 64 72 65 67 6e 65 72 ┆---BF0020 // Programmet udregner┆
0x08980…089a0 20 6f 6d 6b 72 65 64 73 20 26 20 61 72 65 61 6c 20 61 66 20 65 6e 20 74 72 65 6b 61 6e 74 20 76 ┆ omkreds & areal af en trekant v┆
0x089a0…089c0 65 64 20 68 6a 7b 6c 70 20 61 66 46 25 30 30 33 30 20 2f 2f 20 70 72 6f 63 65 64 75 72 65 72 20 ┆ed hjælp afF%0030 // procedurer ┆
0x089c0…089e0 6d 65 64 20 74 72 65 20 70 61 72 61 6d 65 74 72 65 2e 25 0b 30 30 34 30 20 43 4c 45 41 52 20 0b ┆med tre parametre.% 0040 CLEAR ┆
0x089e0…08a00 1e 30 30 35 30 20 50 52 49 4e 54 20 22 54 72 65 6b 61 6e 74 20 6e 75 6d 6d 65 72 20 31 2e 22 1e ┆ 0050 PRINT "Trekant nummer 1." ┆
0x08a00…08a20 (4, 0, 11) 4b 30 30 36 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 64 65 20 74 72 65 20 73 69 64 65 ┆K0060 INPUT "Indtast de tre side┆
0x08a20…08a40 72 20 69 20 74 72 65 6b 61 6e 74 65 6e 3a 20 20 20 20 20 20 20 20 22 3a 53 49 44 45 41 31 2c 53 ┆r i trekanten: ":SIDEA1,S┆
0x08a40…08a60 49 44 45 42 31 2c 53 49 44 45 43 31 4b 0b 30 30 37 30 20 50 52 49 4e 54 20 0b 3a 30 30 38 30 20 ┆IDEB1,SIDEC1K 0070 PRINT :0080 ┆
0x08a60…08a80 50 52 49 4e 54 20 22 54 72 65 6b 61 6e 74 20 6e 75 6d 6d 65 72 20 32 2e 20 20 20 20 20 20 20 20 ┆PRINT "Trekant nummer 2. ┆
0x08a80…08aa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 4b 30 30 39 30 20 49 4e 50 55 ┆ ":K0090 INPU┆
0x08aa0…08ac0 54 20 22 69 6e 64 74 61 73 74 20 64 65 20 74 72 65 20 73 69 64 65 72 20 69 20 74 72 65 6b 61 6e ┆T "indtast de tre sider i trekan┆
0x08ac0…08ae0 74 65 6e 3a 20 20 20 20 20 20 20 20 22 3a 53 49 44 45 41 32 2c 53 49 44 45 42 32 2c 53 49 44 45 ┆ten: ":SIDEA2,SIDEB2,SIDE┆
0x08ae0…08b00 43 32 4b 0b 30 31 30 30 20 50 52 49 4e 54 20 0b 36 30 31 31 30 20 50 52 49 4e 54 20 22 54 72 65 ┆C2K 0100 PRINT 60110 PRINT "Tre┆
0x08b00…08b20 (4, 0, 12) 6b 61 6e 74 20 6e 75 6d 6d 65 72 20 33 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆kant nummer 3. ┆
0x08b20…08b40 20 20 20 20 20 20 22 36 4a 30 31 32 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 64 65 20 ┆ "6J0120 INPUT "Indtast de ┆
0x08b40…08b60 74 72 65 20 73 69 64 65 72 20 69 20 74 72 65 6b 61 6e 74 65 6e 3a 20 20 20 20 20 20 20 22 3a 53 ┆tre sider i trekanten: ":S┆
0x08b60…08b80 49 44 45 41 33 2c 53 49 44 45 42 33 2c 53 49 44 45 43 33 4a 4d 30 31 33 30 20 2f 2f 20 2d 2d 2d ┆IDEA3,SIDEB3,SIDEC3JM0130 // ---┆
0x08b80…08ba0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
[…0x1…]
0x08bc0…08be0 2d 2d 4d 0b 30 31 34 30 20 43 4c 45 41 52 20 0b 0e 30 31 35 30 20 4e 55 4d 4d 45 52 3a 3d 31 0e ┆--M 0140 CLEAR 0150 NUMMER:=1 ┆
0x08be0…08c00 25 30 31 36 30 20 45 58 45 43 20 41 52 45 41 4c 28 53 49 44 45 41 31 2c 53 49 44 45 42 31 2c 53 ┆%0160 EXEC AREAL(SIDEA1,SIDEB1,S┆
0x08c00…08c20 (4, 0, 13) 49 44 45 43 31 29 25 0e 30 31 37 30 20 4e 55 4d 4d 45 52 3a 3d 32 0e 25 30 31 38 30 20 45 58 45 ┆IDEC1)% 0170 NUMMER:=2 %0180 EXE┆
0x08c20…08c40 43 20 41 52 45 41 4c 28 53 49 44 45 41 32 2c 53 49 44 45 42 32 2c 53 49 44 45 43 32 29 25 0e 30 ┆C AREAL(SIDEA2,SIDEB2,SIDEC2)% 0┆
0x08c40…08c60 31 39 30 20 4e 55 4d 4d 45 52 3a 3d 33 0e 0b 30 32 30 30 20 50 52 49 4e 54 20 0b 25 30 32 31 30 ┆190 NUMMER:=3 0200 PRINT %0210┆
0x08c60…08c80 20 45 58 45 43 20 41 52 45 41 4c 28 53 49 44 45 41 33 2c 53 49 44 45 42 33 2c 53 49 44 45 43 33 ┆ EXEC AREAL(SIDEA3,SIDEB3,SIDEC3┆
0x08c80…08ca0 29 25 4d 30 32 32 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆)%M0220 // ---------------------┆
0x08ca0…08cc0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x08cc0…08ce0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4d 22 30 32 33 30 20 50 52 4f 43 20 41 52 45 41 ┆----------------M"0230 PROC AREA┆
0x08ce0…08d00 4c 28 53 49 44 45 41 2c 53 49 44 45 42 2c 53 49 44 45 43 29 22 49 30 32 34 30 20 49 46 20 53 49 ┆L(SIDEA,SIDEB,SIDEC)"I0240 IF SI┆
0x08d00…08d20 (4, 0, 14) 44 45 41 2b 53 49 44 45 42 3c 53 49 44 45 43 20 4f 52 20 53 49 44 45 42 2b 53 49 44 45 43 3c 53 ┆DEA+SIDEB<SIDEC OR SIDEB+SIDEC<S┆
0x08d20…08d40 49 44 45 41 20 4f 52 20 53 49 44 45 41 2b 53 49 44 45 43 3c 53 49 44 45 42 20 54 48 45 4e 20 49 ┆IDEA OR SIDEA+SIDEC<SIDEB THEN I┆
0x08d40…08d60 13 30 32 35 30 20 45 58 45 43 20 55 44 53 4b 52 49 46 54 31 13 0a 30 32 36 30 20 45 4c 53 45 20 ┆ 0250 EXEC UDSKRIFT1 0260 ELSE ┆
0x08d60…08d80 0a 1d 30 32 37 30 20 53 3a 3d 28 53 49 44 45 41 2b 53 49 44 45 42 2b 53 49 44 45 43 29 2f 32 1d ┆ 0270 S:=(SIDEA+SIDEB+SIDEC)/2 ┆
0x08d80…08da0 36 30 32 38 30 20 41 52 45 41 4c 45 54 3a 3d 28 53 2a 28 53 2d 53 49 44 45 41 29 2a 28 53 2d 53 ┆60280 AREALET:=(S*(S-SIDEA)*(S-S┆
0x08da0…08dc0 49 44 45 42 29 2a 28 53 2d 53 49 44 45 43 29 29 2a 2a 28 31 2f 32 29 36 1f 30 32 39 30 20 4f 4d ┆IDEB)*(S-SIDEC))**(1/2)6 0290 OM┆
0x08dc0…08de0 4b 52 45 44 53 3a 3d 53 49 44 45 41 2b 53 49 44 45 42 2b 53 49 44 45 43 1f 13 30 33 30 30 20 45 ┆KREDS:=SIDEA+SIDEB+SIDEC 0300 E┆
0x08de0…08e00 58 45 43 20 55 44 53 4b 52 49 46 54 32 13 0b 30 33 31 30 20 45 4e 44 49 46 20 0b 12 30 33 32 30 ┆XEC UDSKRIFT2 0310 ENDIF 0320┆
0x08e00…08e20 (4, 0, 15) 20 45 4e 44 50 52 4f 43 20 41 52 45 41 4c 12 4d 30 33 33 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d ┆ ENDPROC AREAL M0330 // --------┆
0x08e20…08e40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x08e40…08e60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4d 13 30 ┆-----------------------------M 0┆
0x08e60…08e80 33 34 30 20 50 52 4f 43 20 55 44 53 4b 52 49 46 54 31 13 0b 30 33 35 30 20 50 52 49 4e 54 20 0b ┆340 PROC UDSKRIFT1 0350 PRINT ┆
0x08e80…08ea0 4b 30 33 36 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 4e 75 6d 6d 65 72 20 20 23 23 23 20 20 ┆K0360 PRINT USING "Nummer ### ┆
0x08ea0…08ec0 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 ┆ ┆
0x08ec0…08ee0 20 20 20 20 22 3a 4e 55 4d 4d 45 52 4b 44 30 33 37 30 20 50 52 49 4e 54 20 22 44 65 6e 6e 65 20 ┆ ":NUMMERKD0370 PRINT "Denne ┆
0x08ee0…08f00 74 72 65 6b 61 6e 74 20 65 6b 73 69 73 74 65 72 65 72 20 69 6b 6b 65 2c 20 73 7d 20 64 75 20 6d ┆trekant eksisterer ikke, så du m┆
0x08f00…08f20 (4, 0, 16) 7d 20 6e 6f 6b 20 70 72 7c 76 65 20 69 67 65 6e 2e 22 44 16 30 33 38 30 20 45 4e 44 50 52 4f 43 ┆å nok prøve igen."D 0380 ENDPROC┆
0x08f20…08f40 20 55 44 53 4b 52 49 46 54 31 16 4d 30 33 39 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ UDSKRIFT1 M0390 // ------------┆
0x08f40…08f60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x08f60…08f80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4d 13 30 34 30 30 20 ┆-------------------------M 0400 ┆
0x08f80…08fa0 50 52 4f 43 20 55 44 53 4b 52 49 46 54 32 13 0b 30 34 31 30 20 50 52 49 4e 54 20 0b 4b 30 34 32 ┆PROC UDSKRIFT2 0410 PRINT K042┆
0x08fa0…08fc0 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 4e 75 6d 6d 65 72 20 20 23 23 23 20 20 20 20 20 20 ┆0 PRINT USING "Nummer ### ┆
0x08fc0…08fe0 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 ┆ ┆
0x08fe0…09000 22 3a 4e 55 4d 4d 45 52 4b 4c 30 34 33 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 53 69 64 65 ┆":NUMMERKL0430 PRINT USING "Side┆
0x09000…09020 (4, 1, 1) 6e 20 61 3a 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 ┆n a: ┆
0x09020…09040 20 20 20 20 20 23 23 23 23 2e 23 23 20 20 20 22 3a 53 49 44 45 41 4c 4c 30 34 34 30 20 50 52 49 ┆ ####.## ":SIDEALL0440 PRI┆
0x09040…09060 4e 54 20 55 53 49 4e 47 20 22 53 69 64 65 6e 20 62 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆NT USING "Siden b: ┆
0x09060…09080 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 23 23 23 2e 23 23 20 20 20 22 3a 53 ┆ ####.## ":S┆
0x09080…090a0 49 44 45 42 4c 4c 30 34 35 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 53 69 64 65 6e 20 63 3a ┆IDEBLL0450 PRINT USING "Siden c:┆
0x090a0…090c0 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 ┆ ┆
0x090c0…090e0 20 23 23 23 23 2e 23 23 20 20 20 22 3a 53 49 44 45 43 4c 4b 30 34 36 30 20 50 52 49 4e 54 20 55 ┆ ####.## ":SIDECLK0460 PRINT U┆
0x090e0…09100 53 49 4e 47 20 22 4f 6d 6b 72 65 64 73 65 6e 20 61 66 20 74 72 65 6b 61 6e 74 65 6e 3a 20 20 20 ┆SING "Omkredsen af trekanten: ┆
0x09100…09120 (4, 1, 2) ExtentHdr {name=»HERON3 «, typ=»K«, seg=»B«, next=0x01, basis=0x0008, nextext={DA 0000,00 (0x000000)}, prevext={DA 0008,09 (0x008900)}, nextfile={DA 0009,09 (0x009900)}, f99=41 07 00 20 00 45 52 4f 4e 33 ┆A ERON3┆}
0x09120…09140 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 23 23 23 2e 23 23 22 3a 4f 4d 4b 52 45 44 53 4b ┆ ####.##":OMKREDSK┆
0x09140…09160 4c 30 34 37 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 41 72 65 61 6c 65 74 20 61 66 20 74 72 ┆L0470 PRINT USING "Arealet af tr┆
0x09160…09180 65 6b 61 6e 74 65 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 23 23 23 ┆ekanten: ####┆
0x09180…091a0 2e 23 23 20 22 3a 41 52 45 41 4c 45 54 4c 16 30 34 38 30 20 45 4e 44 50 52 4f 43 20 55 44 53 4b ┆.## ":AREALETL 0480 ENDPROC UDSK┆
0x091a0…091c0 52 49 46 54 32 16 4d 30 34 39 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆RIFT2 M0490 // -----------------┆
0x091c0…091e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x091e0…09200 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4d 00 00 4d 00 00 72 20 31 2e 22 1e ┆--------------------M M r 1." ┆
0x09200…09300 (4, 1, 3) 0x63[0x100]
[…0x6…]
0x09900…09920 (4, 1, 10) ExtentHdr {name=»ANDENGR1«, typ=»K«, seg=»A«, next=0x00, basis=0x0005, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0009,0e (0x009e00)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x09920…09940 42 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆B0010 // -----------------------┆
0x09940…09960 2d 2d 2d 20 61 6e 64 65 6e 67 72 31 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--- andengr1 -------------------┆
0x09960…09980 2d 2d 2d 42 38 30 30 32 30 20 2f 2f 20 41 6e 64 65 6e 67 72 61 64 73 6c 69 67 6e 69 6e 67 65 6e ┆---B80020 // Andengradsligningen┆
0x09980…099a0 20 6d 65 64 20 49 46 20 2d 20 54 48 45 4e 20 2d 20 45 4c 53 45 20 2d 20 45 4e 44 49 46 38 0b 30 ┆ med IF - THEN - ELSE - ENDIF8 0┆
0x099a0…099c0 30 33 30 20 43 4c 45 41 52 20 0b 0f 30 30 34 30 20 43 55 52 53 4f 52 20 31 2c 36 0f 35 30 30 35 ┆030 CLEAR 0040 CURSOR 1,6 5005┆
0x099c0…099e0 30 20 50 52 49 4e 54 20 22 20 41 6e 64 65 6e 67 72 61 64 73 6c 69 67 6e 69 6e 67 65 6e 20 20 20 ┆0 PRINT " Andengradsligningen ┆
0x099e0…09a00 41 78 32 20 2b 20 42 78 20 2b 20 43 20 3d 20 30 20 22 35 39 30 30 36 30 20 50 52 49 4e 54 20 22 ┆Ax2 + Bx + C = 0 "590060 PRINT "┆
0x09a00…09a20 (4, 1, 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 ┆--------------------------------┆
0x09a20…09a40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 39 32 30 30 37 30 20 49 4e 50 55 54 20 22 20 49 6e 64 74 ┆------------"920070 INPUT " Indt┆
0x09a40…09a60 61 73 74 20 41 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a ┆ast A: ":┆
0x09a60…09a80 41 32 32 30 30 38 30 20 49 4e 50 55 54 20 22 20 49 6e 64 74 61 73 74 20 42 3a 20 20 20 20 20 20 ┆A220080 INPUT " Indtast B: ┆
0x09a80…09aa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 42 32 32 30 30 39 30 20 49 4e 50 55 ┆ ":B220090 INPU┆
0x09aa0…09ac0 54 20 22 20 49 6e 64 74 61 73 74 20 43 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆T " Indtast C: ┆
0x09ac0…09ae0 20 20 20 20 20 20 22 3a 43 32 4a 30 31 30 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ":C2J0100 // -------------┆
0x09ae0…09b00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x09b00…09b20 (4, 1, 12) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4a 1c 30 31 31 30 20 44 49 53 4b ┆---------------------J 0110 DISK┆
0x09b20…09b40 52 49 4d 49 3a 3d 42 2a 2a 32 2b 28 2d 34 29 2a 41 2a 43 1c 4a 30 31 32 30 20 2f 2f 20 2d 2d 2d ┆RIMI:=B**2+(-4)*A*C J0120 // ---┆
0x09b40…09b60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x09b60…09b80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4a ┆-------------------------------J┆
0x09b80…09ba0 18 30 31 33 30 20 49 46 20 44 49 53 4b 52 49 4d 49 3c 30 20 54 48 45 4e 20 18 0b 30 31 34 30 20 ┆ 0130 IF DISKRIMI<0 THEN 0140 ┆
0x09ba0…09bc0 50 52 49 4e 54 20 0b 0b 30 31 35 30 20 50 52 49 4e 54 20 0b 30 30 31 36 30 20 50 52 49 4e 54 20 ┆PRINT 0150 PRINT 00160 PRINT ┆
0x09bc0…09be0 22 20 6c 69 67 6e 69 6e 67 65 6e 20 68 61 72 20 69 6e 67 65 6e 20 72 65 65 6c 6c 65 20 72 7c 64 ┆" ligningen har ingen reelle rød┆
0x09be0…09c00 64 65 72 2e 22 30 0a 30 31 37 30 20 45 4c 53 45 20 0a 18 30 31 37 35 20 49 46 20 44 49 53 4b 52 ┆der."0 0170 ELSE 0175 IF DISKR┆
0x09c00…09c20 (4, 1, 13) 49 4d 49 3d 30 20 54 48 45 4e 20 18 0e 30 31 38 30 20 58 3a 3d 2d 42 2f 32 2f 41 0e 0b 30 31 39 ┆IMI=0 THEN 0180 X:=-B/2/A 019┆
0x09c20…09c40 30 20 50 52 49 4e 54 20 0b 42 30 32 30 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 20 4c 69 67 ┆0 PRINT B0200 PRINT USING " Lig┆
0x09c40…09c60 6e 69 6e 67 65 6e 20 68 61 72 20 64 6f 62 62 65 6c 74 72 6f 64 65 6e 3a 20 20 20 20 20 2b 23 23 ┆ningen har dobbeltroden: +##┆
0x09c60…09c80 23 23 2e 23 23 20 20 20 20 22 3a 58 42 0b 30 32 31 30 20 50 52 49 4e 54 20 0b 0a 30 32 32 30 20 ┆##.## ":XB 0210 PRINT 0220 ┆
0x09c80…09ca0 45 4c 53 45 20 0a 27 30 32 33 30 20 50 52 49 4e 54 20 22 20 4c 69 67 6e 69 6e 67 65 6e 20 68 61 ┆ELSE '0230 PRINT " Ligningen ha┆
0x09ca0…09cc0 72 20 74 6f 20 72 7c 64 64 65 72 3a 20 22 27 0b 30 32 34 30 20 50 52 49 4e 54 20 0b 1f 30 32 35 ┆r to rødder: "' 0240 PRINT 025┆
0x09cc0…09ce0 30 20 58 31 3a 3d 28 2d 42 2b 53 51 52 28 44 49 53 4b 52 49 4d 49 29 29 2f 32 2f 41 1f 43 30 32 ┆0 X1:=(-B+SQR(DISKRIMI))/2/A C02┆
0x09ce0…09d00 36 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 58 31 20 3d 20 20 20 20 20 20 20 20 20 20 20 20 ┆60 PRINT USING "X1 = ┆
0x09d00…09d20 (4, 1, 14) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2b 23 23 23 23 2e 23 23 20 20 20 20 22 3a 58 ┆ +####.## ":X┆
0x09d20…09d40 31 43 1f 30 32 37 30 20 58 32 3a 3d 28 2d 42 2d 53 51 52 28 44 49 53 4b 52 49 4d 49 29 29 2f 32 ┆1C 0270 X2:=(-B-SQR(DISKRIMI))/2┆
0x09d40…09d60 2f 41 1f 43 30 32 38 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 58 32 20 3d 20 20 20 20 20 20 ┆/A C0280 PRINT USING "X2 = ┆
0x09d60…09d80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2b 23 23 23 23 2e 23 23 20 ┆ +####.## ┆
0x09d80…09da0 20 20 20 22 3a 58 32 43 0b 30 32 39 30 20 45 4e 44 49 46 20 0b 10 30 33 30 30 20 43 55 52 53 4f ┆ ":X2C 0290 ENDIF 0300 CURSO┆
0x09da0…09dc0 52 20 31 2c 32 31 10 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆R 1,21 ccccccccccccccccccccccc┆
0x09dc0…09de0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x1…]
0x09e00…09e20 (4, 1, 15) ExtentHdr {name=»SYSBÅND2«, typ=»K«, seg=»A«, next=0x00, basis=0x001b, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 000b,09 (0x00b900)}, f99=00 00 00 a8 00 00 00 00 00 00 ┆ ┆}
0x09e20…09e40 00 00 00 01 00 01 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 ┆ ┆
0x09e40…09e60 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 ┆ ┆
0x09e60…09e80 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x09e80…09ea0 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 ┆ ┆
0x09ea0…09ec0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff ┆ ┆
0x09ec0…09ee0 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x09ee0…09f00 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 ┆ ┆
0x09f00…09f20 (4, 1, 16) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x09f20…09f40 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 ┆ ┆
0x09f40…09f60 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 00 00 00 00 00 ┆ ┆
0x09f60…09f80 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x09f80…09fa0 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 ┆ ┆
0x09fa0…09fc0 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 00 20 20 20 ┆ ┆
0x09fc0…09fe0 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 ┆ ┆
[…0x1…]
0x0a000…0a020 (5, 0, 1) 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 ┆ ┆
0x0a020…0a040 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 ┆ ┆
[…0x1…]
0x0a060…0a080 20 20 20 20 00 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 ┆ ┆
0x0a080…0a0a0 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 ┆ ┆
0x0a0a0…0a0c0 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff ┆ ┆
0x0a0c0…0a0e0 00 00 00 01 00 01 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 ┆ ┆
0x0a0e0…0a100 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 ┆ ┆
0x0a100…0a120 (5, 0, 2) 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0a120…0a140 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 ┆ ┆
0x0a140…0a160 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff ┆ ┆
0x0a160…0a180 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0a180…0a1a0 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 ┆ ┆
0x0a1a0…0a1c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0a1c0…0a1e0 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 ┆ ┆
0x0a1e0…0a200 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 00 00 00 00 00 ┆ ┆
0x0a200…0a220 (5, 0, 3) 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0a220…0a240 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 ┆ ┆
0x0a240…0a260 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 00 20 20 20 ┆ ┆
0x0a260…0a280 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 ┆ ┆
[…0x1…]
0x0a2a0…0a2c0 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 ┆ ┆
0x0a2c0…0a2e0 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 ┆ ┆
[…0x1…]
0x0a300…0a320 (5, 0, 4) 20 20 20 20 00 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 ┆ ┆
0x0a320…0a340 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 ┆ ┆
0x0a340…0a360 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff ┆ ┆
0x0a360…0a380 00 00 00 01 00 01 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 ┆ ┆
0x0a380…0a3a0 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 ┆ ┆
0x0a3a0…0a3c0 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0a3c0…0a3e0 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 ┆ ┆
0x0a3e0…0a400 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff ┆ ┆
0x0a400…0a420 (5, 0, 5) 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0a420…0a440 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 ┆ ┆
0x0a440…0a460 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0a460…0a480 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 ┆ ┆
0x0a480…0a4a0 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 00 00 00 00 00 ┆ ┆
0x0a4a0…0a4c0 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0a4c0…0a4e0 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 ┆ ┆
0x0a4e0…0a500 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 00 20 20 20 ┆ ┆
0x0a500…0a520 (5, 0, 6) 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 ┆ ┆
[…0x1…]
0x0a540…0a560 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 ┆ ┆
0x0a560…0a580 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 ┆ ┆
[…0x1…]
0x0a5a0…0a5c0 20 20 20 20 00 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 ┆ ┆
0x0a5c0…0a5e0 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 ┆ ┆
0x0a5e0…0a600 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff ┆ ┆
0x0a600…0a620 (5, 0, 7) 00 00 00 01 00 01 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 ┆ ┆
0x0a620…0a640 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 ┆ ┆
0x0a640…0a660 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0a660…0a680 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 ┆ ┆
0x0a680…0a6a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff ┆ ┆
0x0a6a0…0a6c0 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0a6c0…0a6e0 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 ┆ ┆
0x0a6e0…0a700 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0a700…0a720 (5, 0, 8) 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 ┆ ┆
0x0a720…0a740 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 00 00 00 00 00 ┆ ┆
0x0a740…0a760 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0a760…0a780 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 ┆ ┆
0x0a780…0a7a0 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 00 20 20 20 ┆ ┆
0x0a7a0…0a7c0 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 ┆ ┆
[…0x1…]
0x0a7e0…0a800 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 ┆ ┆
0x0a800…0a820 (5, 0, 9) 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 ┆ ┆
[…0x1…]
0x0a840…0a860 20 20 20 20 00 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 ┆ ┆
0x0a860…0a880 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 ┆ ┆
0x0a880…0a8a0 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff ┆ ┆
0x0a8a0…0a8c0 00 00 00 01 00 01 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 ┆ ┆
0x0a8c0…0a8e0 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 ┆ ┆
0x0a8e0…0a900 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0a900…0a920 (5, 0, 10) 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 ┆ ┆
0x0a920…0a940 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff ┆ ┆
0x0a940…0a960 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0a960…0a980 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 ┆ ┆
0x0a980…0a9a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0a9a0…0a9c0 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 ┆ ┆
0x0a9c0…0a9e0 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 00 00 00 00 00 ┆ ┆
0x0a9e0…0aa00 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0aa00…0aa20 (5, 0, 11) 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 ┆ ┆
0x0aa20…0aa40 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 00 20 20 20 ┆ ┆
0x0aa40…0aa60 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 ┆ ┆
[…0x1…]
0x0aa80…0aaa0 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 ┆ ┆
0x0aaa0…0aac0 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 ┆ ┆
[…0x1…]
0x0aae0…0ab00 20 20 20 20 00 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 ┆ ┆
0x0ab00…0ab20 (5, 0, 12) 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 ┆ ┆
0x0ab20…0ab40 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff ┆ ┆
0x0ab40…0ab60 00 00 00 01 00 01 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 ┆ ┆
0x0ab60…0ab80 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 ┆ ┆
0x0ab80…0aba0 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0aba0…0abc0 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 ┆ ┆
0x0abc0…0abe0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff ┆ ┆
0x0abe0…0ac00 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0ac00…0ac20 (5, 0, 13) 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 ┆ ┆
0x0ac20…0ac40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0ac40…0ac60 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 ┆ ┆
0x0ac60…0ac80 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 00 00 00 00 00 ┆ ┆
0x0ac80…0aca0 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0aca0…0acc0 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 ┆ ┆
0x0acc0…0ace0 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 00 20 20 20 ┆ ┆
0x0ace0…0ad00 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 ┆ ┆
[…0x1…]
0x0ad20…0ad40 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 ┆ ┆
0x0ad40…0ad60 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 ┆ ┆
[…0x1…]
0x0ad80…0ada0 20 20 20 20 00 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 ┆ ┆
0x0ada0…0adc0 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 ┆ ┆
0x0adc0…0ade0 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff ┆ ┆
0x0ade0…0ae00 00 00 00 01 00 01 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 ┆ ┆
0x0ae00…0ae20 (5, 0, 15) 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 ┆ ┆
0x0ae20…0ae40 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0ae40…0ae60 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 ┆ ┆
0x0ae60…0ae80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff ┆ ┆
0x0ae80…0aea0 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0aea0…0aec0 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 ┆ ┆
0x0aec0…0aee0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0aee0…0af00 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 ┆ ┆
0x0af00…0af20 (5, 0, 16) 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 00 00 00 00 00 ┆ ┆
0x0af20…0af40 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0af40…0af60 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 ┆ ┆
0x0af60…0af80 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 00 20 20 20 ┆ ┆
0x0af80…0afa0 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 ┆ ┆
[…0x1…]
0x0afc0…0afe0 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 ┆ ┆
0x0afe0…0b000 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 ┆ ┆
[…0x1…]
0x0b020…0b040 20 20 20 20 00 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 ┆ ┆
0x0b040…0b060 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 ┆ ┆
0x0b060…0b080 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff ┆ ┆
0x0b080…0b0a0 00 00 00 01 00 01 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 ┆ ┆
0x0b0a0…0b0c0 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 ┆ ┆
0x0b0c0…0b0e0 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b0e0…0b100 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 ┆ ┆
0x0b100…0b120 (5, 1, 2) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff ┆ ┆
0x0b120…0b140 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b140…0b160 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 ┆ ┆
0x0b160…0b180 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b180…0b1a0 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 ┆ ┆
0x0b1a0…0b1c0 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 00 00 00 00 00 ┆ ┆
0x0b1c0…0b1e0 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b1e0…0b200 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 ┆ ┆
0x0b200…0b220 (5, 1, 3) 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 00 20 20 20 ┆ ┆
0x0b220…0b240 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 ┆ ┆
[…0x1…]
0x0b260…0b280 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 ┆ ┆
0x0b280…0b2a0 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 ┆ ┆
[…0x1…]
0x0b2c0…0b2e0 20 20 20 20 00 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 ┆ ┆
0x0b2e0…0b300 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 ┆ ┆
0x0b300…0b320 (5, 1, 4) 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff ┆ ┆
0x0b320…0b340 00 00 00 01 00 01 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 ┆ ┆
0x0b340…0b360 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 ┆ ┆
0x0b360…0b380 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b380…0b3a0 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 ┆ ┆
0x0b3a0…0b3c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff ┆ ┆
0x0b3c0…0b3e0 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b3e0…0b400 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 ┆ ┆
0x0b400…0b420 (5, 1, 5) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b420…0b440 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 ┆ ┆
0x0b440…0b460 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 00 00 00 00 00 ┆ ┆
0x0b460…0b480 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b480…0b4a0 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 ┆ ┆
0x0b4a0…0b4c0 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 00 20 20 20 ┆ ┆
0x0b4c0…0b4e0 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 ┆ ┆
[…0x1…]
0x0b500…0b520 (5, 1, 6) 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 ┆ ┆
0x0b520…0b540 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 ┆ ┆
[…0x1…]
0x0b560…0b580 20 20 20 20 00 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 ┆ ┆
0x0b580…0b5a0 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 ┆ ┆
0x0b5a0…0b5c0 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff ┆ ┆
0x0b5c0…0b5e0 00 00 00 01 00 01 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 ┆ ┆
0x0b5e0…0b600 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 ┆ ┆
0x0b600…0b620 (5, 1, 7) 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b620…0b640 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 ┆ ┆
0x0b640…0b660 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff ┆ ┆
0x0b660…0b680 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b680…0b6a0 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 ┆ ┆
0x0b6a0…0b6c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b6c0…0b6e0 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 ┆ ┆
0x0b6e0…0b700 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 00 00 00 00 00 ┆ ┆
0x0b700…0b720 (5, 1, 8) 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b720…0b740 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 ┆ ┆
0x0b740…0b760 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 00 20 20 20 ┆ ┆
0x0b760…0b780 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 ┆ ┆
[…0x1…]
0x0b7a0…0b7c0 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 ┆ ┆
0x0b7c0…0b7e0 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 ┆ ┆
[…0x1…]
0x0b800…0b820 (5, 1, 9) 20 20 20 20 00 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 ┆ ┆
0x0b820…0b840 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 ┆ ┆
0x0b840…0b860 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff ┆ ┆
0x0b860…0b880 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x4…]
0x0b900…0b920 (5, 1, 10) ExtentHdr {name=»TOPPKT1 «, typ=»K«, seg=»A«, next=0x00, basis=0x0003, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 000b,0c (0x00bc00)}, f99=41 0b 00 fe 00 00 00 00 00 00 ┆A ┆}
0x0b920…0b940 46 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆F0010 // -----------------------┆
0x0b940…0b960 2d 2d 20 74 6f 70 70 75 6e 6b 74 31 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆-- toppunkt1 -------------------┆
0x0b960…0b980 2d 2d 2d 2d 2d 2d 2d 46 36 30 30 32 30 20 2f 2f 20 55 64 72 65 67 6e 65 72 20 74 6f 70 70 75 6e ┆-------F60020 // Udregner toppun┆
0x0b980…0b9a0 6b 74 65 74 73 20 6b 6f 6f 72 64 69 6e 61 74 65 72 20 69 20 65 6e 20 70 61 72 61 62 65 6c 2e 36 ┆ktets koordinater i en parabel.6┆
0x0b9a0…0b9c0 0b 30 30 33 30 20 43 4c 45 41 52 20 0b 0f 30 30 34 30 20 43 55 52 53 4f 52 20 31 2c 36 0f 39 30 ┆ 0030 CLEAR 0040 CURSOR 1,6 90┆
0x0b9c0…0b9e0 30 35 30 20 50 52 49 4e 54 20 22 20 41 6e 64 65 6e 67 72 61 64 73 70 6f 6c 79 6e 6f 6d 69 65 74 ┆050 PRINT " Andengradspolynomiet┆
0x0b9e0…0ba00 20 20 79 20 3d 20 41 78 32 20 2b 20 42 78 20 2b 20 43 20 20 20 20 20 22 39 39 30 30 36 30 20 50 ┆ y = Ax2 + Bx + C "990060 P┆
0x0ba00…0ba20 (5, 1, 11) 52 49 4e 54 20 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 ┆RINT "--------------------------┆
0x0ba20…0ba40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 20 20 22 39 0b 30 30 37 30 20 50 52 49 4e 54 20 ┆-------------- "9 0070 PRINT ┆
0x0ba40…0ba60 0b 32 30 30 38 30 20 49 4e 50 55 54 20 22 20 49 6e 64 74 61 73 74 20 41 3a 20 20 20 20 20 20 20 ┆ 20080 INPUT " Indtast A: ┆
0x0ba60…0ba80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 41 32 0b 30 30 39 30 20 50 52 49 4e 54 ┆ ":A2 0090 PRINT┆
0x0ba80…0baa0 20 0b 32 30 31 30 30 20 49 4e 50 55 54 20 22 20 49 6e 64 74 61 73 74 20 42 3a 20 20 20 20 20 20 ┆ 20100 INPUT " Indtast B: ┆
0x0baa0…0bac0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 42 32 0b 30 31 31 30 20 50 52 49 4e ┆ ":B2 0110 PRIN┆
0x0bac0…0bae0 54 20 0b 32 30 31 32 30 20 49 4e 50 55 54 20 22 20 49 6e 64 74 61 73 74 20 43 3a 20 20 20 20 20 ┆T 20120 INPUT " Indtast C: ┆
0x0bae0…0bb00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 43 32 19 30 31 33 30 20 44 49 53 ┆ ":C2 0130 DIS┆
0x0bb00…0bb20 (5, 1, 12) 4b 52 49 4d 49 3a 3d 42 2a 2a 32 2d 34 2a 41 2a 43 19 0b 30 31 34 30 20 50 52 49 4e 54 20 0b 1f ┆KRIMI:=B**2-4*A*C 0140 PRINT ┆
0x0bb20…0bb40 30 31 35 30 20 58 3a 3d 2d 42 2f 32 2f 41 3b 59 3a 3d 2d 44 49 53 4b 52 49 4d 49 2f 34 2f 41 1f ┆0150 X:=-B/2/A;Y:=-DISKRIMI/4/A ┆
0x0bb40…0bb60 0b 30 31 36 30 20 50 52 49 4e 54 20 0b 3e 30 31 37 30 20 50 52 49 4e 54 20 22 54 6f 70 70 75 6e ┆ 0160 PRINT >0170 PRINT "Toppun┆
0x0bb60…0bb80 6b 74 65 74 20 66 6f 72 20 79 20 3d 20 41 78 32 20 2b 20 42 78 20 2b 20 43 20 3a 20 20 20 28 22 ┆ktet for y = Ax2 + Bx + C : ("┆
0x0bb80…0bba0 3b 58 3b 22 2c 22 3b 59 3b 22 29 22 3e 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆;X;",";Y;")"> ccccccccccccccccc┆
0x0bba0…0bbc0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x2…]
0x0bc00…0bc20 (5, 1, 13) ExtentHdr {name=»SPIL1_KO«, typ=»K«, seg=»A«, next=0x00, basis=0x0008, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 000c,04 (0x00c400)}, f99=41 0b 00 fe 00 50 49 4c 31 5f ┆A PIL1_┆}
0x0bc20…0bc40 43 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆C0010 // -----------------------┆
0x0bc40…0bc60 2d 73 70 69 6c 31 5f 6b 6f 72 74 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆-spil1_kort --------------------┆
0x0bc60…0bc80 2d 2d 2d 2d 43 3c 30 30 32 30 20 2f 2f 20 50 72 6f 67 72 61 6d 6d 65 74 20 75 64 73 6b 72 69 76 ┆----C<0020 // Programmet udskriv┆
0x0bc80…0bca0 65 72 20 34 20 2a 20 31 33 20 6b 6f 72 74 2c 20 75 64 64 65 6c 74 20 74 69 6c 66 7b 6c 64 69 67 ┆er 4 * 13 kort, uddelt tilfældig┆
0x0bca0…0bcc0 74 2e 3c 30 30 30 33 30 20 44 49 4d 20 4b 4f 52 54 24 28 35 32 29 20 4f 46 20 32 30 2c 43 41 52 ┆t.<00030 DIM KORT$(52) OF 20,CAR┆
0x0bcc0…0bce0 44 28 35 32 29 2c 4d 4f 54 24 28 35 32 29 20 4f 46 20 33 30 30 08 30 30 34 30 20 2f 2f 20 08 11 ┆D(52),MOT$(52) OF 300 0040 // ┆
0x0bce0…0bd00 30 30 34 35 20 52 4e 44 53 45 45 44 3a 3d 34 2e 35 11 0b 30 30 35 30 20 43 4c 45 41 52 20 0b 13 ┆0045 RNDSEED:=4.5 0050 CLEAR ┆
0x0bd00…0bd20 (5, 1, 14) 30 30 36 30 20 49 3a 3d 31 3b 54 5b 4c 4c 45 52 3a 3d 30 13 0c 30 30 37 30 20 52 45 50 45 41 54 ┆0060 I:=1;TÆLLER:=0 0070 REPEAT┆
0x0bd20…0bd40 20 0c 12 30 30 38 30 20 52 45 41 44 20 4b 4f 52 54 24 28 49 29 12 0b 30 30 39 30 20 49 3a 3d 49 ┆ 0080 READ KORT$(I) 0090 I:=I┆
0x0bd40…0bd60 2b 31 0b 0f 30 31 30 30 20 55 4e 54 49 4c 20 49 3d 35 33 0f 08 30 31 31 30 20 2f 2f 20 08 10 30 ┆+1 0100 UNTIL I=53 0110 // 0┆
0x0bd60…0bd80 31 32 30 20 43 55 52 53 4f 52 20 32 35 2c 32 10 23 30 31 33 30 20 50 52 49 4e 54 20 22 20 53 20 ┆120 CURSOR 25,2 #0130 PRINT " S ┆
0x0bd80…0bda0 50 20 49 20 4c 20 4c 20 45 20 4b 20 4f 20 52 20 54 20 3a 22 23 10 30 31 34 30 20 43 55 52 53 4f ┆P I L L E K O R T :"# 0140 CURSO┆
0x0bda0…0bdc0 52 20 32 35 2c 33 10 23 30 31 35 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆R 25,3 #0150 PRINT "------------┆
0x0bdc0…0bde0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 23 0f 30 31 36 30 20 43 55 52 53 4f 52 20 31 2c 35 0f 4d 30 31 ┆----------"# 0160 CURSOR 1,5 M01┆
0x0bde0…0be00 37 30 20 50 52 49 4e 54 20 22 20 20 4e 20 4f 20 52 20 44 20 3a 20 20 20 20 20 20 20 20 20 20 20 ┆70 PRINT " N O R D : ┆
0x0be00…0be20 (5, 1, 15) 20 5c 20 53 20 54 20 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 53 20 59 20 44 20 3a 20 20 20 20 ┆ Ø S T : S Y D : ┆
0x0be20…0be40 20 20 20 20 20 20 20 20 20 22 3b 4d 16 30 31 37 35 20 50 52 49 4e 54 20 22 56 20 45 20 53 20 54 ┆ ";M 0175 PRINT "V E S T┆
0x0be40…0be60 20 3a 22 16 4d 30 31 38 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ :" M0180 PRINT "---------------┆
0x0be60…0be80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x0be80…0bea0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 3b 4d 16 30 31 38 35 20 50 52 49 4e 54 20 22 ┆----------------";M 0185 PRINT "┆
0x0bea0…0bec0 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 16 08 30 31 39 30 20 2f 2f 20 08 0c 30 32 31 30 20 52 45 50 45 41 ┆---------" 0190 // 0210 REPEA┆
0x0bec0…0bee0 54 20 0c 11 30 32 32 30 20 41 3a 3d 52 4e 44 28 31 2c 35 32 29 11 17 30 32 33 30 20 49 46 20 43 ┆T 0220 A:=RND(1,52) 0230 IF C┆
0x0bee0…0bf00 41 52 44 28 41 29 3d 30 20 54 48 45 4e 20 17 37 30 32 34 30 20 43 41 52 44 28 41 29 3a 3d 31 3b ┆ARD(A)=0 THEN 70240 CARD(A):=1;┆
0x0bf00…0bf20 (5, 1, 16) 54 5b 4c 4c 45 52 3a 3d 54 5b 4c 4c 45 52 2b 31 3b 4d 4f 54 24 28 54 5b 4c 4c 45 52 29 3a 3d 4b ┆TÆLLER:=TÆLLER+1;MOT$(TÆLLER):=K┆
0x0bf20…0bf40 4f 52 54 24 28 41 29 37 3c 30 32 35 30 20 43 55 52 53 4f 52 20 28 28 28 54 5b 4c 4c 45 52 2d 31 ┆ORT$(A)7<0250 CURSOR (((TÆLLER-1┆
0x0bf40…0bf60 29 20 44 49 56 20 31 33 29 2a 32 30 29 2b 33 2c 28 28 54 5b 4c 4c 45 52 2d 31 29 20 4d 4f 44 20 ┆) DIV 13)*20)+3,((TÆLLER-1) MOD ┆
0x0bf60…0bf80 31 33 2b 38 29 3c 13 30 32 36 30 20 50 52 49 4e 54 20 4b 4f 52 54 24 28 41 29 13 0b 30 32 37 30 ┆13+8)< 0260 PRINT KORT$(A) 0270┆
0x0bf80…0bfa0 20 45 4e 44 49 46 20 0b 14 30 32 38 30 20 55 4e 54 49 4c 20 54 5b 4c 4c 45 52 3d 35 32 14 10 30 ┆ ENDIF 0280 UNTIL TÆLLER=52 0┆
0x0bfa0…0bfc0 33 31 30 20 43 55 52 53 4f 52 20 33 2c 32 33 10 09 30 33 32 30 20 45 4e 44 20 09 08 30 33 33 30 ┆310 CURSOR 3,23 0320 END 0330┆
0x0bfc0…0bfe0 20 2f 2f 20 08 37 30 33 34 30 20 44 41 54 41 20 22 73 70 61 72 2d 65 73 22 2c 22 73 70 61 72 2d ┆ // 70340 DATA "spar-es","spar-┆
0x0bfe0…0c000 32 22 2c 22 73 70 61 72 2d 33 22 2c 22 73 70 61 72 2d 34 22 2c 22 73 70 61 72 2d 35 22 37 37 30 ┆2","spar-3","spar-4","spar-5"770┆
0x0c000…0c020 (6, 0, 1) 33 35 30 20 44 41 54 41 20 22 73 70 61 72 2d 36 22 2c 22 73 70 61 72 2d 37 22 2c 22 73 70 61 72 ┆350 DATA "spar-6","spar-7","spar┆
0x0c020…0c040 2d 38 22 2c 22 73 70 61 72 2d 39 22 2c 22 73 70 61 72 2d 31 30 22 37 2f 30 33 36 30 20 44 41 54 ┆-8","spar-9","spar-10"7/0360 DAT┆
0x0c040…0c060 41 20 22 73 70 61 72 2d 6b 6e 7b 67 74 22 2c 22 73 70 61 72 2d 64 61 6d 65 22 2c 22 73 70 61 72 ┆A "spar-knægt","spar-dame","spar┆
0x0c060…0c080 2d 6b 6f 6e 67 65 22 2f 08 30 33 37 30 20 2f 2f 20 08 37 30 33 38 30 20 44 41 54 41 20 22 6b 6c ┆-konge"/ 0370 // 70380 DATA "kl┆
0x0c080…0c0a0 7c 72 2d 65 73 22 2c 22 6b 6c 7c 72 2d 32 22 2c 22 6b 6c 7c 72 2d 33 22 2c 22 6b 6c 7c 72 2d 34 ┆ør-es","klør-2","klør-3","klør-4┆
0x0c0a0…0c0c0 22 2c 22 6b 6c 7c 72 2d 35 22 37 37 30 33 39 30 20 44 41 54 41 20 22 6b 6c 7c 72 2d 36 22 2c 22 ┆","klør-5"770390 DATA "klør-6","┆
0x0c0c0…0c0e0 6b 6c 7c 72 2d 37 22 2c 22 6b 6c 7c 72 2d 38 22 2c 22 6b 6c 7c 72 2d 39 22 2c 22 6b 6c 7c 72 2d ┆klør-7","klør-8","klør-9","klør-┆
0x0c0e0…0c100 31 30 22 37 2f 30 34 30 30 20 44 41 54 41 20 22 6b 6c 7c 72 2d 6b 6e 7b 67 74 22 2c 22 6b 6c 7c ┆10"7/0400 DATA "klør-knægt","klø┆
0x0c100…0c120 (6, 0, 2) 72 2d 64 61 6d 65 22 2c 22 6b 6c 7c 72 2d 6b 6f 6e 67 65 22 2f 08 30 34 31 30 20 2f 2f 20 08 46 ┆r-dame","klør-konge"/ 0410 // F┆
0x0c120…0c140 30 34 32 30 20 44 41 54 41 20 22 68 6a 65 72 74 65 72 2d 65 73 22 2c 22 68 6a 65 72 74 65 72 2d ┆0420 DATA "hjerter-es","hjerter-┆
0x0c140…0c160 32 22 2c 22 68 6a 65 72 74 65 72 2d 33 22 2c 22 68 6a 65 72 74 65 72 2d 34 22 2c 22 68 6a 65 72 ┆2","hjerter-3","hjerter-4","hjer┆
0x0c160…0c180 74 65 72 2d 35 22 46 46 30 34 33 30 20 44 41 54 41 20 22 68 6a 65 72 74 65 72 2d 36 22 2c 22 68 ┆ter-5"FF0430 DATA "hjerter-6","h┆
0x0c180…0c1a0 6a 65 72 74 65 72 2d 37 22 2c 22 68 6a 65 72 74 65 72 2d 38 22 2c 22 68 6a 65 72 74 65 72 2d 39 ┆jerter-7","hjerter-8","hjerter-9┆
0x0c1a0…0c1c0 22 2c 22 68 6a 65 72 74 65 72 2d 31 30 22 46 38 30 34 34 30 20 44 41 54 41 20 22 68 6a 65 72 74 ┆","hjerter-10"F80440 DATA "hjert┆
0x0c1c0…0c1e0 65 72 2d 6b 6e 7b 67 74 22 2c 22 68 6a 65 72 74 65 72 2d 64 61 6d 65 22 2c 22 68 6a 65 72 74 65 ┆er-knægt","hjerter-dame","hjerte┆
0x0c1e0…0c200 72 2d 6b 6f 6e 67 65 22 38 08 30 34 35 30 20 2f 2f 20 08 3c 30 34 36 30 20 44 41 54 41 20 22 72 ┆r-konge"8 0450 // <0460 DATA "r┆
0x0c200…0c220 (6, 0, 3) 75 64 65 72 2d 65 73 22 2c 22 72 75 64 65 72 2d 32 22 2c 22 72 75 64 65 72 2d 33 22 2c 22 72 75 ┆uder-es","ruder-2","ruder-3","ru┆
0x0c220…0c240 64 65 72 2d 34 22 2c 22 72 75 64 65 72 2d 35 22 3c 3c 30 34 37 30 20 44 41 54 41 20 22 72 75 64 ┆der-4","ruder-5"<<0470 DATA "rud┆
0x0c240…0c260 65 72 2d 36 22 2c 22 72 75 64 65 72 2d 37 22 2c 22 72 75 64 65 72 2d 38 22 2c 22 72 75 64 65 72 ┆er-6","ruder-7","ruder-8","ruder┆
0x0c260…0c280 2d 39 22 2c 22 72 75 64 65 72 2d 31 30 22 3c 32 30 34 38 30 20 44 41 54 41 20 22 72 75 64 65 72 ┆-9","ruder-10"<20480 DATA "ruder┆
0x0c280…0c2a0 2d 6b 6e 7b 67 74 22 2c 22 72 75 64 65 72 2d 64 61 6d 65 22 2c 22 72 75 64 65 72 2d 6b 6f 6e 67 ┆-knægt","ruder-dame","ruder-kong┆
0x0c2a0…0c2c0 65 22 32 05 30 34 39 30 20 05 17 30 35 30 30 20 50 52 4f 43 20 52 4e 44 28 4c 4f 57 2c 48 49 47 ┆e"2 0490 0500 PROC RND(LOW,HIG┆
0x0c2c0…0c2e0 48 29 17 1a 30 35 31 30 20 52 4e 44 58 3a 3d 52 4e 44 53 45 45 44 2b 33 2e 31 34 31 35 39 1a 1c ┆H) 0510 RNDX:=RNDSEED+3.14159 ┆
0x0c2e0…0c300 30 35 32 30 20 52 4e 44 58 3a 3d 45 58 50 28 35 2e 30 2a 4c 4e 28 52 4e 44 58 29 29 1c 1c 30 35 ┆0520 RNDX:=EXP(5.0*LN(RNDX)) 05┆
0x0c300…0c320 (6, 0, 4) 33 30 20 52 4e 44 53 45 45 44 3a 3d 52 4e 44 58 2d 49 4e 54 28 52 4e 44 58 29 1c 20 30 35 34 30 ┆30 RNDSEED:=RNDX-INT(RNDX) 0540┆
0x0c320…0c340 20 52 4e 44 3a 3d 52 4e 44 53 45 45 44 2a 28 48 49 47 48 2d 4c 4f 57 29 2b 4c 4f 57 20 10 30 35 ┆ RND:=RNDSEED*(HIGH-LOW)+LOW 05┆
0x0c340…0c360 35 30 20 45 4e 44 50 52 4f 43 20 52 4e 44 10 00 00 44 53 45 45 44 2b 33 2e 31 34 31 35 39 1a 1c ┆50 ENDPROC RND DSEED+3.14159 ┆
0x0c360…0c380 30 35 32 30 20 52 4e 44 58 3a 3d 45 58 50 28 35 2e 30 2a 4c 4e 28 52 4e 44 58 29 29 1c 1c 30 35 ┆0520 RNDX:=EXP(5.0*LN(RNDX)) 05┆
0x0c380…0c3a0 33 30 20 52 4e 44 53 45 45 44 3a 3d 52 4e 44 58 2d 49 4e 54 28 52 4e 44 58 29 1c 20 30 35 34 30 ┆30 RNDSEED:=RNDX-INT(RNDX) 0540┆
0x0c3a0…0c3c0 20 52 4e 44 3a 3d 52 4e 44 53 45 45 44 2a 28 48 49 47 48 2d 4c 4f 57 29 2b 4c 4f 57 20 10 30 35 ┆ RND:=RNDSEED*(HIGH-LOW)+LOW 05┆
0x0c3c0…0c3e0 35 30 20 45 4e 44 50 52 4f 43 20 52 4e 44 10 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆50 ENDPROC RND ccccccccccccccc┆
0x0c3e0…0c400 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
0x0c400…0c420 (6, 0, 5) ExtentHdr {name=»FUNC_HER«, typ=»K«, seg=»A«, next=0x00, basis=0x0006, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 000c,0a (0x00ca00)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x0c420…0c440 44 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆D0010 // -----------------------┆
0x0c440…0c460 2d 2d 20 46 75 6e 63 5f 68 65 72 6f 6e 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆-- Func_heron ------------------┆
0x0c460…0c480 2d 2d 2d 2d 2d 44 08 30 30 32 30 20 2f 2f 20 08 15 30 30 32 35 20 54 52 55 45 3a 3d 31 3b 46 41 ┆-----D 0020 // 0025 TRUE:=1;FA┆
0x0c480…0c4a0 4c 53 45 3a 3d 30 15 1d 30 30 33 30 20 50 52 4f 43 20 46 4e 54 52 45 4b 41 4e 54 5f 4f 4b 28 41 ┆LSE:=0 0030 PROC FNTREKANT_OK(A┆
0x0c4a0…0c4c0 2c 42 2c 43 29 1d 0d 30 30 34 30 20 4f 4b 3a 3d 54 52 55 45 0d 27 30 30 35 30 20 49 46 20 41 2b ┆,B,C) 0040 OK:=TRUE '0050 IF A+┆
0x0c4c0…0c4e0 42 3c 3d 43 20 4f 52 20 42 2b 43 3c 3d 41 20 54 48 45 4e 20 4f 4b 3a 3d 46 41 4c 53 45 27 15 30 ┆B<=C OR B+C<=A THEN OK:=FALSE' 0┆
0x0c4e0…0c500 30 36 30 20 46 4e 54 52 45 4b 41 4e 54 5f 4f 4b 3a 3d 4f 4b 15 19 30 30 37 30 20 45 4e 44 50 52 ┆060 FNTREKANT_OK:=OK 0070 ENDPR┆
0x0c500…0c520 (6, 0, 6) 4f 43 20 46 4e 54 52 45 4b 41 4e 54 5f 4f 4b 19 08 30 30 38 30 20 2f 2f 20 08 18 30 30 39 30 20 ┆OC FNTREKANT_OK 0080 // 0090 ┆
0x0c520…0c540 50 52 4f 43 20 46 4e 41 52 45 41 4c 28 41 2c 42 2c 43 29 18 11 30 31 30 30 20 53 3a 3d 28 41 2b ┆PROC FNAREAL(A,B,C) 0100 S:=(A+┆
0x0c540…0c560 42 2b 43 29 2f 32 11 26 30 31 31 30 20 46 4e 41 52 45 41 4c 3a 3d 53 51 52 28 53 2a 28 53 2d 41 ┆B+C)/2 &0110 FNAREAL:=SQR(S*(S-A┆
0x0c560…0c580 29 2a 28 53 2d 42 29 2a 28 53 2d 43 29 29 26 14 30 31 32 30 20 45 4e 44 50 52 4f 43 20 46 4e 41 ┆)*(S-B)*(S-C))& 0120 ENDPROC FNA┆
0x0c580…0c5a0 52 45 41 4c 14 08 30 31 33 30 20 2f 2f 20 08 0b 30 31 34 30 20 43 4c 45 41 52 20 0b 0b 30 31 34 ┆REAL 0130 // 0140 CLEAR 014┆
0x0c5a0…0c5c0 35 20 50 52 49 4e 54 20 0b 44 30 31 35 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 64 65 ┆5 PRINT D0150 INPUT "Indtast de┆
0x0c5c0…0c5e0 20 74 72 65 20 73 69 64 65 72 20 69 20 65 6e 20 74 72 65 6b 61 6e 74 3a 20 20 20 22 3a 53 49 44 ┆ tre sider i en trekant: ":SID┆
0x0c5e0…0c600 45 31 2c 53 49 44 45 32 2c 53 49 44 45 33 44 4c 30 31 36 30 20 50 52 49 4e 54 20 55 53 49 4e 47 ┆E1,SIDE2,SIDE3DL0160 PRINT USING┆
0x0c600…0c620 (6, 0, 7) 20 22 53 69 64 65 72 6e 65 20 65 72 3a 20 23 23 23 23 2e 23 23 20 2d 20 23 23 23 23 2e 23 23 20 ┆ "Siderne er: ####.## - ####.## ┆
0x0c620…0c640 2d 20 23 23 23 23 2e 23 23 22 3a 53 49 44 45 31 3b 53 49 44 45 32 3b 53 49 44 45 33 4c 2d 30 31 ┆- ####.##":SIDE1;SIDE2;SIDE3L-01┆
0x0c640…0c660 37 30 20 49 46 20 46 4e 54 52 45 4b 41 4e 54 5f 4f 4b 28 53 49 44 45 31 2c 53 49 44 45 32 2c 53 ┆70 IF FNTREKANT_OK(SIDE1,SIDE2,S┆
0x0c660…0c680 49 44 45 33 29 20 54 48 45 4e 20 2d 4b 30 31 38 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 54 ┆IDE3) THEN -K0180 PRINT USING "T┆
0x0c680…0c6a0 72 65 6b 61 6e 74 65 6e 73 20 61 72 65 61 6c 20 65 72 3a 20 23 23 23 23 23 2e 23 23 22 3a 46 4e ┆rekantens areal er: #####.##":FN┆
0x0c6a0…0c6c0 41 52 45 41 4c 28 53 49 44 45 31 2c 53 49 44 45 32 2c 53 49 44 45 33 29 4b 0a 30 31 39 30 20 45 ┆AREAL(SIDE1,SIDE2,SIDE3)K 0190 E┆
0x0c6c0…0c6e0 4c 53 45 20 0a 27 30 32 30 30 20 50 52 49 4e 54 20 22 54 72 65 6b 61 6e 74 65 6e 20 65 6b 73 69 ┆LSE '0200 PRINT "Trekanten eksi┆
0x0c6e0…0c700 73 74 65 72 65 72 20 69 6b 6b 65 2e 22 27 0b 30 32 31 30 20 45 4e 44 49 46 20 0b 00 00 63 63 63 ┆sterer ikke."' 0210 ENDIF ccc┆
0x0c700…0c800 (6, 0, 8) 0x63[0x100]
[…0x2…]
0x0ca00…0ca20 (6, 0, 11) ExtentHdr {name=»TESTFIL2«, typ=»K«, seg=»A«, next=0x00, basis=0x0013, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 000d,0d (0x00dd00)}, f99=41 0c 00 5f 00 00 00 00 00 00 ┆A _ ┆}
0x0ca20…0ca40 00 01 62 31 00 68 61 6e 73 00 76 65 73 74 65 72 67 61 64 65 00 64 61 74 61 62 6f 72 67 00 20 20 ┆ b1 hans vestergade databorg ┆
0x0ca40…0ca60 64 61 74 61 62 6f 72 67 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆databorg ┆
0x0ca60…0ca80 20 20 20 20 20 20 20 20 20 20 20 20 00 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x0ca80…0caa0 02 31 30 20 62 00 48 61 6e 6e 65 20 4b 72 69 73 74 65 6e 73 65 6e 00 42 69 74 67 61 64 65 20 34 ┆ 10 b Hanne Kristensen Bitgade 4┆
0x0caa0…0cac0 34 00 30 31 30 31 20 20 42 69 74 74 65 72 75 70 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆4 0101 Bitterup ┆
0x0cac0…0cae0 20 20 20 20 20 20 20 20 20 20 20 00 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 03 ┆ ┆
0x0cae0…0cb00 31 30 20 62 00 4d 61 72 74 69 6e 20 48 61 6e 73 65 6e 00 4d 69 6b 6b 65 6c 73 76 65 6a 20 34 38 ┆10 b Martin Hansen Mikkelsvej 48┆
0x0cb00…0cb20 (6, 0, 12) 00 35 35 35 35 20 20 53 6f 76 65 62 79 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 5555 Soveby ┆
0x0cb20…0cb40 20 20 20 20 20 20 20 20 20 20 00 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 63 63 63 ┆ ccc┆
0x0cb40…0cb60 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x5…]
0x0cc00…0cd00 (6, 0, 13) 0x63[0x100]
[…0x10…]
0x0dd00…0dd20 (6, 1, 14) ExtentHdr {name=»UDLAND «, typ=»K«, seg=»A«, next=0x01, basis=0x0008, nextext={DA 000e,05 (0x00e500)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 000e,05 (0x00e500)}, f99=41 0c 00 fe 00 44 4c 41 4e 44 ┆A DLAND┆}
0x0dd20…0dd40 49 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆I0010 // -----------------------┆
0x0dd40…0dd60 2d 2d 2d 2d 2d 20 75 64 6c 61 6e 64 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆----- udland -------------------┆
0x0dd60…0dd80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 08 30 30 32 30 20 2f 2f 20 08 17 30 30 32 35 20 49 4e 54 45 47 ┆----------I 0020 // 0025 INTEG┆
0x0dd80…0dda0 45 52 20 54 52 55 45 2c 46 41 4c 53 45 17 15 30 30 32 36 20 54 52 55 45 3a 3d 31 3b 46 41 4c 53 ┆ER TRUE,FALSE 0026 TRUE:=1;FALS┆
0x0dda0…0ddc0 45 3a 3d 30 15 0b 30 30 33 30 20 43 4c 45 41 52 20 0b 0f 30 30 34 30 20 43 55 52 53 4f 52 20 35 ┆E:=0 0030 CLEAR 0040 CURSOR 5┆
0x0ddc0…0dde0 2c 35 0f 38 30 30 35 30 20 50 52 49 4e 54 20 22 42 20 52 20 45 20 56 20 50 20 4f 20 53 20 54 20 ┆,5 80050 PRINT "B R E V P O S T ┆
0x0dde0…0de00 20 20 54 20 49 20 4c 20 20 20 55 20 44 20 4c 20 41 20 4e 20 44 20 45 20 54 20 2e 22 38 0f 30 30 ┆ T I L U D L A N D E T ."8 00┆
0x0de00…0de20 (6, 1, 15) 36 30 20 43 55 52 53 4f 52 20 35 2c 36 0f 38 30 30 37 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d ┆60 CURSOR 5,6 80070 PRINT "-----┆
0x0de20…0de40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x0de40…0de60 2d 2d 2d 2d 2d 2d 22 38 10 30 30 38 30 20 43 55 52 53 4f 52 20 35 2c 31 32 10 3d 30 30 39 30 20 ┆------"8 0080 CURSOR 5,12 =0090 ┆
0x0de60…0de80 50 52 49 4e 54 20 22 4e 6f 72 64 65 6e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ┆PRINT "Norden...................┆
0x0de80…0dea0 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 54 61 73 74 20 31 2e 22 3d 10 30 31 30 30 20 43 ┆................Tast 1."= 0100 C┆
0x0dea0…0dec0 55 52 53 4f 52 20 35 2c 31 34 10 3d 30 31 31 30 20 50 52 49 4e 54 20 22 43 45 50 54 2d 6c 61 6e ┆URSOR 5,14 =0110 PRINT "CEPT-lan┆
0x0dec0…0dee0 64 65 6e 65 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ┆dene............................┆
0x0dee0…0df00 2e 54 61 73 74 20 32 2e 22 3d 10 30 31 32 30 20 43 55 52 53 4f 52 20 35 2c 31 36 10 3d 30 31 33 ┆.Tast 2."= 0120 CURSOR 5,16 =013┆
0x0df00…0df20 (6, 1, 16) 30 20 50 52 49 4e 54 20 22 5c 76 72 69 67 65 20 75 64 6c 61 6e 64 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ┆0 PRINT "Øvrige udland..........┆
0x0df20…0df40 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 54 61 73 74 20 33 2e 22 3d 0b 30 31 34 30 ┆..................Tast 3."= 0140┆
0x0df40…0df60 20 50 52 49 4e 54 20 0b 10 30 31 35 30 20 43 55 52 53 4f 52 20 35 2c 31 38 10 3f 30 31 36 30 20 ┆ PRINT 0150 CURSOR 5,18 ?0160 ┆
0x0df60…0df80 49 4e 50 55 54 20 22 4e 75 6d 6d 65 72 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆INPUT "Nummer: ┆
0x0df80…0dfa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 54 41 4c 3f 10 30 31 37 30 ┆ ":TAL? 0170┆
0x0dfa0…0dfc0 20 43 55 52 53 4f 52 20 35 2c 32 31 10 40 30 31 38 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 ┆ CURSOR 5,21 @0180 INPUT "Indtas┆
0x0dfc0…0dfe0 74 20 62 72 65 76 65 74 73 20 76 7b 67 74 3a 20 28 69 6b 6b 65 20 6f 76 65 72 20 32 30 30 30 20 ┆t brevets vægt: (ikke over 2000 ┆
0x0dfe0…0e000 67 2e 29 20 20 20 20 20 22 3a 56 5b 47 54 40 0b 30 31 39 30 20 50 52 49 4e 54 20 0b 13 30 32 30 ┆g.) ":VÆGT@ 0190 PRINT 020┆
0x0e000…0e020 (7, 0, 1) 30 20 49 46 20 54 41 4c 3d 31 20 54 48 45 4e 20 13 12 30 32 31 30 20 43 41 53 45 20 54 52 55 45 ┆0 IF TAL=1 THEN 0210 CASE TRUE┆
0x0e020…0e040 20 4f 46 20 12 12 30 32 32 30 20 57 48 45 4e 20 56 5b 47 54 3c 3d 32 30 12 0f 30 32 33 30 20 50 ┆ OF 0220 WHEN VÆGT<=20 0230 P┆
0x0e040…0e060 4f 52 54 4f 3a 3d 32 35 30 0f 13 30 32 34 30 20 57 48 45 4e 20 56 5b 47 54 3c 3d 31 30 30 13 0f ┆ORTO:=250 0240 WHEN VÆGT<=100 ┆
0x0e060…0e080 30 32 35 30 20 50 4f 52 54 4f 3a 3d 33 35 30 0f 13 30 32 36 30 20 57 48 45 4e 20 56 5b 47 54 3c ┆0250 PORTO:=350 0260 WHEN VÆGT<┆
0x0e080…0e0a0 3d 32 35 30 13 0f 30 32 37 30 20 50 4f 52 54 4f 3a 3d 35 30 30 0f 13 30 32 38 30 20 57 48 45 4e ┆=250 0270 PORTO:=500 0280 WHEN┆
0x0e0a0…0e0c0 20 56 5b 47 54 3c 3d 35 30 30 13 0f 30 32 39 30 20 50 4f 52 54 4f 3a 3d 38 30 30 0f 14 30 33 30 ┆ VÆGT<=500 0290 PORTO:=800 030┆
0x0e0c0…0e0e0 30 20 57 48 45 4e 20 56 5b 47 54 3c 3d 31 30 30 30 14 10 30 33 31 30 20 50 4f 52 54 4f 3a 3d 33 ┆0 WHEN VÆGT<=1000 0310 PORTO:=3┆
0x0e0e0…0e100 30 30 30 10 14 30 33 32 30 20 57 48 45 4e 20 56 5b 47 54 3c 3d 32 30 30 30 14 10 30 33 33 30 20 ┆000 0320 WHEN VÆGT<=2000 0330 ┆
0x0e100…0e120 (7, 0, 2) 50 4f 52 54 4f 3a 3d 39 30 30 30 10 0f 30 33 34 30 20 4f 54 48 45 52 57 49 53 45 20 0f 0b 30 33 ┆PORTO:=9000 0340 OTHERWISE 03┆
0x0e120…0e140 35 30 20 50 52 49 4e 54 20 0b 43 30 33 36 30 20 50 52 49 4e 54 20 22 20 20 20 20 44 65 74 74 65 ┆50 PRINT C0360 PRINT " Dette┆
0x0e140…0e160 20 62 72 65 76 20 68 7c 72 65 72 20 76 69 73 74 20 75 6e 64 65 72 20 70 61 6b 6b 65 70 6f 73 74 ┆ brev hører vist under pakkepost┆
0x0e160…0e180 65 6e 2e 20 50 72 7c 76 20 64 65 72 2e 22 43 10 30 33 37 30 20 43 55 52 53 4f 52 20 35 2c 32 33 ┆en. Prøv der."C 0370 CURSOR 5,23┆
0x0e180…0e1a0 10 09 30 33 38 30 20 45 4e 44 20 09 0d 30 33 39 30 20 45 4e 44 43 41 53 45 20 0d 0b 30 34 30 30 ┆ 0380 END 0390 ENDCASE 0400┆
0x0e1a0…0e1c0 20 50 52 49 4e 54 20 0b 43 30 34 31 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 20 20 20 20 42 ┆ PRINT C0410 PRINT USING " B┆
0x0e1c0…0e1e0 72 65 76 65 74 73 20 76 7b 67 74 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 23 23 23 23 ┆revets vægt: #####┆
0x0e1e0…0e200 23 23 20 67 2e 20 22 3a 56 5b 47 54 43 48 30 34 32 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 ┆## g. ":VÆGTCH0420 PRINT USING "┆
0x0e200…0e220 (7, 0, 3) 20 20 20 20 50 6f 72 74 6f 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 ┆ Porto: #┆
0x0e220…0e240 23 23 23 23 2e 23 23 20 6b 72 2e 22 3a 50 4f 52 54 4f 2f 31 30 30 48 0a 30 34 33 30 20 45 4c 53 ┆####.## kr.":PORTO/100H 0430 ELS┆
0x0e240…0e260 45 20 0a 1c 30 34 34 30 20 49 46 20 54 41 4c 3d 32 20 4f 52 20 54 41 4c 3d 33 20 54 48 45 4e 20 ┆E 0440 IF TAL=2 OR TAL=3 THEN ┆
0x0e260…0e280 1c 12 30 34 35 30 20 43 41 53 45 20 54 52 55 45 20 4f 46 20 12 12 30 34 36 30 20 57 48 45 4e 20 ┆ 0450 CASE TRUE OF 0460 WHEN ┆
0x0e280…0e2a0 56 5b 47 54 3c 3d 32 30 12 1d 30 34 37 30 20 49 46 20 54 41 4c 3d 32 20 54 48 45 4e 20 50 4f 52 ┆VÆGT<=20 0470 IF TAL=2 THEN POR┆
0x0e2a0…0e2c0 54 4f 3a 3d 32 35 30 1d 1d 30 34 38 30 20 49 46 20 54 41 4c 3d 33 20 54 48 45 4e 20 50 4f 52 54 ┆TO:=250 0480 IF TAL=3 THEN PORT┆
0x0e2c0…0e2e0 4f 3a 3d 33 35 30 1d 13 30 34 39 30 20 57 48 45 4e 20 56 5b 47 54 3c 3d 31 30 30 13 0f 30 35 30 ┆O:=350 0490 WHEN VÆGT<=100 050┆
0x0e2e0…0e300 30 20 50 4f 52 54 4f 3a 3d 38 30 30 0f 13 30 35 31 30 20 57 48 45 4e 20 56 5b 47 54 3c 3d 31 30 ┆0 PORTO:=800 0510 WHEN VÆGT<=10┆
0x0e300…0e320 (7, 0, 4) 30 13 0f 30 35 32 30 20 50 4f 52 54 4f 3a 3d 38 30 30 0f 13 30 35 33 30 20 57 48 45 4e 20 56 5b ┆0 0520 PORTO:=800 0530 WHEN VÆ┆
0x0e320…0e340 47 54 3c 3d 32 35 30 13 10 30 35 34 30 20 50 4f 52 54 4f 3a 3d 31 37 30 30 10 13 30 35 35 30 20 ┆GT<=250 0540 PORTO:=1700 0550 ┆
0x0e340…0e360 57 48 45 4e 20 56 5b 47 54 3c 3d 35 30 30 13 10 30 35 36 30 20 50 4f 52 54 4f 3a 3d 33 32 30 30 ┆WHEN VÆGT<=500 0560 PORTO:=3200┆
0x0e360…0e380 10 14 30 35 37 30 20 57 48 45 4e 20 56 5b 47 54 3c 3d 31 30 30 30 14 10 30 35 38 30 20 50 4f 52 ┆ 0570 WHEN VÆGT<=1000 0580 POR┆
0x0e380…0e3a0 54 4f 3a 3d 35 36 30 30 10 14 30 35 39 30 20 57 48 45 4e 20 56 5b 47 54 3c 3d 32 30 30 30 14 10 ┆TO:=5600 0590 WHEN VÆGT<=2000 ┆
0x0e3a0…0e3c0 30 36 30 30 20 50 4f 52 54 4f 3a 3d 39 30 30 30 10 0f 30 36 31 30 20 4f 54 48 45 52 57 49 53 45 ┆0600 PORTO:=9000 0610 OTHERWISE┆
0x0e3c0…0e3e0 20 0f 0b 30 36 32 30 20 50 52 49 4e 54 20 0b 3a 30 36 33 30 20 50 52 49 4e 54 20 22 20 20 20 20 ┆ 0620 PRINT :0630 PRINT " ┆
0x0e3e0…0e400 44 65 74 74 65 20 62 72 65 76 20 62 7c 72 20 76 69 73 74 20 67 7d 20 6d 65 64 20 73 74 61 74 73 ┆Dette brev bør vist gå med stats┆
0x0e400…0e420 (7, 0, 5) 62 61 6e 65 72 6e 65 2e 20 22 3a 10 30 36 34 30 20 43 55 52 53 4f 52 20 35 2c 32 33 10 09 30 36 ┆banerne. ": 0640 CURSOR 5,23 06┆
0x0e420…0e440 35 30 20 45 4e 44 20 09 0d 30 36 36 30 20 45 4e 44 43 41 53 45 20 0d 41 30 36 37 30 20 50 52 49 ┆50 END 0660 ENDCASE A0670 PRI┆
0x0e440…0e460 4e 54 20 55 53 49 4e 47 20 22 20 20 20 20 42 72 65 76 65 74 73 20 76 7b 67 74 3a 20 20 20 20 20 ┆NT USING " Brevets vægt: ┆
0x0e460…0e480 20 20 20 20 20 20 20 23 23 23 23 23 23 23 23 20 67 2e 20 22 3a 56 5b 47 54 41 46 30 36 38 30 20 ┆ ######## g. ":VÆGTAF0680 ┆
0x0e480…0e4a0 50 52 49 4e 54 20 55 53 49 4e 47 20 22 20 20 20 20 50 6f 72 74 6f 3a 20 20 20 20 20 20 20 20 20 ┆PRINT USING " Porto: ┆
0x0e4a0…0e4c0 20 20 20 20 20 20 20 20 20 23 23 23 23 23 23 2e 23 23 20 6b 72 2e 22 3a 50 4f 52 54 4f 2f 31 30 ┆ ######.## kr.":PORTO/10┆
0x0e4c0…0e4e0 30 46 0a 30 36 39 30 20 45 4c 53 45 20 0a 38 30 37 30 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 ┆0F 0690 ELSE 80700 PRINT " ┆
0x0e4e0…0e500 44 75 20 68 61 72 20 76 69 73 74 20 74 61 73 74 65 74 20 66 6f 72 6b 65 72 74 2e 20 50 72 7c 76 ┆Du har vist tastet forkert. Prøv┆
0x0e500…0e520 (7, 0, 6) ExtentHdr {name=»UDLAND «, typ=»K«, seg=»B«, next=0x01, basis=0x0008, nextext={DA 0000,00 (0x000000)}, prevext={DA 000d,0d (0x00dd00)}, nextfile={DA 000e,0d (0x00ed00)}, f99=41 0c 00 20 00 44 4c 41 4e 44 ┆A DLAND┆}
0x0e520…0e540 20 69 67 65 6e 2e 22 38 0b 30 37 31 30 20 45 4e 44 49 46 20 0b 0b 30 37 32 30 20 45 4e 44 49 46 ┆ igen."8 0710 ENDIF 0720 ENDIF┆
0x0e540…0e560 20 0b 10 30 37 33 30 20 43 55 52 53 4f 52 20 35 2c 32 33 10 09 30 37 34 30 20 45 4e 44 20 09 00 ┆ 0730 CURSOR 5,23 0740 END ┆
0x0e560…0e580 00 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 08 30 30 32 30 20 2f 2f 20 08 17 30 30 32 35 20 49 4e 54 45 47 ┆ ---------I 0020 // 0025 INTEG┆
0x0e580…0e5a0 45 52 20 54 52 55 45 2c 46 41 4c 53 45 17 15 30 30 32 36 20 54 52 55 45 3a 3d 31 3b 46 41 4c 53 ┆ER TRUE,FALSE 0026 TRUE:=1;FALS┆
0x0e5a0…0e5c0 45 3a 3d 30 15 0b 30 30 33 30 20 43 4c 45 41 52 20 0b 0f 30 30 34 30 20 43 55 52 53 4f 52 20 35 ┆E:=0 0030 CLEAR 0040 CURSOR 5┆
0x0e5c0…0e5e0 2c 35 0f 38 30 30 35 30 20 50 52 49 4e 54 20 22 42 20 52 20 45 20 56 20 50 20 4f 20 53 20 54 20 ┆,5 80050 PRINT "B R E V P O S T ┆
0x0e5e0…0e600 20 20 54 20 49 20 4c 20 20 20 55 20 44 20 4c 20 41 20 4e 20 44 20 45 20 54 20 2e 22 38 0f 30 30 ┆ T I L U D L A N D E T ."8 00┆
0x0e600…0e700 (7, 0, 7) 0x63[0x100]
[…0x6…]
0x0ed00…0ed20 (7, 0, 14) ExtentHdr {name=»DEMOFIL «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 000f,07 (0x00f700)}, f99=00 00 00 ff 00 00 00 00 00 00 ┆ ┆}
0x0ed20…0ed40 2d 00 01 31 30 20 41 00 4c 61 72 73 20 48 61 6e 73 65 6e 00 47 79 76 65 6c 76 65 6a 20 33 36 00 ┆- 10 A Lars Hansen Gyvelvej 36 ┆
0x0ed40…0ed60 37 37 37 37 20 20 53 6f 76 65 72 75 70 00 2d 32 00 03 62 31 31 00 50 45 54 45 52 20 4b 52 49 53 ┆7777 Soverup -2 b11 PETER KRIS┆
0x0ed60…0ed80 54 45 4e 53 45 4e 00 5c 53 54 45 52 47 41 44 45 20 38 00 39 39 39 39 20 20 44 41 54 41 42 4f 52 ┆TENSEN ØSTERGADE 8 9999 DATABOR┆
0x0ed80…0eda0 47 00 32 31 00 03 42 31 34 00 4d 49 4b 41 45 4c 20 48 41 4e 53 45 4e 00 42 4c 4f 4d 53 54 45 52 ┆G 21 B14 MIKAEL HANSEN BLOMSTER┆
0x0eda0…0edc0 56 5b 4e 47 45 54 20 38 00 37 38 30 30 20 20 53 4b 49 56 45 00 31 2c 00 04 31 30 20 41 00 4c 65 ┆VÆNGET 8 7800 SKIVE 1, 10 A Le┆
0x0edc0…0ede0 6e 61 20 48 61 6e 73 65 6e 00 42 69 74 67 61 64 65 20 30 31 00 30 31 30 31 20 20 4b 69 6c 6f 72 ┆na Hansen Bitgade 01 0101 Kilor┆
0x0ede0…0ee00 61 6d 00 2c 34 00 05 31 30 20 42 00 56 69 67 67 6f 20 4d 69 6b 6b 65 6c 73 65 6e 00 56 65 73 74 ┆am ,4 10 B Viggo Mikkelsen Vest┆
0x0ee00…0ee20 (7, 0, 15) 65 72 67 61 64 65 20 34 00 36 36 36 36 20 20 4e 65 64 62 79 6f 76 65 72 00 34 26 00 06 42 31 35 ┆ergade 4 6666 Nedbyover 4& B15┆
0x0ee20…0ee40 00 4b 41 52 4c 4f 20 48 41 4e 53 45 4e 00 20 00 30 30 30 30 20 20 56 49 4b 4b 45 4c 42 4f 52 47 ┆ KARLO HANSEN 0000 VIKKELBORG┆
0x0ee40…0ee60 00 26 00 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ & ccccccccccccccccccccccccccc┆
0x0ee60…0ee80 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x4…]
0x0ef00…0f000 (7, 0, 16) 0x63[0x100]
[…0x7…]
0x0f700…0f720 (7, 1, 8) ExtentHdr {name=»FLETNING«, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0010,01 (0x010100)}, f99=41 0f 00 fe 00 00 00 00 00 00 ┆A ┆}
0x0f720…0f740 46 30 31 30 30 20 2f 2f 20 50 72 6f 67 72 61 6d 6d 65 74 20 75 64 67 7d 65 74 2c 20 64 61 20 64 ┆F0100 // Programmet udgået, da d┆
0x0f740…0f760 65 6e 6e 65 20 43 4f 4d 41 4c 2d 76 65 72 73 69 6f 6e 20 69 6b 6b 65 20 6b 61 6e 20 61 72 62 65 ┆enne COMAL-version ikke kan arbe┆
0x0f760…0f780 6a 64 65 20 6d 65 64 46 1c 30 31 31 30 20 2f 2f 20 72 65 63 75 72 73 69 76 65 20 70 72 6f 63 65 ┆jde medF 0110 // recursive proce┆
0x0f780…0f7a0 64 75 72 65 72 1c 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 ┆durer ┆
0x0f7a0…0f7c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x1…]
0x0f7e0…0f800 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 30 ┆ 0┆
0x0f800…0f820 (7, 1, 9) 30 35 30 20 50 52 4f 43 20 53 4f 52 54 45 52 28 56 2c 20 48 2c 20 52 45 46 20 54 28 29 29 20 43 ┆050 PROC SORTER(V, H, REF T()) C┆
0x0f820…0f840 4c 4f 53 45 44 26 4c 30 30 36 30 20 20 2f 2f 20 50 72 6f 63 65 64 75 72 65 6e 20 73 6f 72 74 65 ┆LOSED&L0060 // Proceduren sorte┆
0x0f840…0f860 72 65 72 20 65 6c 65 6d 65 6e 74 65 72 6e 65 20 69 20 74 2d 74 61 62 65 6c 20 66 72 61 20 65 6c ┆rer elementerne i t-tabel fra el┆
0x0f860…0f880 65 6d 65 6e 74 20 64 72 2e 20 76 3d 76 65 6e 73 74 72 65 4c 4a 30 30 37 30 20 20 2f 2f 20 74 69 ┆ement dr. v=venstreLJ0070 // ti┆
0x0f880…0f8a0 6c 20 65 6c 65 6d 65 6e 74 20 6e 72 2e 20 68 3d 68 7c 6a 72 65 2e 20 50 72 6f 63 65 64 75 72 65 ┆l element nr. h=højre. Procedure┆
0x0f8a0…0f8c0 6e 20 68 65 72 20 65 72 20 6b 65 6e 64 74 20 73 6f 6d 20 27 71 75 69 63 6b 73 6f 72 74 27 2e 4a ┆n her er kendt som 'quicksort'.J┆
0x0f8c0…0f8e0 43 30 30 38 30 20 20 2f 2f 20 44 65 6e 20 65 72 20 73 76 7b 72 20 61 74 20 66 6f 72 73 74 7d 2c ┆C0080 // Den er svær at forstå,┆
0x0f8e0…0f900 20 6d 65 6e 20 74 69 6c 20 67 7b 6c 64 69 67 20 68 75 72 74 69 67 2e 20 44 65 6e 20 6b 61 6e 20 ┆ men til gældig hurtig. Den kan ┆
0x0f900…0f920 (7, 1, 10) 65 76 74 2e 43 2c 30 30 39 30 20 20 2f 2f 20 65 72 73 74 61 74 74 65 73 20 61 66 20 65 6e 20 73 ┆evt.C,0090 // erstattes af en s┆
0x0f920…0f940 69 6d 70 6c 65 72 65 20 73 6f 72 74 65 72 69 6e 67 2e 2c 10 30 31 30 30 20 20 49 3a 3d 56 3b 20 ┆implere sortering., 0100 I:=V; ┆
0x0f940…0f960 4a 3a 3d 48 10 17 30 31 31 30 20 20 58 3a 3d 54 28 28 49 2b 4a 29 20 44 49 56 20 32 29 17 0d 30 ┆J:=H 0110 X:=T((I+J) DIV 2) 0┆
0x0f960…0f980 31 32 30 20 20 52 45 50 45 41 54 20 0d 17 30 31 33 30 20 20 20 57 48 49 4c 45 20 54 28 49 29 3c ┆120 REPEAT 0130 WHILE T(I)<┆
0x0f980…0f9a0 58 20 44 4f 20 17 0e 30 31 34 30 20 20 20 20 49 3a 3d 49 2b 31 0e 10 30 31 35 30 20 20 20 45 4e ┆X DO 0140 I:=I+1 0150 EN┆
0x0f9a0…0f9c0 44 57 48 49 4c 45 20 10 17 30 31 36 30 20 20 20 57 48 49 4c 45 20 58 3c 54 28 4a 29 20 44 4f 20 ┆DWHILE 0160 WHILE X<T(J) DO ┆
0x0f9c0…0f9e0 17 0e 30 31 37 30 20 20 20 20 4a 3a 3d 4a 2d 31 0e 10 30 31 38 30 20 20 20 45 4e 44 57 48 49 4c ┆ 0170 J:=J-1 0180 ENDWHIL┆
0x0f9e0…0fa00 45 20 10 14 30 31 39 30 20 20 20 49 46 20 49 3c 3d 4a 20 54 48 45 4e 20 14 24 30 32 30 30 20 20 ┆E 0190 IF I<=J THEN $0200 ┆
0x0fa00…0fa20 (7, 1, 11) 20 20 41 3a 3d 54 28 49 29 3b 20 54 28 49 29 3a 3d 54 28 4a 29 3b 20 54 28 4a 29 3a 3d 41 24 0e ┆ A:=T(I); T(I):=T(J); T(J):=A$ ┆
0x0fa20…0fa40 30 32 31 30 20 20 20 20 49 3a 3d 49 2b 31 0e 0e 30 32 32 30 20 20 20 20 4a 3a 3d 4a 2d 31 0e 0d ┆0210 I:=I+1 0220 J:=J-1 ┆
0x0fa40…0fa60 30 32 33 30 20 20 20 45 4e 44 49 46 20 0d 0f 30 32 34 30 20 20 55 4e 54 49 4c 20 49 3e 4a 0f 24 ┆0230 ENDIF 0240 UNTIL I>J $┆
0x0fa60…0fa80 30 32 35 30 20 20 49 46 20 56 3c 4a 20 54 48 45 4e 20 45 58 45 43 20 53 4f 52 54 45 52 28 56 2c ┆0250 IF V<J THEN EXEC SORTER(V,┆
0x0fa80…0faa0 4a 2c 54 29 24 24 30 32 36 30 20 20 49 46 20 49 3c 48 20 54 48 45 4e 20 45 58 45 43 20 53 4f 52 ┆J,T)$$0260 IF I<H THEN EXEC SOR┆
0x0faa0…0fac0 54 45 52 28 49 2c 48 2c 54 29 24 13 30 32 37 30 20 45 4e 44 50 52 4f 43 20 53 4f 52 54 45 52 13 ┆TER(I,H,T)$ 0270 ENDPROC SORTER ┆
0x0fac0…0fae0 35 30 32 38 30 20 2f 2f 20 46 7c 72 73 74 20 73 6b 61 6c 20 76 69 20 73 6b 61 66 66 65 20 6f 73 ┆50280 // Først skal vi skaffe os┆
0x0fae0…0fb00 20 32 20 73 6f 72 74 65 72 65 64 65 20 74 61 62 65 6c 6c 65 72 3a 35 07 30 32 39 30 20 2f 2f 07 ┆ 2 sorterede tabeller:5 0290 // ┆
0x0fb00…0fb20 (7, 1, 12) 0b 30 33 30 30 20 43 4c 45 41 52 20 0b 0b 30 33 31 30 20 54 41 42 3a 3d 36 0b 47 30 33 32 30 20 ┆ 0300 CLEAR 0310 TAB:=6 G0320 ┆
0x0fb20…0fb40 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 61 6e 74 61 6c 6c 65 74 20 61 66 20 65 6c 65 6d 65 ┆INPUT "Indtast antallet af eleme┆
0x0fb40…0fb60 6e 74 65 72 20 69 20 64 65 20 74 6f 20 74 61 62 65 6c 6c 65 72 3a 20 20 20 22 3a 20 4e 31 2c 20 ┆nter i de to tabeller: ": N1, ┆
0x0fb60…0fb80 4e 32 47 32 30 33 33 30 20 44 49 4d 20 54 41 42 45 4c 31 28 4e 31 2b 31 29 2c 20 54 41 42 45 4c ┆N2G20330 DIM TABEL1(N1+1), TABEL┆
0x0fb80…0fba0 32 28 4e 32 2b 31 29 2c 20 54 41 42 45 4c 33 28 4e 31 2b 4e 32 29 32 0c 30 33 34 30 20 52 41 4e ┆2(N2+1), TABEL3(N1+N2)2 0340 RAN┆
0x0fba0…0fbc0 44 4f 4d 20 0c 0c 30 33 35 30 20 54 41 42 45 3a 3d 34 0c 17 30 33 36 30 20 46 4f 52 20 49 3a 3d ┆DOM 0350 TABE:=4 0360 FOR I:=┆
0x0fbc0…0fbe0 31 20 54 4f 20 4e 31 20 44 4f 20 17 1c 30 33 37 30 20 20 54 41 42 45 4c 31 28 49 29 3a 3d 52 4e ┆1 TO N1 DO 0370 TABEL1(I):=RN┆
0x0fbe0…0fc00 44 28 30 2c 31 30 30 30 29 1c 0b 30 33 38 30 20 4e 45 58 54 20 49 0b 17 30 33 39 30 20 46 4f 52 ┆D(0,1000) 0380 NEXT I 0390 FOR┆
0x0fc00…0fc20 (7, 1, 13) 20 49 3a 3d 31 20 54 4f 20 4e 32 20 44 4f 20 17 1c 30 34 30 30 20 20 54 41 42 45 4c 32 28 49 29 ┆ I:=1 TO N2 DO 0400 TABEL2(I)┆
0x0fc20…0fc40 3a 3d 52 4e 44 28 30 2c 31 30 30 30 29 1c 0b 30 34 31 30 20 4e 45 58 54 20 49 0b 1d 30 34 32 30 ┆:=RND(0,1000) 0410 NEXT I 0420┆
0x0fc40…0fc60 20 45 58 45 43 20 53 4f 52 54 45 52 28 31 2c 4e 31 2c 54 41 42 45 4c 31 29 1d 1d 30 34 33 30 20 ┆ EXEC SORTER(1,N1,TABEL1) 0430 ┆
0x0fc60…0fc80 45 58 45 43 20 53 4f 52 54 45 52 28 31 2c 4e 32 2c 54 41 42 45 4c 32 29 1d 0b 30 34 34 30 20 50 ┆EXEC SORTER(1,N2,TABEL2) 0440 P┆
0x0fc80…0fca0 52 49 4e 54 20 0b 16 30 34 35 30 20 50 52 49 4e 54 20 22 54 61 62 65 6c 20 31 3a 20 22 16 17 30 ┆RINT 0450 PRINT "Tabel 1: " 0┆
0x0fca0…0fcc0 34 36 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 4e 31 20 44 4f 20 17 16 30 34 37 30 20 20 50 52 ┆460 FOR I:=1 TO N1 DO 0470 PR┆
0x0fcc0…0fce0 49 4e 54 20 54 41 42 45 4c 31 28 49 29 2c 16 0b 30 34 38 30 20 4e 45 58 54 20 49 0b 0b 30 34 39 ┆INT TABEL1(I), 0480 NEXT I 049┆
0x0fce0…0fd00 30 20 50 52 49 4e 54 20 0b 0b 30 35 30 30 20 50 52 49 4e 54 20 0b 16 30 35 31 30 20 50 52 49 4e ┆0 PRINT 0500 PRINT 0510 PRIN┆
0x0fd00…0fd20 (7, 1, 14) 54 20 22 54 61 62 65 6c 20 32 3a 20 22 16 17 30 35 32 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 ┆T "Tabel 2: " 0520 FOR I:=1 TO ┆
0x0fd20…0fd40 4e 32 20 44 4f 20 17 16 30 35 33 30 20 20 50 52 49 4e 54 20 54 41 42 45 4c 32 28 49 29 2c 16 0b ┆N2 DO 0530 PRINT TABEL2(I), ┆
0x0fd40…0fd60 30 35 34 30 20 4e 45 58 54 20 49 0b 0b 30 35 35 30 20 50 52 49 4e 54 20 0b 07 30 35 36 30 20 2f ┆0540 NEXT I 0550 PRINT 0560 /┆
0x0fd60…0fd80 2f 07 48 30 35 37 30 20 2f 2f 20 46 7c 72 73 74 20 6e 75 20 66 6c 65 74 74 65 73 20 74 61 62 65 ┆/ H0570 // Først nu flettes tabe┆
0x0fd80…0fda0 6c 20 31 20 6f 67 20 74 61 62 65 6c 20 32 20 73 61 6d 6d 65 6e 2e 20 42 65 6d 7b 72 6b 2c 20 61 ┆l 1 og tabel 2 sammen. Bemærk, a┆
0x0fda0…0fdc0 74 20 64 65 72 20 66 7c 72 73 74 48 32 30 35 38 30 20 2f 2f 20 66 7c 6a 65 73 20 65 74 20 27 73 ┆t der førstH20580 // føjes et 's┆
0x0fdc0…0fde0 74 6f 72 74 27 20 65 6c 65 6d 65 6e 74 20 74 69 6c 20 69 20 68 76 65 72 20 74 61 62 65 6c 2e 32 ┆tort' element til i hver tabel.2┆
0x0fde0…0fe00 07 30 35 39 30 20 2f 2f 07 28 30 36 30 30 20 54 41 42 45 4c 31 28 4e 31 2b 31 29 3a 3d 54 41 42 ┆ 0590 // (0600 TABEL1(N1+1):=TAB┆
0x0fe00…0fe20 (7, 1, 15) 45 4c 31 28 4e 31 29 2b 54 41 42 45 4c 32 28 4e 32 29 28 28 30 36 31 30 20 54 41 42 45 4c 32 28 ┆EL1(N1)+TABEL2(N2)((0610 TABEL2(┆
0x0fe20…0fe40 4e 32 2b 31 29 3a 3d 54 41 42 45 4c 31 28 4e 31 29 2b 54 41 42 45 4c 32 28 4e 32 29 28 07 30 36 ┆N2+1):=TABEL1(N1)+TABEL2(N2)( 06┆
0x0fe40…0fe60 32 30 20 2f 2f 07 15 30 36 33 30 20 50 49 4c 31 3a 3d 31 3b 20 50 49 4c 32 3a 3d 31 15 1d 30 36 ┆20 // 0630 PIL1:=1; PIL2:=1 06┆
0x0fe60…0fe80 34 30 20 46 4f 52 20 50 49 4c 33 3a 3d 31 20 54 4f 20 4e 31 2b 4e 32 20 44 4f 20 1d 28 30 36 35 ┆40 FOR PIL3:=1 TO N1+N2 DO (065┆
0x0fe80…0fea0 30 20 20 49 46 20 54 41 42 45 4c 31 28 50 49 4c 31 29 3e 54 41 42 45 4c 32 28 50 49 4c 32 29 20 ┆0 IF TABEL1(PIL1)>TABEL2(PIL2) ┆
0x0fea0…0fec0 54 48 45 4e 20 28 21 30 36 36 30 20 20 20 54 41 42 45 4c 33 28 50 49 4c 33 29 3a 3d 54 41 42 45 ┆THEN (!0660 TABEL3(PIL3):=TABE┆
0x0fec0…0fee0 4c 32 28 50 49 4c 32 29 21 13 30 36 37 30 20 20 20 50 49 4c 32 3a 3d 50 49 4c 32 2b 31 13 0b 30 ┆L2(PIL2)! 0670 PIL2:=PIL2+1 0┆
0x0fee0…0ff00 36 38 30 20 20 45 4c 53 45 20 0b 21 30 36 39 30 20 20 20 54 41 42 45 4c 33 28 50 49 4c 33 29 3a ┆680 ELSE !0690 TABEL3(PIL3):┆
0x0ff00…0ff20 (7, 1, 16) 3d 54 41 42 45 4c 31 28 50 49 4c 31 29 21 13 30 37 30 30 20 20 20 50 49 4c 31 3a 3d 50 49 4c 31 ┆=TABEL1(PIL1)! 0700 PIL1:=PIL1┆
0x0ff20…0ff40 2b 31 13 0c 30 37 31 30 20 20 45 4e 44 49 46 20 0c 0e 30 37 32 30 20 4e 45 58 54 20 50 49 4c 33 ┆+1 0710 ENDIF 0720 NEXT PIL3┆
0x0ff40…0ff60 0e 0b 30 37 33 30 20 50 52 49 4e 54 20 0b 2e 30 37 34 30 20 50 52 49 4e 54 20 22 53 61 6d 6d 65 ┆ 0730 PRINT .0740 PRINT "Samme┆
0x0ff60…0ff80 6e 66 6c 65 74 6e 69 6e 67 65 6e 20 61 66 20 64 65 20 74 61 62 65 6c 6c 65 72 3a 20 22 2e 1a 30 ┆nfletningen af de tabeller: ". 0┆
0x0ff80…0ffa0 37 35 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 4e 31 2b 4e 32 20 44 4f 20 1a 16 30 37 36 30 20 ┆750 FOR I:=1 TO N1+N2 DO 0760 ┆
0x0ffa0…0ffc0 20 50 52 49 4e 54 20 54 41 42 45 4c 33 28 49 29 2c 16 0b 30 37 37 30 20 4e 45 58 54 20 49 0b 00 ┆ PRINT TABEL3(I), 0770 NEXT I ┆
0x0ffc0…0ffe0 00 54 20 50 49 4c 33 06 0b 30 37 33 30 20 50 52 49 4e 54 20 0b 1b 30 37 34 30 20 50 52 49 4e 54 ┆ T PIL3 0730 PRINT 0740 PRINT┆
0x0ffe0…10000 20 22 53 61 6d 6d 65 6e 66 6c 65 74 6e 69 6e 67 20 1b 00 00 63 63 63 63 63 63 63 63 63 63 63 63 ┆ "Sammenfletning cccccccccccc┆
0x10000…10100 (8, 0, 1) 0x63[0x100]
0x10100…10120 (8, 0, 2) ExtentHdr {name=»RAMME «, typ=»K«, seg=»A«, next=0x00, basis=0x0002, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0010,03 (0x010300)}, f99=41 0f 00 fe 00 41 4d 4d 45 20 ┆A AMME ┆}
0x10120…10140 1f 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 20 72 61 6d 6d 65 20 2d 2d 2d 2d 2d 2d 2d 2d ┆ 0010 // -------- ramme --------┆
0x10140…10160 1f 0b 30 30 32 30 20 43 4c 45 41 52 20 0b 18 30 30 33 30 20 46 4f 52 20 58 3a 3d 31 30 20 54 4f ┆ 0020 CLEAR 0030 FOR X:=10 TO┆
0x10160…10180 20 37 30 20 44 4f 20 18 0f 30 30 34 30 20 43 55 52 53 4f 52 20 58 2c 36 0f 0e 30 30 35 30 20 50 ┆ 70 DO 0040 CURSOR X,6 0050 P┆
0x10180…101a0 52 49 4e 54 20 22 2a 22 0e 0b 30 30 36 30 20 4e 45 58 54 20 58 0b 17 30 30 37 30 20 46 4f 52 20 ┆RINT "*" 0060 NEXT X 0070 FOR ┆
0x101a0…101c0 59 3a 3d 36 20 54 4f 20 31 37 20 44 4f 20 17 10 30 30 38 30 20 43 55 52 53 4f 52 20 37 30 2c 59 ┆Y:=6 TO 17 DO 0080 CURSOR 70,Y┆
0x101c0…101e0 10 0e 30 30 39 30 20 50 52 49 4e 54 20 22 2a 22 0e 0b 30 31 30 30 20 4e 45 58 54 20 59 0b 20 30 ┆ 0090 PRINT "*" 0100 NEXT Y 0┆
0x101e0…10200 31 31 30 20 46 4f 52 20 58 3a 3d 36 39 20 54 4f 20 31 30 20 53 54 45 50 20 2d 31 20 44 4f 20 20 ┆110 FOR X:=69 TO 10 STEP -1 DO ┆
0x10200…10220 (8, 0, 3) 10 30 31 32 30 20 43 55 52 53 4f 52 20 58 2c 31 37 10 0e 30 31 33 30 20 50 52 49 4e 54 20 22 2a ┆ 0120 CURSOR X,17 0130 PRINT "*┆
0x10220…10240 22 0e 0b 30 31 34 30 20 4e 45 58 54 20 58 0b 1f 30 31 35 30 20 46 4f 52 20 59 3a 3d 31 37 20 54 ┆" 0140 NEXT X 0150 FOR Y:=17 T┆
0x10240…10260 4f 20 36 20 53 54 45 50 20 2d 31 20 44 4f 20 1f 10 30 31 36 30 20 43 55 52 53 4f 52 20 31 30 2c ┆O 6 STEP -1 DO 0160 CURSOR 10,┆
0x10260…10280 59 10 0e 30 31 37 30 20 50 52 49 4e 54 20 22 2a 22 0e 0b 30 31 38 30 20 4e 45 58 54 20 59 0b 10 ┆Y 0170 PRINT "*" 0180 NEXT Y ┆
0x10280…102a0 30 31 39 30 20 43 55 52 53 4f 52 20 31 2c 32 32 10 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆0190 CURSOR 1,22 ccccccccccccc┆
0x102a0…102c0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x2…]
0x10300…10320 (8, 0, 4) ExtentHdr {name=»OVERFL1 «, typ=»K«, seg=»A«, next=0x01, basis=0x000a, nextext={DA 0010,0d (0x010d00)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0010,0d (0x010d00)}, f99=41 0f 00 fe 00 41 4d 4d 45 20 ┆A AMME ┆}
0x10320…10340 3f 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 ┆?0010 // ---------------------- ┆
0x10340…10360 6f 76 65 72 66 6c 5f 31 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆overfl_1 -----------------------┆
0x10360…10380 3f 38 30 30 32 30 20 2f 2f 20 55 64 72 65 67 6e 65 72 20 66 6f 72 73 6b 65 6c 6c 69 67 65 20 6f ┆?80020 // Udregner forskellige o┆
0x10380…103a0 76 65 72 66 6c 61 64 65 72 20 76 2f 6d 75 6c 74 69 66 6f 72 67 72 65 6e 65 74 38 13 30 30 33 30 ┆verflader v/multiforgrenet8 0030┆
0x103a0…103c0 20 2f 2f 20 49 46 2d 73 7b 74 6e 69 6e 67 2e 13 0b 30 30 34 30 20 43 4c 45 41 52 20 0b 3e 30 30 ┆ // IF-sætning. 0040 CLEAR >00┆
0x103c0…103e0 35 30 20 50 52 49 4e 54 20 22 44 65 74 74 65 20 70 72 6f 67 72 61 6d 20 75 64 73 6b 72 69 76 65 ┆50 PRINT "Dette program udskrive┆
0x103e0…10400 72 20 64 65 6e 20 73 61 6d 6c 65 64 65 20 6f 76 65 72 66 6c 61 64 65 20 61 66 3a 22 3e 3e 30 30 ┆r den samlede overflade af:">>00┆
0x10400…10420 (8, 0, 5) 36 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆60 PRINT "----------------------┆
0x10420…10440 2d 2d 2d 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 3e 18 30 30 ┆---------------------------"> 00┆
0x10440…10460 37 30 20 50 52 49 4e 54 20 22 31 2e 20 20 20 4b 61 73 73 65 2e 22 18 1b 30 30 38 30 20 50 52 49 ┆70 PRINT "1. Kasse." 0080 PRI┆
0x10460…10480 4e 54 20 22 32 2e 20 20 20 43 79 6c 69 6e 64 65 72 2e 22 1b 18 30 30 39 30 20 50 52 49 4e 54 20 ┆NT "2. Cylinder." 0090 PRINT ┆
0x10480…104a0 22 33 2e 20 20 20 4b 65 67 6c 65 2e 22 18 1c 30 31 30 30 20 50 52 49 4e 54 20 22 34 2e 20 20 20 ┆"3. Kegle." 0100 PRINT "4. ┆
0x104a0…104c0 4b 65 67 6c 65 73 74 75 62 2e 22 1c 18 30 31 31 30 20 50 52 49 4e 54 20 22 35 2e 20 20 20 4b 75 ┆Keglestub." 0110 PRINT "5. Ku┆
0x104c0…104e0 67 6c 65 2e 22 18 0b 30 31 32 30 20 50 52 49 4e 54 20 0b 0b 30 31 33 30 20 50 52 49 4e 54 20 0b ┆gle." 0120 PRINT 0130 PRINT ┆
0x104e0…10500 0b 30 31 34 30 20 50 52 49 4e 54 20 0b 37 30 31 35 30 20 50 52 49 4e 54 20 22 49 6e 64 74 61 73 ┆ 0140 PRINT 70150 PRINT "Indtas┆
0x10500…10520 (8, 0, 6) 74 20 64 65 74 20 7c 6e 73 6b 65 64 65 20 6e 75 6d 6d 65 72 20 66 6f 72 20 6f 76 65 72 66 6c 61 ┆t det ønskede nummer for overfla┆
0x10520…10540 64 65 3a 22 3b 37 10 30 31 36 30 20 49 4e 50 55 54 20 5c 4e 53 4b 45 10 3f 30 31 37 30 20 2f 2f ┆de:";7 0160 INPUT ØNSKE ?0170 //┆
0x10540…10560 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 ┆ -------------------------------┆
0x10560…10580 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3f 3e 30 31 38 30 20 2f ┆------------------------?>0180 /┆
0x10580…105a0 2f 20 4e 75 20 66 69 6e 64 65 73 20 64 65 20 66 6f 72 73 6b 65 6c 6c 69 67 65 20 72 75 6d 66 61 ┆/ Nu findes de forskellige rumfa┆
0x105a0…105c0 6e 67 20 76 65 64 20 65 6e 20 6d 75 6c 74 69 66 6f 72 67 72 65 6e 65 74 3e 13 30 31 39 30 20 2f ┆ng ved en multiforgrenet> 0190 /┆
0x105c0…105e0 2f 20 49 46 2d 73 7b 74 6e 69 6e 67 2e 13 0b 30 32 30 30 20 43 4c 45 41 52 20 0b 15 30 32 31 30 ┆/ IF-sætning. 0200 CLEAR 0210┆
0x105e0…10600 20 49 46 20 5c 4e 53 4b 45 3d 31 20 54 48 45 4e 20 15 0b 30 32 32 30 20 50 52 49 4e 54 20 0b 2f ┆ IF ØNSKE=1 THEN 0220 PRINT /┆
0x10600…10620 (8, 0, 7) 30 32 33 30 20 50 52 49 4e 54 20 22 44 65 6e 20 73 61 6d 6c 65 64 65 20 6f 76 65 72 66 6c 61 64 ┆0230 PRINT "Den samlede overflad┆
0x10620…10640 65 20 61 66 20 65 6e 20 6b 61 73 73 65 3a 22 2f 0b 30 32 34 30 20 50 52 49 4e 54 20 0b 32 30 32 ┆e af en kasse:"/ 0240 PRINT 202┆
0x10640…10660 35 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6c 7b 6e 67 64 65 3a 20 20 20 20 20 20 20 ┆50 INPUT "Indtast længde: ┆
0x10660…10680 20 20 20 20 20 20 20 20 22 3a 4c 5b 4e 47 44 45 32 32 30 32 36 30 20 49 4e 50 55 54 20 22 49 6e ┆ ":LÆNGDE220260 INPUT "In┆
0x10680…106a0 64 74 61 73 74 20 62 72 65 64 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 42 52 ┆dtast bredde: ":BR┆
0x106a0…106c0 45 44 44 45 32 31 30 32 37 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 68 7c 6a 64 65 3a ┆EDDE210270 INPUT "Indtast højde:┆
0x106c0…106e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 48 5c 4a 44 45 31 0b 30 32 38 30 20 50 52 ┆ ":HØJDE1 0280 PR┆
0x106e0…10700 49 4e 54 20 0b 0b 30 32 39 30 20 50 52 49 4e 54 20 0b 3b 30 33 30 30 20 4f 56 45 52 46 4c 41 44 ┆INT 0290 PRINT ;0300 OVERFLAD┆
0x10700…10720 (8, 0, 8) 45 3a 3d 28 4c 5b 4e 47 44 45 2a 42 52 45 44 44 45 2b 42 52 45 44 44 45 2a 48 5c 4a 44 45 2b 48 ┆E:=(LÆNGDE*BREDDE+BREDDE*HØJDE+H┆
0x10720…10740 5c 4a 44 45 2a 4c 5b 4e 47 44 45 29 2a 32 3b 39 30 33 31 30 20 50 52 49 4e 54 20 22 44 65 6e 20 ┆ØJDE*LÆNGDE)*2;90310 PRINT "Den ┆
0x10740…10760 73 61 6d 6c 65 64 65 20 6f 76 65 72 66 6c 61 64 65 20 61 66 20 6b 61 73 73 65 6e 3a 20 20 22 2c ┆samlede overflade af kassen: ",┆
0x10760…10780 4f 56 45 52 46 4c 41 44 45 39 0a 30 33 32 30 20 45 4c 53 45 20 0a 15 30 33 32 35 20 49 46 20 5c ┆OVERFLADE9 0320 ELSE 0325 IF Ø┆
0x10780…107a0 4e 53 4b 45 3d 32 20 54 48 45 4e 20 15 32 30 33 33 30 20 50 52 49 4e 54 20 22 44 65 6e 20 73 61 ┆NSKE=2 THEN 20330 PRINT "Den sa┆
0x107a0…107c0 6d 6c 65 64 65 20 6f 76 65 72 66 6c 61 64 65 20 61 66 20 65 6e 20 63 79 6c 69 6e 64 65 72 3a 22 ┆mlede overflade af en cylinder:"┆
0x107c0…107e0 32 0b 30 33 34 30 20 50 52 49 4e 54 20 0b 0b 30 33 35 30 20 50 52 49 4e 54 20 0b 34 30 33 36 30 ┆2 0340 PRINT 0350 PRINT 40360┆
0x107e0…10800 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 63 79 6c 69 6e 64 65 72 65 6e 73 20 72 61 64 69 ┆ INPUT "Indtast cylinderens radi┆
0x10800…10820 (8, 0, 9) 75 73 3a 20 20 20 20 20 22 3a 52 41 44 49 55 53 34 0b 30 33 37 30 20 50 52 49 4e 54 20 0b 33 30 ┆us: ":RADIUS4 0370 PRINT 30┆
0x10820…10840 33 38 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 63 79 6c 69 6e 64 65 72 65 6e 73 20 68 ┆380 INPUT "Indtast cylinderens h┆
0x10840…10860 7c 6a 64 65 3a 20 20 20 20 20 20 22 3a 48 5c 4a 44 45 33 0b 30 33 39 30 20 50 52 49 4e 54 20 0b ┆øjde: ":HØJDE3 0390 PRINT ┆
0x10860…10880 0b 30 34 30 30 20 50 52 49 4e 54 20 0b 2c 30 34 31 30 20 4f 56 45 52 46 4c 41 44 45 3a 3d 32 2a ┆ 0400 PRINT ,0410 OVERFLADE:=2*┆
0x10880…108a0 33 2e 31 34 2a 52 41 44 49 55 53 2a 28 48 5c 4a 44 45 2b 52 41 44 49 55 53 29 2c 0b 30 34 32 30 ┆3.14*RADIUS*(HØJDE+RADIUS), 0420┆
0x108a0…108c0 20 50 52 49 4e 54 20 0b 3b 30 34 33 30 20 50 52 49 4e 54 20 22 44 65 6e 20 74 6f 74 61 6c 65 20 ┆ PRINT ;0430 PRINT "Den totale ┆
0x108c0…108e0 6f 76 65 72 66 6c 61 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2c 4f 56 45 52 46 ┆overflade: ",OVERF┆
0x108e0…10900 4c 41 44 45 3b 0a 30 34 34 30 20 45 4c 53 45 20 0a 15 30 34 34 35 20 49 46 20 5c 4e 53 4b 45 3d ┆LADE; 0440 ELSE 0445 IF ØNSKE=┆
0x10900…10920 (8, 0, 10) 33 20 54 48 45 4e 20 15 29 30 34 35 30 20 50 52 49 4e 54 20 22 54 6f 74 61 6c 6f 76 65 72 66 6c ┆3 THEN )0450 PRINT "Totaloverfl┆
0x10920…10940 61 64 65 6e 20 61 66 20 65 6e 20 6b 65 67 6c 65 3a 22 29 0b 30 34 36 30 20 50 52 49 4e 54 20 0b ┆aden af en kegle:") 0460 PRINT ┆
0x10940…10960 34 30 34 37 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6b 65 67 6c 65 6e 73 20 72 61 64 ┆40470 INPUT "Indtast keglens rad┆
0x10960…10980 69 75 73 3a 20 20 20 20 20 20 20 20 20 22 3a 52 41 44 49 55 53 34 33 30 34 38 30 20 49 4e 50 55 ┆ius: ":RADIUS430480 INPU┆
0x10980…109a0 54 20 22 49 6e 64 74 61 73 74 20 6b 65 67 6c 65 6e 73 20 68 7c 6a 64 65 3a 20 20 20 20 20 20 20 ┆T "Indtast keglens højde: ┆
0x109a0…109c0 20 20 20 22 3a 48 5c 4a 44 45 33 23 30 34 39 30 20 53 49 44 45 4e 3a 3d 53 51 52 28 48 5c 4a 44 ┆ ":HØJDE3#0490 SIDEN:=SQR(HØJD┆
0x109c0…109e0 45 2a 2a 32 2b 52 41 44 49 55 53 2a 2a 32 29 23 30 30 35 30 30 20 4f 56 45 52 46 4c 41 44 45 3a ┆E**2+RADIUS**2)#00500 OVERFLADE:┆
0x109e0…10a00 3d 33 2e 31 34 2a 52 41 44 49 55 53 2a 2a 32 2b 33 2e 31 34 2a 52 41 44 49 55 53 2a 53 49 44 45 ┆=3.14*RADIUS**2+3.14*RADIUS*SIDE┆
0x10a00…10a20 (8, 0, 11) 4e 30 0b 30 35 31 30 20 50 52 49 4e 54 20 0b 0b 30 35 32 30 20 50 52 49 4e 54 20 0b 2d 30 35 33 ┆N0 0510 PRINT 0520 PRINT -053┆
0x10a20…10a40 30 20 50 52 49 4e 54 20 22 54 6f 74 61 6c 6f 76 65 72 66 6c 61 64 65 6e 20 61 66 20 65 6e 20 6b ┆0 PRINT "Totaloverfladen af en k┆
0x10a40…10a60 65 67 6c 65 3a 20 20 20 20 22 2d 34 30 35 34 30 20 50 52 49 4e 54 20 22 52 61 64 69 75 73 3a 20 ┆egle: "-40540 PRINT "Radius: ┆
0x10a60…10a80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2c 52 41 44 49 55 53 ┆ ",RADIUS┆
0x10a80…10aa0 34 33 30 35 35 30 20 50 52 49 4e 54 20 22 48 7c 6a 64 65 6e 3a 20 20 20 20 20 20 20 20 20 20 20 ┆430550 PRINT "Højden: ┆
0x10aa0…10ac0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2c 48 5c 4a 44 45 33 37 30 35 36 30 20 50 52 49 4e ┆ ",HØJDE370560 PRIN┆
0x10ac0…10ae0 54 20 22 4f 76 65 72 66 6c 61 64 65 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆T "Overfladen: ┆
0x10ae0…10b00 20 20 20 22 2c 4f 56 45 52 46 4c 41 44 45 37 0a 30 35 37 30 20 45 4c 53 45 20 0a 15 30 35 37 35 ┆ ",OVERFLADE7 0570 ELSE 0575┆
0x10b00…10b20 (8, 0, 12) 20 49 46 20 5c 4e 53 4b 45 3d 34 20 54 48 45 4e 20 15 2d 30 35 38 30 20 50 52 49 4e 54 20 22 54 ┆ IF ØNSKE=4 THEN -0580 PRINT "T┆
0x10b20…10b40 6f 74 61 6c 6f 76 65 72 66 6c 61 64 65 6e 20 61 66 20 65 6e 20 6b 65 67 6c 65 73 74 75 62 3a 22 ┆otaloverfladen af en keglestub:"┆
0x10b40…10b60 2d 0b 30 35 39 30 20 50 52 49 4e 54 20 0b 0b 30 36 30 30 20 50 52 49 4e 54 20 0b 39 30 36 31 30 ┆- 0590 PRINT 0600 PRINT 90610┆
0x10b60…10b80 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6b 65 67 6c 65 73 74 75 62 62 65 6e 73 20 6e 65 ┆ INPUT "Indtast keglestubbens ne┆
0x10b80…10ba0 64 65 72 73 74 65 20 72 61 64 69 75 73 3a 20 20 20 22 3a 52 31 39 39 30 36 32 30 20 49 4e 50 55 ┆derste radius: ":R1990620 INPU┆
0x10ba0…10bc0 54 20 22 49 6e 64 74 61 73 74 20 6b 65 67 6c 65 73 74 75 62 62 65 6e 73 20 7c 76 65 72 73 74 65 ┆T "Indtast keglestubbens øverste┆
0x10bc0…10be0 20 72 61 64 69 75 73 3a 20 20 20 20 22 3a 52 32 39 3c 30 36 33 30 20 49 4e 50 55 54 20 22 49 6e ┆ radius: ":R29<0630 INPUT "In┆
0x10be0…10c00 64 74 61 73 74 20 6b 65 67 6c 65 73 74 75 62 62 65 6e 73 20 68 7c 6a 64 65 3a 20 20 20 20 20 20 ┆dtast keglestubbens højde: ┆
0x10c00…10c20 (8, 0, 13) 20 20 20 20 20 20 20 22 3a 48 5c 4a 44 45 3c 0b 30 36 34 30 20 50 52 49 4e 54 20 0b 33 30 36 35 ┆ ":HØJDE< 0640 PRINT 3065┆
0x10c20…10c40 30 20 53 49 44 45 4e 3a 3d 49 4e 54 28 28 53 51 52 28 28 52 32 2d 52 31 29 2a 2a 32 2b 48 5c 4a ┆0 SIDEN:=INT((SQR((R2-R1)**2+HØJ┆
0x10c40…10c60 44 45 2a 2a 32 29 2a 31 30 30 29 29 2f 31 30 30 33 43 30 36 36 30 20 4f 56 45 52 46 4c 41 44 45 ┆DE**2)*100))/1003C0660 OVERFLADE┆
0x10c60…10c80 4e 3a 3d 49 4e 54 28 33 2e 31 34 2a 28 52 31 2a 2a 32 2b 52 32 2a 2a 32 29 2b 33 2e 31 34 2a 53 ┆N:=INT(3.14*(R1**2+R2**2)+3.14*S┆
0x10c80…10ca0 49 44 45 4e 2a 28 52 31 2b 52 32 29 2a 31 30 30 29 2f 31 30 30 43 0b 30 36 37 30 20 50 52 49 4e ┆IDEN*(R1+R2)*100)/100C 0670 PRIN┆
0x10ca0…10cc0 54 20 0b 3d 30 36 38 30 20 50 52 49 4e 54 20 22 52 61 64 69 75 73 20 69 20 64 65 6e 20 6e 65 64 ┆T =0680 PRINT "Radius i den ned┆
0x10cc0…10ce0 65 72 73 74 65 20 67 72 75 6e 64 66 6c 61 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 22 2c 52 ┆erste grundflade: ",R┆
0x10ce0…10d00 31 3d 3d 30 36 39 30 20 50 52 49 4e 54 20 22 52 61 64 69 75 73 20 69 20 64 65 6e 20 7c 76 65 72 ┆1==0690 PRINT "Radius i den øver┆
0x10d00…10d20 (8, 0, 14) ExtentHdr {name=»OVERFL1 «, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0010,03 (0x010300)}, nextfile={DA 0011,07 (0x011700)}, f99=41 0f 00 20 00 41 4d 4d 45 20 ┆A AMME ┆}
0x10d20…10d40 73 74 65 20 66 6c 61 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2c 52 32 ┆ste flade: ",R2┆
0x10d40…10d60 3d 40 30 37 30 30 20 50 52 49 4e 54 20 22 53 69 64 65 6c 69 6e 69 65 6e 3a 20 20 20 20 20 20 20 ┆=@0700 PRINT "Sidelinien: ┆
0x10d60…10d80 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 22 2c 53 49 44 ┆ ",SID┆
0x10d80…10da0 45 4e 40 40 30 37 31 30 20 50 52 49 4e 54 20 22 4b 65 67 6c 65 73 74 75 62 62 65 6e 73 20 68 7c ┆EN@@0710 PRINT "Keglestubbens hø┆
0x10da0…10dc0 6a 64 65 3a 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 22 2c 48 ┆jde: ",H┆
0x10dc0…10de0 5c 4a 44 45 40 45 30 37 32 30 20 50 52 49 4e 54 20 22 54 6f 74 61 6c 6f 76 65 72 66 6c 61 64 65 ┆ØJDE@E0720 PRINT "Totaloverflade┆
0x10de0…10e00 6e 3a 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 22 ┆n: "┆
0x10e00…10e20 (8, 0, 15) 2c 4f 56 45 52 46 4c 41 44 45 4e 45 0b 30 37 33 30 20 50 52 49 4e 54 20 0b 0a 30 37 34 30 20 45 ┆,OVERFLADENE 0730 PRINT 0740 E┆
0x10e20…10e40 4c 53 45 20 0a 15 30 37 34 35 20 49 46 20 5c 4e 53 4b 45 3d 35 20 54 48 45 4e 20 15 24 30 37 35 ┆LSE 0745 IF ØNSKE=5 THEN $075┆
0x10e40…10e60 30 20 50 52 49 4e 54 20 22 4f 76 65 72 66 6c 61 64 65 6e 20 61 66 20 65 6e 20 6b 75 67 6c 65 2e ┆0 PRINT "Overfladen af en kugle.┆
0x10e60…10e80 22 24 0b 30 37 36 30 20 50 52 49 4e 54 20 0b 3d 30 37 37 30 20 49 4e 50 55 54 20 22 49 6e 64 74 ┆"$ 0760 PRINT =0770 INPUT "Indt┆
0x10e80…10ea0 61 73 74 20 6b 75 67 6c 65 6e 73 20 72 61 64 69 75 73 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ast kuglens radius: ┆
0x10ea0…10ec0 20 20 20 20 20 22 3a 52 41 44 49 55 53 3d 21 30 37 38 30 20 4f 56 45 52 46 4c 41 44 45 4e 3a 3d ┆ ":RADIUS=!0780 OVERFLADEN:=┆
0x10ec0…10ee0 34 2a 52 41 44 49 55 53 2a 2a 32 2a 33 2e 31 34 21 0b 30 37 39 30 20 50 52 49 4e 54 20 0b 41 30 ┆4*RADIUS**2*3.14! 0790 PRINT A0┆
0x10ee0…10f00 38 30 30 20 50 52 49 4e 54 20 22 4f 76 65 72 66 6c 61 64 65 6e 20 61 66 20 64 65 6e 6e 65 20 6b ┆800 PRINT "Overfladen af denne k┆
0x10f00…10f20 (8, 0, 16) 75 67 6c 65 20 65 72 3a 20 20 20 20 20 20 20 20 20 20 20 20 22 2c 4f 56 45 52 46 4c 41 44 45 4e ┆ugle er: ",OVERFLADEN┆
0x10f20…10f40 41 0b 30 38 31 30 20 50 52 49 4e 54 20 0b 0a 30 38 32 30 20 45 4c 53 45 20 0a 11 30 38 33 30 20 ┆A 0810 PRINT 0820 ELSE 0830 ┆
0x10f40…10f60 43 55 52 53 4f 52 20 31 30 2c 32 31 11 3b 30 38 34 30 20 50 52 49 4e 54 20 22 44 75 20 68 61 72 ┆CURSOR 10,21 ;0840 PRINT "Du har┆
0x10f60…10f80 20 69 6e 64 74 61 73 74 65 74 20 65 74 20 66 6f 72 6b 65 72 74 20 6e 75 6d 6d 65 72 2e 20 50 72 ┆ indtastet et forkert nummer. Pr┆
0x10f80…10fa0 7c 76 20 69 67 65 6e 2e 22 3b 0b 30 38 35 30 20 45 4e 44 49 46 20 0b 0b 30 38 35 31 20 45 4e 44 ┆øv igen."; 0850 ENDIF 0851 END┆
0x10fa0…10fc0 49 46 20 0b 0b 30 38 35 32 20 45 4e 44 49 46 20 0b 0b 30 38 35 33 20 45 4e 44 49 46 20 0b 00 00 ┆IF 0852 ENDIF 0853 ENDIF ┆
0x10fc0…10fe0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x1…]
0x11000…11100 (8, 1, 1) 0x63[0x100]
[…0x6…]
0x11700…11720 (8, 1, 8) ExtentHdr {name=»BISECTIO«, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0012,01 (0x012100)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x11720…11740 44 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆D0010 // -----------------------┆
0x11740…11760 2d 2d 20 62 69 73 65 63 74 69 6f 6e 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆-- bisection -------------------┆
0x11760…11780 2d 2d 2d 2d 2d 44 08 30 30 32 30 20 2f 2f 20 08 11 30 30 33 30 20 50 52 4f 43 20 46 4e 46 28 58 ┆-----D 0020 // 0030 PROC FNF(X┆
0x11780…117a0 31 29 11 16 30 30 34 30 20 46 4e 46 3a 3d 58 31 2a 58 31 2d 33 2a 58 31 2d 34 16 10 30 30 35 30 ┆1) 0040 FNF:=X1*X1-3*X1-4 0050┆
0x117a0…117c0 20 45 4e 44 50 52 4f 43 20 46 4e 46 10 08 30 30 36 30 20 2f 2f 20 08 0b 30 30 37 30 20 43 4c 45 ┆ ENDPROC FNF 0060 // 0070 CLE┆
0x117c0…117e0 41 52 20 0b 10 30 30 38 30 20 44 49 4d 20 53 24 20 4f 46 20 31 10 0e 30 30 38 35 20 49 4e 54 45 ┆AR 0080 DIM S$ OF 1 0085 INTE┆
0x117e0…11800 47 45 52 20 49 0e 16 30 30 39 30 20 50 52 49 4e 54 20 22 42 69 73 65 63 74 69 6f 6e 22 16 0b 30 ┆GER I 0090 PRINT "Bisection" 0┆
0x11800…11820 (8, 1, 9) 31 30 30 20 50 52 49 4e 54 20 0b 0c 30 31 31 30 20 52 45 50 45 41 54 20 0c 0c 30 31 32 30 20 52 ┆100 PRINT 0110 REPEAT 0120 R┆
0x11820…11840 45 50 45 41 54 20 0c 3f 30 31 33 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 69 6e 74 65 ┆EPEAT ?0130 INPUT "Indtast inte┆
0x11840…11860 72 76 61 6c 6c 65 74 73 20 76 65 6e 73 74 72 65 20 65 6e 64 65 70 75 6e 6b 74 3a 20 20 20 22 3a ┆rvallets venstre endepunkt: ":┆
0x11860…11880 56 45 4e 53 54 52 45 3f 3d 30 31 34 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 69 6e 74 ┆VENSTRE?=0140 INPUT "Indtast int┆
0x11880…118a0 65 72 76 61 6c 6c 65 74 73 20 68 7c 6a 72 65 20 65 6e 64 65 70 75 6e 6b 74 3a 20 20 20 20 20 22 ┆ervallets højre endepunkt: "┆
0x118a0…118c0 3a 48 5c 4a 52 45 3d 1a 30 31 35 30 20 55 4e 54 49 4c 20 48 5c 4a 52 45 2d 56 45 4e 53 54 52 45 ┆:HØJRE= 0150 UNTIL HØJRE-VENSTRE┆
0x118c0…118e0 3e 30 1a 26 30 31 36 30 20 47 4c 56 45 4e 53 54 52 45 3a 3d 56 45 4e 53 54 52 45 3b 47 4c 48 5c ┆>0 &0160 GLVENSTRE:=VENSTRE;GLHØ┆
0x118e0…11900 4a 52 45 3a 3d 48 5c 4a 52 45 26 15 30 31 37 30 20 46 56 3a 3d 46 4e 46 28 56 45 4e 53 54 52 45 ┆JRE:=HØJRE& 0170 FV:=FNF(VENSTRE┆
0x11900…11920 (8, 1, 10) 29 15 13 30 31 37 35 20 46 48 3a 3d 46 4e 46 28 48 5c 4a 52 45 29 13 09 30 31 38 30 20 49 3a 3d ┆) 0175 FH:=FNF(HØJRE) 0180 I:=┆
0x11920…11940 30 09 15 30 31 39 30 20 49 46 20 46 56 2a 46 48 3e 30 20 54 48 45 4e 20 15 47 30 32 30 30 20 50 ┆0 0190 IF FV*FH>0 THEN G0200 P┆
0x11940…11960 52 49 4e 54 20 22 46 75 6e 6b 74 69 6f 6e 65 6e 20 68 61 72 20 69 6b 6b 65 20 6d 6f 64 73 61 74 ┆RINT "Funktionen har ikke modsat┆
0x11960…11980 20 66 6f 72 74 65 67 6e 20 69 20 22 3b 56 45 4e 53 54 52 45 3b 22 20 6f 67 20 22 3b 48 5c 4a 52 ┆ fortegn i ";VENSTRE;" og ";HØJR┆
0x11980…119a0 45 47 0b 30 32 31 30 20 50 52 49 4e 54 20 0b 4d 30 32 32 30 20 49 4e 50 55 54 20 22 20 20 20 20 ┆EG 0210 PRINT M0220 INPUT " ┆
0x119a0…119c0 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 ┆ ┆
0x119c0…119e0 20 20 20 20 20 20 20 20 20 20 20 20 54 61 73 74 20 27 52 65 74 75 72 6e 21 22 3a 53 24 4d 0b 30 ┆ Tast 'Return!":S$M 0┆
0x119e0…11a00 32 33 30 20 43 4c 45 41 52 20 0b 0b 30 32 34 30 20 45 4e 44 49 46 20 0b 13 30 32 35 30 20 55 4e ┆230 CLEAR 0240 ENDIF 0250 UN┆
0x11a00…11a20 (8, 1, 11) 54 49 4c 20 46 56 2a 46 48 3c 3d 30 13 49 30 32 36 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 ┆TIL FV*FH<=0 I0260 INPUT "Indtas┆
0x11a20…11a40 74 20 64 65 6e 20 6e 7c 6a 61 67 74 69 67 68 65 64 20 68 76 6f 72 6d 65 64 20 72 6f 64 65 6e 20 ┆t den nøjagtighed hvormed roden ┆
0x11a40…11a60 7c 6e 73 6b 65 73 20 62 65 73 74 65 6d 74 3a 20 20 20 22 3a 45 50 53 49 0c 30 32 37 30 20 52 45 ┆ønskes bestemt: ":EPSI 0270 RE┆
0x11a60…11a80 50 45 41 54 20 0c 0b 30 32 38 30 20 49 3a 3d 49 2b 31 0b 21 30 32 39 30 20 4d 49 44 54 50 55 4e ┆PEAT 0280 I:=I+1 !0290 MIDTPUN┆
0x11a80…11aa0 4b 54 3a 3d 28 48 5c 4a 52 45 2b 56 45 4e 53 54 52 45 29 2f 32 21 17 30 33 30 30 20 46 4d 3a 3d ┆KT:=(HØJRE+VENSTRE)/2! 0300 FM:=┆
0x11aa0…11ac0 46 4e 46 28 4d 49 44 54 50 55 4e 4b 54 29 17 16 30 33 31 30 20 49 46 20 46 56 2a 46 4d 3c 3d 30 ┆FNF(MIDTPUNKT) 0310 IF FV*FM<=0┆
0x11ac0…11ae0 20 54 48 45 4e 20 16 15 30 33 32 30 20 48 5c 4a 52 45 3a 3d 4d 49 44 54 50 55 4e 4b 54 15 0b 30 ┆ THEN 0320 HØJRE:=MIDTPUNKT 0┆
0x11ae0…11b00 33 33 30 20 46 48 3a 3d 46 4d 0b 0a 30 33 34 30 20 45 4c 53 45 20 0a 17 30 33 35 30 20 56 45 4e ┆330 FH:=FM 0340 ELSE 0350 VEN┆
0x11b00…11b20 (8, 1, 12) 53 54 52 45 3a 3d 4d 49 44 54 50 55 4e 4b 54 17 0b 30 33 36 30 20 46 56 3a 3d 46 4d 0b 0b 30 33 ┆STRE:=MIDTPUNKT 0360 FV:=FM 03┆
0x11b20…11b40 37 30 20 45 4e 44 49 46 20 0b 1e 30 33 38 30 20 55 4e 54 49 4c 20 48 5c 4a 52 45 2d 56 45 4e 53 ┆70 ENDIF 0380 UNTIL HØJRE-VENS┆
0x11b40…11b60 54 52 45 3c 32 2a 45 50 53 1e 1b 30 33 39 30 20 52 4f 44 3a 3d 28 48 5c 4a 52 45 2b 56 45 4e 53 ┆TRE<2*EPS 0390 ROD:=(HØJRE+VENS┆
0x11b60…11b80 54 52 45 29 2f 32 1b 0b 30 34 30 30 20 50 52 49 4e 54 20 0b 4b 30 34 31 30 20 50 52 49 4e 54 20 ┆TRE)/2 0400 PRINT K0410 PRINT ┆
0x11b80…11ba0 22 45 66 74 65 72 20 22 3b 49 3b 22 20 68 61 6c 76 65 72 69 6e 67 65 72 20 61 66 20 69 6e 74 65 ┆"Efter ";I;" halveringer af inte┆
0x11ba0…11bc0 72 76 61 6c 6c 65 74 20 66 72 61 20 22 3b 47 4c 56 45 4e 53 54 52 45 3b 22 20 74 69 6c 20 22 3b ┆rvallet fra ";GLVENSTRE;" til ";┆
0x11bc0…11be0 4b 24 30 34 32 30 20 50 52 49 4e 54 20 47 4c 48 5c 4a 52 45 3b 22 20 65 72 20 72 6f 64 65 6e 20 ┆K$0420 PRINT GLHØJRE;" er roden ┆
0x11be0…11c00 6d 65 64 20 22 3b 24 39 30 34 33 30 20 50 52 49 4e 54 20 22 65 6e 20 6e 7c 6a 61 67 74 69 67 68 ┆med ";$90430 PRINT "en nøjagtigh┆
0x11c00…11c20 (8, 1, 13) 65 64 20 70 7d 20 22 3b 45 50 53 3b 22 20 66 75 6e 64 65 74 20 74 69 6c 3a 20 20 20 22 3b 52 4f ┆ed på ";EPS;" fundet til: ";RO┆
0x11c20…11c40 44 39 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆D9 cccccccccccccccccccccccccccc┆
0x11c40…11c60 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x5…]
0x11d00…11e00 (8, 1, 14) 0x63[0x100]
[…0x3…]
0x12100…12120 (9, 0, 2) ExtentHdr {name=»STYRTLØB«, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0012,0b (0x012b00)}, f99=41 12 00 fe 00 00 00 00 00 00 ┆A ┆}
0x12120…12140 4d 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 ┆M0010 // ---------------------- ┆
0x12140…12160 73 74 79 72 74 6c 7c 62 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆styrtløb -----------------------┆
0x12160…12180 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4d 3d 30 30 32 30 20 2f 2f 20 50 72 6f 67 72 61 6d 6d ┆--------------M=0020 // Programm┆
0x12180…121a0 65 74 20 6c 61 76 65 72 20 65 6e 20 74 61 76 6c 65 20 6d 65 64 20 64 65 20 74 72 65 20 62 65 64 ┆et laver en tavle med de tre bed┆
0x121a0…121c0 73 74 20 70 6c 61 63 65 72 65 64 65 2e 3d 08 30 30 33 30 20 2f 2f 20 08 2d 30 30 33 31 20 49 4e ┆st placerede.= 0030 // -0031 IN┆
0x121c0…121e0 54 45 47 45 52 20 49 2c 4a 2c 54 52 55 45 2c 46 41 4c 53 45 2c 41 4e 54 41 4c 2c 4e 52 31 2c 4e ┆TEGER I,J,TRUE,FALSE,ANTAL,NR1,N┆
0x121e0…12200 52 32 2c 4e 52 33 2d 15 30 30 33 32 20 54 52 55 45 3a 3d 31 3b 46 41 4c 53 45 3a 3d 30 15 19 30 ┆R2,NR3- 0032 TRUE:=1;FALSE:=0 0┆
0x12200…12220 (9, 0, 3) 30 34 30 20 4e 52 31 3a 3d 30 3b 4e 52 32 3a 3d 30 3b 4e 52 33 3a 3d 30 19 21 30 30 35 30 20 46 ┆040 NR1:=0;NR2:=0;NR3:=0 !0050 F┆
0x12220…12240 5c 52 53 54 45 3a 3d 39 3b 41 4e 44 45 4e 3a 3d 39 3b 54 52 45 44 49 45 3a 3d 39 21 08 30 30 36 ┆ØRSTE:=9;ANDEN:=9;TREDIE:=9! 006┆
0x12240…12260 30 20 2f 2f 20 08 14 30 30 37 30 20 45 58 45 43 20 4f 56 45 52 53 4b 52 49 46 54 14 1a 30 30 38 ┆0 // 0070 EXEC OVERSKRIFT 008┆
0x12260…12280 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 41 4e 54 41 4c 20 44 4f 20 1a 14 30 30 39 30 20 45 58 ┆0 FOR I:=1 TO ANTAL DO 0090 EX┆
0x12280…122a0 45 43 20 54 49 44 54 41 47 4e 49 4e 47 14 13 30 31 30 30 20 45 58 45 43 20 50 4c 41 43 45 52 49 ┆EC TIDTAGNING 0100 EXEC PLACERI┆
0x122a0…122c0 4e 47 13 12 30 31 31 30 20 45 58 45 43 20 4c 59 53 54 41 56 4c 45 12 0b 30 31 32 30 20 4e 45 58 ┆NG 0110 EXEC LYSTAVLE 0120 NEX┆
0x122c0…122e0 54 20 49 0b 08 30 31 33 30 20 2f 2f 20 08 14 30 31 34 30 20 50 52 4f 43 20 4f 56 45 52 53 4b 52 ┆T I 0130 // 0140 PROC OVERSKR┆
0x122e0…12300 49 46 54 14 0b 30 31 35 30 20 43 4c 45 41 52 20 0b 10 30 31 36 30 20 43 55 52 53 4f 52 20 32 32 ┆IFT 0150 CLEAR 0160 CURSOR 22┆
0x12300…12320 (9, 0, 4) 2c 32 10 2a 30 31 37 30 20 50 52 49 4e 54 20 22 20 2b 2b 2b 20 20 20 53 20 54 20 59 20 52 20 54 ┆,2 *0170 PRINT " +++ S T Y R T┆
0x12320…12340 20 4c 20 5c 20 42 20 20 20 2b 2b 2b 20 22 2a 10 30 31 38 30 20 43 55 52 53 4f 52 20 32 32 2c 35 ┆ L Ø B +++ "* 0180 CURSOR 22,5┆
0x12340…12360 10 18 30 31 39 30 20 50 52 49 4e 54 20 22 4c 7c 62 65 72 20 6e 72 2e 20 20 22 18 10 30 32 30 30 ┆ 0190 PRINT "Løber nr. " 0200┆
0x12360…12380 20 43 55 52 53 4f 52 20 32 32 2c 38 10 24 30 32 31 30 20 50 52 49 4e 54 20 22 54 69 64 20 28 31 ┆ CURSOR 22,8 $0210 PRINT "Tid (1┆
0x12380…123a0 2e 30 30 30 30 20 2d 20 35 2e 30 30 30 30 29 20 3a 22 24 11 30 32 32 30 20 43 55 52 53 4f 52 20 ┆.0000 - 5.0000) :"$ 0220 CURSOR ┆
0x123a0…123c0 32 32 2c 31 30 11 34 30 32 33 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 61 6e 74 61 6c ┆22,10 40230 INPUT "Indtast antal┆
0x123c0…123e0 6c 65 74 20 61 66 20 64 65 6c 74 61 67 65 72 65 3a 20 20 20 22 3a 41 4e 54 41 4c 34 11 30 32 34 ┆let af deltagere: ":ANTAL4 024┆
0x123e0…12400 30 20 43 55 52 53 4f 52 20 32 32 2c 31 30 11 49 30 32 35 30 20 50 52 49 4e 54 20 22 20 20 20 20 ┆0 CURSOR 22,10 I0250 PRINT " ┆
0x12400…12420 (9, 0, 5) 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 ┆ ┆
0x12420…12440 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 49 17 30 32 36 30 20 ┆ "I 0260 ┆
0x12440…12460 45 4e 44 50 52 4f 43 20 4f 56 45 52 53 4b 52 49 46 54 17 08 30 32 37 30 20 2f 2f 20 08 14 30 32 ┆ENDPROC OVERSKRIFT 0270 // 02┆
0x12460…12480 38 30 20 50 52 4f 43 20 54 49 44 54 41 47 4e 49 4e 47 14 10 30 32 39 30 20 43 55 52 53 4f 52 20 ┆80 PROC TIDTAGNING 0290 CURSOR ┆
0x12480…124a0 34 32 2c 35 10 0c 30 33 30 30 20 50 52 49 4e 54 20 49 0c 10 30 33 30 31 20 43 55 52 53 4f 52 20 ┆42,5 0300 PRINT I 0301 CURSOR ┆
0x124a0…124c0 35 32 2c 38 10 19 30 33 30 32 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 22 19 ┆52,8 0302 PRINT " " ┆
0x124c0…124e0 10 30 33 31 30 20 43 55 52 53 4f 52 20 35 32 2c 38 10 11 30 33 32 30 20 49 4e 50 55 54 20 22 22 ┆ 0310 CURSOR 52,8 0320 INPUT ""┆
0x124e0…12500 3a 54 49 44 11 17 30 33 33 30 20 45 4e 44 50 52 4f 43 20 54 49 44 54 41 47 4e 49 4e 47 17 08 30 ┆:TID 0330 ENDPROC TIDTAGNING 0┆
0x12500…12520 (9, 0, 6) 33 34 30 20 2f 2f 20 08 13 30 33 35 30 20 50 52 4f 43 20 50 4c 41 43 45 52 49 4e 47 13 12 30 33 ┆340 // 0350 PROC PLACERING 03┆
0x12520…12540 36 30 20 43 41 53 45 20 54 52 55 45 20 4f 46 20 12 14 30 33 37 30 20 57 48 45 4e 20 54 49 44 3c ┆60 CASE TRUE OF 0370 WHEN TID<┆
0x12540…12560 46 5c 52 53 54 45 14 1b 30 33 38 30 20 54 52 45 44 49 45 3a 3d 41 4e 44 45 4e 3b 4e 52 33 3a 3d ┆FØRSTE 0380 TREDIE:=ANDEN;NR3:=┆
0x12560…12580 4e 52 32 1b 1b 30 33 39 30 20 41 4e 44 45 4e 3a 3d 46 5c 52 53 54 45 3b 4e 52 32 3a 3d 4e 52 31 ┆NR2 0390 ANDEN:=FØRSTE;NR2:=NR1┆
0x12580…125a0 1b 17 30 34 30 30 20 46 5c 52 53 54 45 3a 3d 54 49 44 3b 4e 52 31 3a 3d 49 17 13 30 34 31 30 20 ┆ 0400 FØRSTE:=TID;NR1:=I 0410 ┆
0x125a0…125c0 57 48 45 4e 20 54 49 44 3c 41 4e 44 45 4e 13 1b 30 34 32 30 20 54 52 45 44 49 45 3a 3d 41 4e 44 ┆WHEN TID<ANDEN 0420 TREDIE:=AND┆
0x125c0…125e0 45 4e 3b 4e 52 33 3a 3d 4e 52 32 1b 16 30 34 33 30 20 41 4e 44 45 4e 3a 3d 54 49 44 3b 4e 52 32 ┆EN;NR3:=NR2 0430 ANDEN:=TID;NR2┆
0x125e0…12600 3a 3d 49 16 14 30 34 34 30 20 57 48 45 4e 20 54 49 44 3c 54 52 45 44 49 45 14 17 30 34 35 30 20 ┆:=I 0440 WHEN TID<TREDIE 0450 ┆
0x12600…12620 (9, 0, 7) 54 52 45 44 49 45 3a 3d 54 49 44 3b 4e 52 33 3a 3d 49 17 14 30 34 36 30 20 57 48 45 4e 20 54 49 ┆TREDIE:=TID;NR3:=I 0460 WHEN TI┆
0x12620…12640 44 3d 54 52 45 44 49 45 14 11 30 34 37 30 20 43 55 52 53 4f 52 20 32 32 2c 32 31 11 1b 30 34 38 ┆D=TREDIE 0470 CURSOR 22,21 048┆
0x12640…12660 30 20 50 52 49 4e 54 20 22 4c 7c 62 65 72 20 6e 72 2e 20 20 22 3b 49 3b 1b 34 30 34 39 30 20 50 ┆0 PRINT "Løber nr. ";I; 40490 P┆
0x12660…12680 52 49 4e 54 20 22 6f 70 6e 7d 65 64 65 20 73 61 6d 6d 65 20 74 69 64 20 73 6f 6d 20 64 65 6e 20 ┆RINT "opnåede samme tid som den ┆
0x12680…126a0 74 72 65 64 69 65 62 65 64 73 74 65 2e 22 34 21 30 35 30 30 20 46 4f 52 20 4a 3a 3d 31 20 54 4f ┆trediebedste."4!0500 FOR J:=1 TO┆
0x126a0…126c0 20 31 30 30 30 20 44 4f 20 2f 2f 20 70 61 75 73 65 21 11 30 35 32 30 20 43 55 52 53 4f 52 20 32 ┆ 1000 DO // pause! 0520 CURSOR 2┆
0x126c0…126e0 32 2c 32 31 11 4d 30 35 33 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆2,21 M0530 PRINT " ┆
0x126e0…12700 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 ┆ ┆
0x12700…12720 (9, 0, 8) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 38 30 35 34 30 20 50 52 49 4e 54 20 ┆ M80540 PRINT ┆
0x12720…12740 22 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 ┆" ┆
0x12740…12760 20 20 20 20 20 20 20 20 20 20 20 20 22 38 0f 30 35 35 30 20 4f 54 48 45 52 57 49 53 45 20 0f 11 ┆ "8 0550 OTHERWISE ┆
0x12760…12780 30 35 36 30 20 43 55 52 53 4f 52 20 32 31 2c 32 31 11 1b 30 35 37 30 20 50 52 49 4e 54 20 22 4c ┆0560 CURSOR 21,21 0570 PRINT "L┆
0x12780…127a0 7c 62 65 72 20 6e 72 2e 20 20 22 3b 49 3b 1b 39 30 35 38 30 20 50 52 49 4e 54 20 22 6f 70 6e 7d ┆øber nr. ";I; 90580 PRINT "opnå┆
0x127a0…127c0 65 64 65 20 69 6b 6b 65 20 70 6c 61 63 65 72 69 6e 67 20 62 6c 61 6e 64 74 20 64 65 20 74 72 65 ┆ede ikke placering blandt de tre┆
0x127c0…127e0 20 62 65 64 73 74 65 2e 22 39 21 30 35 39 30 20 46 4f 52 20 4a 3a 3d 31 20 54 4f 20 31 30 30 30 ┆ bedste."9!0590 FOR J:=1 TO 1000┆
0x127e0…12800 20 44 4f 20 2f 2f 20 70 61 75 73 65 21 11 30 36 31 30 20 43 55 52 53 4f 52 20 32 31 2c 32 31 11 ┆ DO // pause! 0610 CURSOR 21,21 ┆
0x12800…12820 (9, 0, 9) 4d 30 36 32 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆M0620 PRINT " ┆
0x12820…12840 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 ┆ ┆
0x12840…12860 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 0d 30 36 33 30 20 45 4e 44 43 41 53 45 20 0d 16 30 ┆ M 0630 ENDCASE 0┆
0x12860…12880 36 34 30 20 45 4e 44 50 52 4f 43 20 50 4c 41 43 45 52 49 4e 47 16 08 30 36 35 30 20 2f 2f 20 08 ┆640 ENDPROC PLACERING 0650 // ┆
0x12880…128a0 12 30 36 36 30 20 50 52 4f 43 20 4c 59 53 54 41 56 4c 45 12 11 30 36 37 30 20 43 55 52 53 4f 52 ┆ 0660 PROC LYSTAVLE 0670 CURSOR┆
0x128a0…128c0 20 32 31 2c 31 35 11 2e 30 36 38 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 31 3a 20 20 20 20 ┆ 21,15 .0680 PRINT USING "1: ┆
0x128c0…128e0 44 65 6c 74 61 67 65 72 20 6e 72 2e 23 23 23 23 22 3a 4e 52 31 3b 2e 29 30 36 39 30 20 50 52 49 ┆Deltager nr.####":NR1;.)0690 PRI┆
0x128e0…12900 4e 54 20 55 53 49 4e 47 20 22 20 20 20 20 54 69 64 3a 23 23 2e 23 23 23 23 22 3a 46 5c 52 53 54 ┆NT USING " Tid:##.####":FØRST┆
0x12900…12920 (9, 0, 10) 45 29 11 30 37 30 30 20 49 46 20 49 3e 31 20 54 48 45 4e 20 11 11 30 37 31 30 20 43 55 52 53 4f ┆E) 0700 IF I>1 THEN 0710 CURSO┆
0x12920…12940 52 20 32 31 2c 31 37 11 2e 30 37 32 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 32 3a 20 20 20 ┆R 21,17 .0720 PRINT USING "2: ┆
0x12940…12960 20 44 65 6c 74 61 67 65 72 20 6e 72 2e 23 23 23 23 22 3a 4e 52 32 3b 2e 28 30 37 33 30 20 50 52 ┆ Deltager nr.####":NR2;.(0730 PR┆
0x12960…12980 49 4e 54 20 55 53 49 4e 47 20 22 20 20 20 20 54 69 64 3a 23 23 2e 23 23 23 23 22 3a 41 4e 44 45 ┆INT USING " Tid:##.####":ANDE┆
0x12980…129a0 4e 28 0b 30 37 34 30 20 45 4e 44 49 46 20 0b 11 30 37 35 30 20 49 46 20 49 3e 32 20 54 48 45 4e ┆N( 0740 ENDIF 0750 IF I>2 THEN┆
0x129a0…129c0 20 11 11 30 37 36 30 20 43 55 52 53 4f 52 20 32 31 2c 31 39 11 2e 30 37 37 30 20 50 52 49 4e 54 ┆ 0760 CURSOR 21,19 .0770 PRINT┆
0x129c0…129e0 20 55 53 49 4e 47 20 22 33 3a 20 20 20 20 44 65 6c 74 61 67 65 72 20 6e 72 2e 23 23 23 23 22 3a ┆ USING "3: Deltager nr.####":┆
0x129e0…12a00 4e 52 33 3b 2e 29 30 37 38 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 20 20 20 20 54 69 64 3a ┆NR3;.)0780 PRINT USING " Tid:┆
0x12a00…12a20 (9, 0, 11) 23 23 2e 23 23 23 23 22 3a 54 52 45 44 49 45 29 0b 30 37 39 30 20 45 4e 44 49 46 20 0b 15 30 38 ┆##.####":TREDIE) 0790 ENDIF 08┆
0x12a20…12a40 30 30 20 45 4e 44 50 52 4f 43 20 4c 59 53 54 41 56 4c 45 15 10 30 39 30 30 20 43 55 52 53 4f 52 ┆00 ENDPROC LYSTAVLE 0900 CURSOR┆
0x12a40…12a60 20 31 2c 32 32 10 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ 1,22 cccccccccccccccccccccccc┆
0x12a60…12a80 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x4…]
0x12b00…12b20 (9, 0, 12) ExtentHdr {name=»MAX_MIN «, typ=»K«, seg=»A«, next=0x00, basis=0x0004, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0012,0f (0x012f00)}, f99=41 12 00 fe 00 41 58 5f 4d 49 ┆A AX_MI┆}
0x12b20…12b40 45 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆E0010 // -----------------------┆
0x12b40…12b60 2d 2d 2d 2d 20 6d 61 78 2d 6d 69 6e 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆---- max-min -------------------┆
0x12b60…12b80 2d 2d 2d 2d 2d 2d 45 08 30 30 32 30 20 2f 2f 20 08 0f 30 30 33 30 20 50 52 4f 43 20 46 28 58 31 ┆------E 0020 // 0030 PROC F(X1┆
0x12b80…12ba0 29 0f 14 30 30 34 30 20 46 3a 3d 58 31 2a 58 31 2d 31 2a 58 31 2b 32 14 0e 30 30 35 30 20 45 4e ┆) 0040 F:=X1*X1-1*X1+2 0050 EN┆
0x12ba0…12bc0 44 50 52 4f 43 20 46 0e 08 30 30 36 30 20 2f 2f 20 08 12 30 30 36 35 20 49 4e 54 45 47 45 52 20 ┆DPROC F 0060 // 0065 INTEGER ┆
0x12bc0…12be0 41 4e 54 41 4c 12 0b 30 30 37 30 20 43 4c 45 41 52 20 0b 49 30 30 38 30 20 49 4e 50 55 54 20 22 ┆ANTAL 0070 CLEAR I0080 INPUT "┆
0x12be0…12c00 49 6e 64 74 61 73 74 20 76 65 6e 73 74 72 65 20 6f 67 20 68 7c 6a 72 65 20 69 6e 74 65 72 76 61 ┆Indtast venstre og højre interva┆
0x12c00…12c20 (9, 0, 13) 6c 65 6e 64 65 70 75 6e 6b 74 3a 20 20 20 22 3a 56 45 4e 53 54 52 45 2c 48 5c 4a 52 45 49 42 30 ┆lendepunkt: ":VENSTRE,HØJREIB0┆
0x12c20…12c40 30 39 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 61 6e 74 61 6c 20 64 65 6c 69 6e 74 65 ┆090 INPUT "Indtast antal delinte┆
0x12c40…12c60 72 76 61 6c 6c 65 72 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 41 4e 54 41 ┆rvaller: ":ANTA┆
0x12c60…12c80 4c 42 0b 30 31 30 30 20 50 52 49 4e 54 20 0b 3c 30 31 31 30 20 50 52 49 4e 54 20 22 49 6e 74 65 ┆LB 0100 PRINT <0110 PRINT "Inte┆
0x12c80…12ca0 72 76 61 6c 65 6e 64 65 70 75 6e 6b 74 65 72 6e 65 20 65 72 3a 20 22 3b 56 45 4e 53 54 52 45 3b ┆rvalendepunkterne er: ";VENSTRE;┆
0x12ca0…12cc0 22 20 6f 67 20 22 3b 48 5c 4a 52 45 3c 33 30 31 32 30 20 50 52 49 4e 54 20 22 44 65 72 20 62 65 ┆" og ";HØJRE<30120 PRINT "Der be┆
0x12cc0…12ce0 6e 79 74 74 65 73 20 22 3b 41 4e 54 41 4c 2b 31 3b 22 20 73 74 7c 74 74 65 70 75 6e 6b 74 65 72 ┆nyttes ";ANTAL+1;" støttepunkter┆
0x12ce0…12d00 22 33 0b 30 31 33 30 20 50 52 49 4e 54 20 0b 1b 30 31 34 30 20 49 46 20 48 5c 4a 52 45 3c 56 45 ┆"3 0130 PRINT 0140 IF HØJRE<VE┆
0x12d00…12d20 (9, 0, 14) 4e 53 54 52 45 20 54 48 45 4e 20 1b 2b 30 31 35 30 20 42 59 54 3a 3d 48 5c 4a 52 45 3b 48 5c 4a ┆NSTRE THEN +0150 BYT:=HØJRE;HØJ┆
0x12d20…12d40 52 45 3a 3d 56 45 4e 53 54 52 45 3b 56 45 4e 53 54 52 45 3a 3d 42 59 54 2b 0b 30 31 36 30 20 45 ┆RE:=VENSTRE;VENSTRE:=BYT+ 0160 E┆
0x12d40…12d60 4e 44 49 46 20 0b 22 30 31 37 30 20 53 4b 52 49 44 54 3a 3d 28 48 5c 4a 52 45 2d 56 45 4e 53 54 ┆NDIF "0170 SKRIDT:=(HØJRE-VENST┆
0x12d60…12d80 52 45 29 2f 41 4e 54 41 4c 22 1d 30 31 38 30 20 4d 41 58 3a 3d 46 28 56 45 4e 53 54 52 45 29 3b ┆RE)/ANTAL" 0180 MAX:=F(VENSTRE);┆
0x12d80…12da0 4d 49 4e 3a 3d 4d 41 58 1d 35 30 31 39 30 20 46 4f 52 20 58 3a 3d 56 45 4e 53 54 52 45 20 54 4f ┆MIN:=MAX 50190 FOR X:=VENSTRE TO┆
0x12da0…12dc0 20 48 5c 4a 52 45 2b 30 2e 30 30 30 30 30 31 20 53 54 45 50 20 53 4b 52 49 44 54 20 44 4f 20 35 ┆ HØJRE+0.000001 STEP SKRIDT DO 5┆
0x12dc0…12de0 0d 30 32 30 30 20 46 58 3a 3d 46 28 58 29 0d 1b 30 32 31 30 20 49 46 20 46 58 3e 4d 41 58 20 54 ┆ 0200 FX:=F(X) 0210 IF FX>MAX T┆
0x12de0…12e00 48 45 4e 20 4d 41 58 3a 3d 46 58 1b 1b 30 32 32 30 20 49 46 20 46 58 3c 4d 49 4e 20 54 48 45 4e ┆HEN MAX:=FX 0220 IF FX<MIN THEN┆
0x12e00…12e20 (9, 0, 15) 20 4d 49 4e 3a 3d 46 58 1b 0b 30 32 33 30 20 4e 45 58 54 20 58 0b 0b 30 32 34 30 20 50 52 49 4e ┆ MIN:=FX 0230 NEXT X 0240 PRIN┆
0x12e20…12e40 54 20 0b 2a 30 32 35 30 20 50 52 49 4e 54 20 22 4d 61 78 69 6d 75 6d 20 65 72 20 66 75 6e 64 65 ┆T *0250 PRINT "Maximum er funde┆
0x12e40…12e60 74 20 74 69 6c 3a 20 20 20 22 3b 4d 41 58 2a 2a 30 32 36 30 20 50 52 49 4e 54 20 22 4d 69 6e 69 ┆t til: ";MAX**0260 PRINT "Mini┆
0x12e60…12e80 6d 75 6d 20 65 72 20 66 75 6e 64 65 74 20 74 69 6c 3a 20 20 20 22 3b 4d 49 4e 2a 00 00 63 63 63 ┆mum er fundet til: ";MIN* ccc┆
0x12e80…12ea0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x3…]
0x12f00…12f20 (9, 0, 16) ExtentHdr {name=»PAKKEPOS«, typ=»K«, seg=»A«, next=0x01, basis=0x0005, nextext={DA 0013,04 (0x013400)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0013,04 (0x013400)}, f99=41 12 00 fe 00 41 58 5f 4d 49 ┆A AX_MI┆}
0x12f20…12f40 49 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆I0010 // -----------------------┆
0x12f40…12f60 2d 2d 2d 2d 2d 20 70 61 6b 6b 65 70 6f 73 74 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆----- pakkepost ----------------┆
0x12f60…12f80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 08 30 30 32 30 20 2f 2f 20 08 17 30 30 32 35 20 49 4e 54 45 47 ┆----------I 0020 // 0025 INTEG┆
0x12f80…12fa0 45 52 20 54 52 55 45 2c 46 41 4c 53 45 17 15 30 30 32 36 20 54 52 55 45 3a 3d 31 3b 46 41 4c 53 ┆ER TRUE,FALSE 0026 TRUE:=1;FALS┆
0x12fa0…12fc0 45 3a 3d 30 15 0b 30 30 33 30 20 43 4c 45 41 52 20 0b 0b 30 30 33 35 20 50 52 49 4e 54 20 0b 46 ┆E:=0 0030 CLEAR 0035 PRINT F┆
0x12fc0…12fe0 30 30 34 30 20 49 4e 50 55 54 20 22 50 61 6b 6b 65 6e 73 20 76 7b 67 74 3a 20 20 20 20 28 69 6b ┆0040 INPUT "Pakkens vægt: (ik┆
0x12fe0…13000 6b 65 20 6f 76 65 72 20 32 30 20 6b 67 2e 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ke over 20 kg.) ┆
0x13000…13020 (9, 1, 1) 22 3a 56 5b 47 54 46 0b 30 30 35 30 20 50 52 49 4e 54 20 0b 4b 30 30 36 30 20 49 4e 50 55 54 20 ┆":VÆGTF 0050 PRINT K0060 INPUT ┆
0x13020…13040 22 45 72 20 70 61 6b 6b 65 6e 20 61 6c 6d 69 6e 64 65 6c 69 67 20 28 74 61 6b 73 74 20 31 29 20 ┆"Er pakken almindelig (takst 1) ┆
0x13040…13060 65 6c 6c 65 72 20 76 6f 6c 75 6d 69 6e 7c 73 20 28 74 61 6b 73 74 20 32 29 3a 20 22 3a 54 41 4c ┆eller voluminøs (takst 2): ":TAL┆
0x13060…13080 4b 0b 30 30 37 30 20 50 52 49 4e 54 20 0b 13 30 30 38 30 20 49 46 20 54 41 4c 3d 31 20 54 48 45 ┆K 0070 PRINT 0080 IF TAL=1 THE┆
0x13080…130a0 4e 20 13 12 30 30 39 30 20 43 41 53 45 20 54 52 55 45 20 4f 46 20 12 11 30 31 30 30 20 57 48 45 ┆N 0090 CASE TRUE OF 0100 WHE┆
0x130a0…130c0 4e 20 56 5b 47 54 3c 3d 35 11 10 30 31 31 30 20 50 4f 52 54 4f 3a 3d 31 36 30 30 10 12 30 31 32 ┆N VÆGT<=5 0110 PORTO:=1600 012┆
0x130c0…130e0 30 20 57 48 45 4e 20 56 5b 47 54 3c 3d 31 30 12 10 30 31 33 30 20 50 4f 52 54 4f 3a 3d 33 30 30 ┆0 WHEN VÆGT<=10 0130 PORTO:=300┆
0x130e0…13100 30 10 12 30 31 34 30 20 57 48 45 4e 20 56 5b 47 54 3c 3d 31 35 12 10 30 31 35 30 20 50 4f 52 54 ┆0 0140 WHEN VÆGT<=15 0150 PORT┆
0x13100…13120 (9, 1, 2) 4f 3a 3d 35 30 30 30 10 12 30 31 36 30 20 57 48 45 4e 20 56 5b 47 54 3c 3d 32 30 12 10 30 31 37 ┆O:=5000 0160 WHEN VÆGT<=20 017┆
0x13120…13140 30 20 50 4f 52 54 4f 3a 3d 36 30 30 30 10 0f 30 31 38 30 20 4f 54 48 45 52 57 49 53 45 20 0f 0b ┆0 PORTO:=6000 0180 OTHERWISE ┆
0x13140…13160 30 31 39 30 20 50 52 49 4e 54 20 0b 45 30 32 30 30 20 50 52 49 4e 54 20 22 44 65 6e 6e 65 20 70 ┆0190 PRINT E0200 PRINT "Denne p┆
0x13160…13180 61 6b 6b 65 20 68 7c 72 65 72 20 76 69 73 74 20 75 6e 64 65 72 20 65 6e 20 76 6f 67 6e 6d 61 6e ┆akke hører vist under en vognman┆
0x13180…131a0 64 20 28 20 65 6c 6c 65 72 20 46 61 6c 63 6b 29 2e 22 45 09 30 32 31 30 20 45 4e 44 20 09 0d 30 ┆d ( eller Falck)."E 0210 END 0┆
0x131a0…131c0 32 32 30 20 45 4e 44 43 41 53 45 20 0d 0b 30 32 33 30 20 50 52 49 4e 54 20 0b 3f 30 32 34 30 20 ┆220 ENDCASE 0230 PRINT ?0240 ┆
0x131c0…131e0 50 52 49 4e 54 20 55 53 49 4e 47 20 22 50 61 6b 6b 65 6e 73 20 76 7b 67 74 3a 20 20 20 20 20 20 ┆PRINT USING "Pakkens vægt: ┆
0x131e0…13200 20 20 20 20 20 20 20 20 20 23 23 23 23 2e 23 23 20 6b 67 2e 22 3a 56 5b 47 54 3f 44 30 32 35 30 ┆ ####.## kg.":VÆGT?D0250┆
0x13200…13220 (9, 1, 3) 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 50 6f 72 74 6f 3a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PRINT USING "Porto: ┆
0x13220…13240 20 20 20 20 20 20 20 20 20 23 23 23 23 23 2e 23 23 20 6b 72 2e 22 3a 50 4f 52 54 4f 2f 31 30 30 ┆ #####.## kr.":PORTO/100┆
0x13240…13260 44 0a 30 32 36 30 20 45 4c 53 45 20 0a 13 30 32 37 30 20 49 46 20 54 41 4c 3d 32 20 54 48 45 4e ┆D 0260 ELSE 0270 IF TAL=2 THEN┆
0x13260…13280 20 13 12 30 32 38 30 20 43 41 53 45 20 54 52 55 45 20 4f 46 20 12 11 30 32 39 30 20 57 48 45 4e ┆ 0280 CASE TRUE OF 0290 WHEN┆
0x13280…132a0 20 56 5b 47 54 3c 3d 35 11 10 30 33 30 30 20 50 4f 52 54 4f 3a 3d 33 32 30 30 10 12 30 33 31 30 ┆ VÆGT<=5 0300 PORTO:=3200 0310┆
0x132a0…132c0 20 57 48 45 4e 20 56 5b 47 54 3c 3d 31 30 12 10 30 33 32 30 20 50 4f 52 54 4f 3a 3d 36 30 30 30 ┆ WHEN VÆGT<=10 0320 PORTO:=6000┆
0x132c0…132e0 10 12 30 33 33 30 20 57 48 45 4e 20 56 5b 47 54 3c 3d 31 35 12 11 30 33 34 30 20 50 4f 52 54 4f ┆ 0330 WHEN VÆGT<=15 0340 PORTO┆
0x132e0…13300 3a 3d 31 30 30 30 30 11 12 30 33 35 30 20 57 48 45 4e 20 56 5b 47 54 3c 3d 32 30 12 11 30 33 36 ┆:=10000 0350 WHEN VÆGT<=20 036┆
0x13300…13320 (9, 1, 4) 30 20 50 4f 52 54 4f 3a 3d 31 32 30 30 30 11 0f 30 33 37 30 20 4f 54 48 45 52 57 49 53 45 20 0f ┆0 PORTO:=12000 0370 OTHERWISE ┆
0x13320…13340 0b 30 33 38 30 20 50 52 49 4e 54 20 0b 3d 30 33 39 30 20 50 52 49 4e 54 20 22 44 65 6e 6e 65 20 ┆ 0380 PRINT =0390 PRINT "Denne ┆
0x13340…13360 70 61 6b 6b 65 20 62 7c 72 20 76 69 73 74 20 74 72 61 6e 73 70 6f 72 74 65 72 65 73 20 6d 65 64 ┆pakke bør vist transporteres med┆
0x13360…13380 20 66 72 61 67 74 62 7d 64 2e 22 3d 09 30 34 30 30 20 45 4e 44 20 09 0d 30 34 31 30 20 45 4e 44 ┆ fragtbåd."= 0400 END 0410 END┆
0x13380…133a0 43 41 53 45 20 0d 3d 30 34 32 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 50 61 6b 6b 65 6e 73 ┆CASE =0420 PRINT USING "Pakkens┆
0x133a0…133c0 20 76 7b 67 74 3a 20 20 20 20 20 20 20 20 20 20 20 20 23 23 23 23 23 2e 23 23 20 6b 67 2e 22 3a ┆ vægt: #####.## kg.":┆
0x133c0…133e0 56 5b 47 54 3d 42 30 34 33 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 50 6f 72 74 6f 3a 20 20 ┆VÆGT=B0430 PRINT USING "Porto: ┆
0x133e0…13400 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 23 23 23 23 23 2e 23 23 20 6b 72 2e 22 3a 50 ┆ ######.## kr.":P┆
0x13400…13420 (9, 1, 5) ExtentHdr {name=»PAKKEPOS«, typ=»K«, seg=»B«, next=0x01, basis=0x0005, nextext={DA 0000,00 (0x000000)}, prevext={DA 0012,0f (0x012f00)}, nextfile={DA 0013,09 (0x013900)}, f99=41 12 00 20 00 41 58 5f 4d 49 ┆A AX_MI┆}
0x13420…13440 4f 52 54 4f 2f 31 30 30 42 0a 30 34 34 30 20 45 4c 53 45 20 0a 33 30 34 35 30 20 50 52 49 4e 54 ┆ORTO/100B 0440 ELSE 30450 PRINT┆
0x13440…13460 20 22 44 75 20 68 61 72 20 76 69 73 74 20 74 61 73 74 65 74 20 66 6f 72 6b 65 72 74 2e 20 50 72 ┆ "Du har vist tastet forkert. Pr┆
0x13460…13480 7c 76 20 69 67 65 6e 2e 22 33 0b 30 34 36 30 20 45 4e 44 49 46 20 0b 0b 30 34 37 30 20 45 4e 44 ┆øv igen."3 0460 ENDIF 0470 END┆
0x13480…134a0 49 46 20 0b 00 00 45 2c 46 41 4c 53 45 17 15 30 30 32 36 20 54 52 55 45 3a 3d 31 3b 46 41 4c 53 ┆IF E,FALSE 0026 TRUE:=1;FALS┆
0x134a0…134c0 45 3a 3d 30 15 0b 30 30 33 30 20 43 4c 45 41 52 20 0b 0b 30 30 33 35 20 50 52 49 4e 54 20 0b 46 ┆E:=0 0030 CLEAR 0035 PRINT F┆
0x134c0…134e0 30 30 34 30 20 49 4e 50 55 54 20 22 50 61 6b 6b 65 6e 73 20 76 7b 67 74 3a 20 20 20 20 28 69 6b ┆0040 INPUT "Pakkens vægt: (ik┆
0x134e0…13500 6b 65 20 6f 76 65 72 20 32 30 20 6b 67 2e 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ke over 20 kg.) ┆
0x13500…13600 (9, 1, 6) 0x63[0x100]
[…0x3…]
0x13900…13920 (9, 1, 10) ExtentHdr {name=»REJSEB2 «, typ=»K«, seg=»A«, next=0x01, basis=0x000a, nextext={DA 0014,03 (0x014300)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0014,03 (0x014300)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x13920…13940 43 30 31 30 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆C0100 // -----------------------┆
0x13940…13960 20 52 65 6a 73 65 62 75 72 65 61 75 2d 32 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ Rejsebureau-2 -----------------┆
0x13960…13980 2d 2d 2d 2d 43 42 30 31 31 30 20 2f 2f 20 50 72 6f 67 72 61 6d 6d 65 74 20 75 64 73 6b 72 69 76 ┆----CB0110 // Programmet udskriv┆
0x13980…139a0 65 72 20 70 72 69 73 20 6f 67 20 72 65 73 74 61 6e 74 61 6c 20 66 6f 72 20 64 65 73 74 69 6e 61 ┆er pris og restantal for destina┆
0x139a0…139c0 74 69 6f 6e 65 72 20 69 42 0f 30 31 32 30 20 2f 2f 20 45 75 72 6f 70 61 2e 0f 08 30 31 33 30 20 ┆tioner iB 0120 // Europa. 0130 ┆
0x139c0…139e0 2f 2f 20 08 2d 30 31 34 30 20 49 4e 54 45 47 45 52 20 54 52 55 45 2c 46 41 4c 53 45 2c 41 4e 54 ┆// -0140 INTEGER TRUE,FALSE,ANT┆
0x139e0…13a00 41 4c 52 45 4a 53 45 4d 5d 4c 2c 49 2c 41 4e 54 41 4c 2d 15 30 31 35 30 20 46 41 4c 53 45 3a 3d ┆ALREJSEMÅL,I,ANTAL- 0150 FALSE:=┆
0x13a00…13a20 (9, 1, 11) 30 3b 54 52 55 45 3a 3d 31 15 3f 30 31 36 30 20 44 49 4d 20 52 45 4a 53 45 4d 5d 4c 24 20 4f 46 ┆0;TRUE:=1 ?0160 DIM REJSEMÅL$ OF┆
0x13a20…13a40 20 33 30 2c 44 45 53 54 49 4e 41 54 49 4f 4e 24 20 4f 46 20 33 30 2c 5c 4e 53 4b 45 24 20 4f 46 ┆ 30,DESTINATION$ OF 30,ØNSKE$ OF┆
0x13a40…13a60 20 33 2c 53 24 20 4f 46 20 31 3f 0e 30 31 37 30 20 45 58 45 43 20 4d 45 4e 55 0e 08 30 31 38 30 ┆ 3,S$ OF 1? 0170 EXEC MENU 0180┆
0x13a60…13a80 20 2f 2f 20 08 0e 30 31 39 30 20 50 52 4f 43 20 4d 45 4e 55 0e 0d 30 32 30 30 20 52 45 53 54 4f ┆ // 0190 PROC MENU 0200 RESTO┆
0x13a80…13aa0 52 45 20 0d 0b 30 32 31 30 20 43 4c 45 41 52 20 0b 0f 30 32 32 30 20 43 55 52 53 4f 52 20 31 2c ┆RE 0210 CLEAR 0220 CURSOR 1,┆
0x13aa0…13ac0 33 0f 3e 30 32 33 30 20 50 52 49 4e 54 20 22 20 20 52 20 45 20 4a 20 53 20 45 20 42 20 55 20 52 ┆3 >0230 PRINT " R E J S E B U R┆
0x13ac0…13ae0 20 45 20 41 20 55 20 20 20 20 20 27 44 65 6e 20 67 79 6c 64 6e 65 20 73 6f 6c 27 20 20 20 20 20 ┆ E A U 'Den gyldne sol' ┆
0x13ae0…13b00 22 3e 0f 30 32 34 30 20 43 55 52 53 4f 52 20 31 2c 34 0f 3e 30 32 35 30 20 50 52 49 4e 54 20 22 ┆"> 0240 CURSOR 1,4 >0250 PRINT "┆
0x13b00…13b20 (9, 1, 12) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x13b20…13b40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 3e 10 30 32 36 30 20 43 55 52 53 4f 52 20 ┆-----------------"> 0260 CURSOR ┆
0x13b40…13b60 31 2c 31 30 10 30 30 32 37 30 20 50 52 49 4e 54 20 22 56 69 20 68 61 72 20 66 7c 6c 67 65 6e 64 ┆1,10 00270 PRINT "Vi har følgend┆
0x13b60…13b80 65 20 64 65 73 74 69 6e 61 74 69 6f 6e 65 72 3a 20 20 20 20 20 22 30 10 30 32 38 30 20 43 55 52 ┆e destinationer: "0 0280 CUR┆
0x13b80…13ba0 53 4f 52 20 31 2c 31 31 10 30 30 32 39 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆SOR 1,11 00290 PRINT "----------┆
0x13ba0…13bc0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 20 20 20 22 30 10 30 33 30 30 ┆-------------------- "0 0300┆
0x13bc0…13be0 20 43 55 52 53 4f 52 20 31 2c 31 33 10 45 30 33 31 30 20 50 52 49 4e 54 20 22 4c 6f 6e 64 6f 6e ┆ CURSOR 1,13 E0310 PRINT "London┆
0x13be0…13c00 20 2d 20 50 61 72 69 73 20 2d 20 4f 73 6c 6f 20 2d 20 53 74 6f 63 6b 68 6f 6c 6d 20 2d 20 4d 61 ┆ - Paris - Oslo - Stockholm - Ma┆
0x13c00…13c20 (9, 1, 13) 64 72 69 64 20 2d 20 48 65 6c 73 69 6e 67 66 6f 72 73 22 45 44 30 33 32 30 20 50 52 49 4e 54 20 ┆drid - Helsingfors"ED0320 PRINT ┆
0x13c20…13c40 22 52 6f 6d 20 2d 20 4d 6f 73 6b 76 61 20 2d 20 42 65 72 6e 20 2d 20 41 6d 73 74 65 72 64 61 6d ┆"Rom - Moskva - Bern - Amsterdam┆
0x13c40…13c60 20 2d 20 42 72 75 78 65 6c 6c 65 73 20 2d 20 4c 69 73 73 61 62 6f 6e 20 22 44 10 30 33 33 30 20 ┆ - Bruxelles - Lissabon "D 0330 ┆
0x13c60…13c80 43 55 52 53 4f 52 20 31 2c 31 38 10 35 30 33 34 30 20 49 4e 50 55 54 20 22 48 76 6f 72 68 65 6e ┆CURSOR 1,18 50340 INPUT "Hvorhen┆
0x13c80…13ca0 20 7c 6e 73 6b 65 72 20 44 65 20 61 74 20 72 65 6a 73 65 3f 20 20 20 22 3a 52 45 4a 53 45 4d 5d ┆ ønsker De at rejse? ":REJSEMÅ┆
0x13ca0…13cc0 4c 24 35 08 30 33 35 30 20 2f 2f 20 08 12 30 33 36 30 20 46 55 4e 44 45 54 3a 3d 46 41 4c 53 45 ┆L$5 0350 // 0360 FUNDET:=FALSE┆
0x13cc0…13ce0 12 1e 30 33 37 30 20 4f 50 45 4e 20 22 73 79 73 74 69 6d 65 3a 72 65 6a 73 65 66 69 6c 22 2c 57 ┆ 0370 OPEN "systime:rejsefil",W┆
0x13ce0…13d00 1e 33 30 33 38 30 20 47 45 54 20 22 73 79 73 74 69 6d 65 3a 72 65 6a 73 65 66 69 6c 22 3a 44 45 ┆ 30380 GET "systime:rejsefil":DE┆
0x13d00…13d20 (9, 1, 14) 53 54 49 4e 41 54 49 4f 4e 24 2c 50 52 49 53 2c 41 4e 54 41 4c 33 2a 30 33 39 30 20 57 48 49 4c ┆STINATION$,PRIS,ANTAL3*0390 WHIL┆
0x13d20…13d40 45 20 4e 4f 54 20 45 4f 46 28 22 73 79 73 74 69 6d 65 3a 72 65 6a 73 65 66 69 6c 22 29 20 44 4f ┆E NOT EOF("systime:rejsefil") DO┆
0x13d40…13d60 20 2a 24 30 34 30 30 20 49 46 20 44 45 53 54 49 4e 41 54 49 4f 4e 24 3d 52 45 4a 53 45 4d 5d 4c ┆ *$0400 IF DESTINATION$=REJSEMÅL┆
0x13d60…13d80 24 20 54 48 45 4e 20 24 0b 30 34 31 30 20 43 4c 45 41 52 20 0b 12 30 34 32 30 20 45 58 45 43 20 ┆$ THEN $ 0410 CLEAR 0420 EXEC ┆
0x13d80…13da0 55 44 53 4b 52 49 46 54 12 11 30 34 33 30 20 45 58 45 43 20 50 52 49 4e 54 45 52 11 11 30 34 34 ┆UDSKRIFT 0430 EXEC PRINTER 044┆
0x13da0…13dc0 30 20 46 55 4e 44 45 54 3a 3d 54 52 55 45 11 0b 30 34 35 30 20 45 4e 44 49 46 20 0b 33 30 34 36 ┆0 FUNDET:=TRUE 0450 ENDIF 3046┆
0x13dc0…13de0 30 20 47 45 54 20 22 73 79 73 74 69 6d 65 3a 72 65 6a 73 65 66 69 6c 22 3a 44 45 53 54 49 4e 41 ┆0 GET "systime:rejsefil":DESTINA┆
0x13de0…13e00 54 49 4f 4e 24 2c 50 52 49 53 2c 41 4e 54 41 4c 33 0e 30 34 37 30 20 45 4e 44 57 48 49 4c 45 20 ┆TION$,PRIS,ANTAL3 0470 ENDWHILE ┆
0x13e00…13e20 (9, 1, 15) 0e 0b 30 34 38 30 20 43 4c 4f 53 45 20 0b 27 30 34 39 30 20 49 46 20 4e 4f 54 20 46 55 4e 44 45 ┆ 0480 CLOSE '0490 IF NOT FUNDE┆
0x13e20…13e40 54 20 54 48 45 4e 20 45 58 45 43 20 46 45 4a 4c 53 4b 52 49 46 54 27 11 30 35 30 30 20 45 4e 44 ┆T THEN EXEC FEJLSKRIFT' 0500 END┆
0x13e40…13e60 50 52 4f 43 20 4d 45 4e 55 11 08 30 35 31 30 20 2f 2f 20 08 14 30 35 32 30 20 50 52 4f 43 20 46 ┆PROC MENU 0510 // 0520 PROC F┆
0x13e60…13e80 45 4a 4c 53 4b 52 49 46 54 14 0b 30 35 33 30 20 43 4c 45 41 52 20 0b 10 30 35 34 30 20 43 55 52 ┆EJLSKRIFT 0530 CLEAR 0540 CUR┆
0x13e80…13ea0 53 4f 52 20 31 2c 31 30 10 3a 30 35 35 30 20 50 52 49 4e 54 20 22 56 69 20 68 61 72 20 64 65 73 ┆SOR 1,10 :0550 PRINT "Vi har des┆
0x13ea0…13ec0 76 7b 72 72 65 20 69 6e 67 65 6e 20 72 65 6a 73 65 72 20 74 69 6c 3a 20 20 22 3b 52 45 4a 53 45 ┆værre ingen rejser til: ";REJSE┆
0x13ec0…13ee0 4d 5d 4c 24 3a 10 30 35 36 30 20 43 55 52 53 4f 52 20 31 2c 32 30 10 45 30 35 37 30 20 49 4e 50 ┆MÅL$: 0560 CURSOR 1,20 E0570 INP┆
0x13ee0…13f00 55 54 20 22 48 61 72 20 44 65 20 69 6b 6b 65 20 6c 79 73 74 20 74 69 6c 20 61 74 20 72 65 6a 73 ┆UT "Har De ikke lyst til at rejs┆
0x13f00…13f20 (9, 1, 16) 65 20 65 74 20 61 6e 64 65 74 20 73 74 65 64 20 68 65 6e 3f 20 22 3a 5c 4e 53 4b 45 24 45 1f 30 ┆e et andet sted hen? ":ØNSKE$E 0┆
0x13f20…13f40 35 38 30 20 49 46 20 5c 4e 53 4b 45 24 20 49 4e 20 22 4a 41 2c 6a 61 22 20 54 48 45 4e 20 1f 0e ┆580 IF ØNSKE$ IN "JA,ja" THEN ┆
0x13f40…13f60 30 35 39 30 20 45 58 45 43 20 4d 45 4e 55 0e 0a 30 36 30 30 20 45 4c 53 45 20 0a 09 30 36 31 30 ┆0590 EXEC MENU 0600 ELSE 0610┆
0x13f60…13f80 20 45 4e 44 20 09 0b 30 36 32 30 20 45 4e 44 49 46 20 0b 17 30 36 33 30 20 45 4e 44 50 52 4f 43 ┆ END 0620 ENDIF 0630 ENDPROC┆
0x13f80…13fa0 20 46 45 4a 4c 53 4b 52 49 46 54 17 08 30 36 34 30 20 2f 2f 20 08 12 30 36 35 30 20 50 52 4f 43 ┆ FEJLSKRIFT 0640 // 0650 PROC┆
0x13fa0…13fc0 20 55 44 53 4b 52 49 46 54 12 0f 30 36 36 30 20 43 55 52 53 4f 52 20 31 2c 36 0f 3c 30 36 37 30 ┆ UDSKRIFT 0660 CURSOR 1,6 <0670┆
0x13fc0…13fe0 20 50 52 49 4e 54 20 22 20 20 52 20 65 20 6a 20 64 20 65 20 62 20 75 20 72 20 65 20 61 20 75 20 ┆ PRINT " R e j d e b u r e a u ┆
0x13fe0…14000 20 20 20 27 44 65 6e 20 67 79 6c 64 6e 65 20 73 6f 6c 27 20 20 20 20 22 3c 0f 30 36 38 30 20 43 ┆ 'Den gyldne sol' "< 0680 C┆
0x14000…14020 (10, 0, 1) 55 52 53 4f 52 20 31 2c 37 0f 3c 30 36 39 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆URSOR 1,7 <0690 PRINT "---------┆
0x14020…14040 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x14040…14060 2d 2d 2d 2d 2d 2d 22 3c 10 30 37 30 30 20 43 55 52 53 4f 52 20 31 2c 31 30 10 3c 30 37 31 30 20 ┆------"< 0700 CURSOR 1,10 <0710 ┆
0x14060…14080 50 52 49 4e 54 20 22 56 69 20 6b 61 6e 20 74 69 6c 62 79 64 65 20 44 65 6d 20 65 6e 20 72 65 6a ┆PRINT "Vi kan tilbyde Dem en rej┆
0x14080…140a0 73 65 20 74 69 6c 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3c 10 30 37 32 30 20 43 55 ┆se til: "< 0720 CU┆
0x140a0…140c0 52 53 4f 52 20 31 2c 31 32 10 3b 30 37 33 30 20 50 52 49 4e 54 20 22 52 65 6a 73 65 6d 7d 6c 3a ┆RSOR 1,12 ;0730 PRINT "Rejsemål:┆
0x140c0…140e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3b 44 45 53 54 49 4e ┆ ";DESTIN┆
0x140e0…14100 41 54 49 4f 4e 24 3b 10 30 37 34 30 20 43 55 52 53 4f 52 20 31 2c 31 33 10 44 30 37 35 30 20 50 ┆ATION$; 0740 CURSOR 1,13 D0750 P┆
0x14100…14120 (10, 0, 2) 52 49 4e 54 20 55 53 49 4e 47 20 22 50 72 69 73 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RINT USING "Pris: ┆
0x14120…14140 20 20 20 20 20 20 20 20 20 23 23 23 23 23 23 23 23 2e 23 23 20 6b 72 2e 22 3a 50 52 49 53 44 10 ┆ ########.## kr.":PRISD ┆
0x14140…14160 30 37 36 30 20 43 55 52 53 4f 52 20 31 2c 31 34 10 34 30 37 37 30 20 50 52 49 4e 54 20 22 52 65 ┆0760 CURSOR 1,14 40770 PRINT "Re┆
0x14160…14180 73 74 70 6c 61 64 73 65 72 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 ┆stpladser: "┆
0x14180…141a0 3b 41 4e 54 41 4c 34 15 30 37 38 30 20 45 4e 44 50 52 4f 43 20 55 44 53 4b 52 49 46 54 15 08 30 ┆;ANTAL4 0780 ENDPROC UDSKRIFT 0┆
0x141a0…141c0 37 39 30 20 2f 2f 20 08 11 30 38 30 30 20 50 52 4f 43 20 50 52 49 4e 54 45 52 11 16 30 38 31 30 ┆790 // 0800 PROC PRINTER 0810┆
0x141c0…141e0 20 53 45 4c 45 43 54 20 4f 55 54 50 55 54 20 22 54 22 16 10 30 38 33 30 20 43 55 52 53 4f 52 20 ┆ SELECT OUTPUT "T" 0830 CURSOR ┆
0x141e0…14200 31 2c 32 32 10 36 30 38 34 30 20 49 4e 50 55 54 20 22 5c 6e 73 6b 65 73 20 75 64 73 6b 72 69 66 ┆1,22 60840 INPUT "Ønskes udskrif┆
0x14200…14220 (10, 0, 3) 74 20 70 7d 20 70 72 69 6e 74 65 72 3f 20 20 20 28 6a 2f 6e 29 20 20 20 22 3a 53 24 36 1e 30 38 ┆t på printer? (j/n) ":S$6 08┆
0x14220…14240 35 30 20 49 46 20 53 24 3d 22 4a 22 20 4f 52 20 53 24 3d 22 6a 22 20 54 48 45 4e 20 1e 16 30 38 ┆50 IF S$="J" OR S$="j" THEN 08┆
0x14240…14260 36 30 20 53 45 4c 45 43 54 20 4f 55 54 50 55 54 20 22 50 22 16 1b 30 38 37 30 20 49 46 20 53 54 ┆60 SELECT OUTPUT "P" 0870 IF ST┆
0x14260…14280 41 54 55 53 28 22 50 22 29 3d 31 20 54 48 45 4e 20 1b 10 30 38 38 30 20 43 55 52 53 4f 52 20 31 ┆ATUS("P")=1 THEN 0880 CURSOR 1┆
0x14280…142a0 2c 32 32 10 36 30 38 39 30 20 50 52 49 4e 54 20 22 3c 5a 3e 50 72 69 6e 74 65 72 20 65 72 20 72 ┆,22 60890 PRINT "<Z>Printer er r┆
0x142a0…142c0 65 73 65 72 76 65 72 65 74 20 61 66 20 61 6e 64 65 6e 20 62 72 75 67 65 72 2c 22 36 41 30 39 30 ┆eserveret af anden bruger,"6A090┆
0x142c0…142e0 30 20 49 4e 50 55 54 20 22 20 53 6b 61 6c 20 64 65 72 20 76 65 6e 74 65 73 20 70 7d 20 61 74 20 ┆0 INPUT " Skal der ventes på at ┆
0x142e0…14300 64 65 6e 20 62 6c 69 76 65 72 20 6c 65 64 69 67 3f 20 20 28 6a 2f 6e 29 20 20 22 3a 53 24 41 1e ┆den bliver ledig? (j/n) ":S$A ┆
0x14300…14320 (10, 0, 4) ExtentHdr {name=»REJSEB2 «, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0013,09 (0x013900)}, nextfile={DA 0014,0d (0x014d00)}, f99=00 00 00 20 00 00 00 00 00 00 ┆ ┆}
0x14320…14340 30 39 31 30 20 49 46 20 53 24 3d 22 4a 22 20 4f 52 20 53 24 3d 22 6a 22 20 54 48 45 4e 20 1e 10 ┆0910 IF S$="J" OR S$="j" THEN ┆
0x14340…14360 30 39 32 30 20 43 55 52 53 4f 52 20 31 2c 32 33 10 37 30 39 33 30 20 50 52 49 4e 54 20 22 3c 5a ┆0920 CURSOR 1,23 70930 PRINT "<Z┆
0x14360…14380 3e 44 65 72 20 76 65 6e 74 65 73 20 70 7d 20 61 74 20 70 72 69 6e 74 65 72 65 6e 20 62 6c 69 76 ┆>Der ventes på at printeren bliv┆
0x14380…143a0 65 72 20 6c 65 64 69 67 22 37 2d 30 39 34 30 20 57 48 49 4c 45 20 53 54 41 54 55 53 28 22 50 22 ┆er ledig"7-0940 WHILE STATUS("P"┆
0x143a0…143c0 29 3d 31 20 44 4f 20 53 45 4c 45 43 54 20 4f 55 54 50 55 54 20 22 50 22 2d 0a 30 39 35 30 20 45 ┆)=1 DO SELECT OUTPUT "P"- 0950 E┆
0x143c0…143e0 4c 53 45 20 0a 16 30 39 36 30 20 53 45 4c 45 43 54 20 4f 55 54 50 55 54 20 22 54 22 16 0b 30 39 ┆LSE 0960 SELECT OUTPUT "T" 09┆
0x143e0…14400 37 30 20 45 4e 44 49 46 20 0b 0b 30 39 38 30 20 45 4e 44 49 46 20 0b 12 30 39 39 30 20 45 58 45 ┆70 ENDIF 0980 ENDIF 0990 EXE┆
0x14400…14420 (10, 0, 5) 43 20 55 44 53 4b 52 49 46 54 12 0b 31 30 30 30 20 45 4e 44 49 46 20 0b 16 31 30 31 30 20 53 45 ┆C UDSKRIFT 1000 ENDIF 1010 SE┆
0x14420…14440 4c 45 43 54 20 4f 55 54 50 55 54 20 22 54 22 16 10 31 30 32 30 20 43 55 52 53 4f 52 20 31 2c 32 ┆LECT OUTPUT "T" 1020 CURSOR 1,2┆
0x14440…14460 31 10 34 31 30 33 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆1 41030 PRINT " ┆
0x14460…14480 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 34 3c 31 30 34 30 20 50 52 ┆ "4<1040 PR┆
0x14480…144a0 49 4e 54 20 22 53 7d 20 73 6c 75 74 74 65 72 20 76 69 20 66 6f 72 20 69 20 64 61 67 20 2e 20 20 ┆INT "Så slutter vi for i dag . ┆
0x144a0…144c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3c 09 31 30 35 30 20 45 4e 44 20 ┆ "< 1050 END ┆
0x144c0…144e0 09 14 31 30 38 30 20 45 4e 44 50 52 4f 43 20 50 52 49 4e 54 45 52 14 08 31 30 39 30 20 2f 2f 20 ┆ 1080 ENDPROC PRINTER 1090 // ┆
0x144e0…14500 08 15 31 31 30 30 20 50 52 4f 43 20 45 4f 46 28 46 4e 41 56 4e 24 29 15 1d 31 31 31 30 20 45 4f ┆ 1100 PROC EOF(FNAVN$) 1110 EO┆
0x14500…14520 (10, 0, 6) 46 3a 3d 28 53 54 41 54 55 53 28 46 4e 41 56 4e 24 29 3d 31 39 29 1d 10 31 31 32 30 20 45 4e 44 ┆F:=(STATUS(FNAVN$)=19) 1120 END┆
0x14520…14540 50 52 4f 43 20 45 4f 46 10 00 00 2f 2f 20 08 08 30 39 33 30 20 2f 2f 20 08 19 30 39 34 30 20 44 ┆PROC EOF // 0930 // 0940 D┆
0x14540…14560 41 54 41 20 22 4c 6f 6e 64 6f 6e 22 2c 32 32 33 33 2c 36 19 19 30 39 35 30 20 44 41 54 41 20 22 ┆ATA "London",2233,6 0950 DATA "┆
0x14560…14580 50 61 72 69 73 22 2c 32 30 30 30 2c 31 32 19 17 30 39 36 30 20 44 41 54 41 20 22 4f 73 6c 6f 22 ┆Paris",2000,12 0960 DATA "Oslo"┆
0x14580…145a0 2c 31 32 30 30 2c 35 17 1c 30 39 37 30 20 44 41 54 41 20 22 53 74 6f 63 6b 68 6f 6c 6d 22 2c 31 ┆,1200,5 0970 DATA "Stockholm",1┆
0x145a0…145c0 34 30 30 2c 37 1c 19 30 39 38 30 20 44 41 54 41 20 22 4d 61 64 72 69 64 22 2c 33 30 30 30 2c 38 ┆400,7 0980 DATA "Madrid",3000,8┆
0x145c0…145e0 19 1f 30 39 39 30 20 44 41 54 41 20 22 48 65 6c 73 69 6e 67 66 6f 72 73 22 2c 31 36 30 30 2c 31 ┆ 0990 DATA "Helsingfors",1600,1┆
0x145e0…14600 34 1f 17 31 30 30 30 20 44 41 54 41 20 22 52 6f 6d 22 2c 33 30 30 30 2c 31 35 17 19 31 30 31 30 ┆4 1000 DATA "Rom",3000,15 1010┆
0x14600…14620 (10, 0, 7) 20 44 41 54 41 20 22 4d 6f 73 6b 76 61 22 2c 32 36 30 30 2c 38 19 17 31 30 32 30 20 44 41 54 41 ┆ DATA "Moskva",2600,8 1020 DATA┆
0x14620…14640 20 22 42 65 72 6e 22 2c 31 36 34 30 2c 35 17 1b 31 30 33 30 20 44 41 54 41 20 22 41 6d 73 74 65 ┆ "Bern",1640,5 1030 DATA "Amste┆
0x14640…14660 72 64 61 6d 22 2c 37 30 30 2c 34 1b 1b 31 30 34 30 20 44 41 54 41 20 22 42 72 75 78 65 6c 6c 65 ┆rdam",700,4 1040 DATA "Bruxelle┆
0x14660…14680 73 22 2c 39 30 30 2c 35 1b 1b 31 30 35 30 20 44 41 54 41 20 22 4c 69 73 73 61 62 6f 6e 22 2c 33 ┆s",900,5 1050 DATA "Lissabon",3┆
0x14680…146a0 34 30 30 2c 36 1b 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆400,6 cccccccccccccccccccccccc┆
0x146a0…146c0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x2…]
0x14700…14800 (10, 0, 8) 0x63[0x100]
[…0x5…]
0x14d00…14d20 (10, 0, 14) ExtentHdr {name=»STOPUR «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0015,07 (0x015700)}, f99=41 14 00 fe 00 00 00 00 00 00 ┆A ┆}
0x14d20…14d40 3e 30 31 30 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 ┆>0100 // ---------------------- ┆
0x14d40…14d60 73 74 6f 70 75 72 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 3e ┆stopur ------------------------>┆
0x14d60…14d80 27 30 31 31 30 20 2f 2f 20 45 72 20 75 64 67 7d 65 74 20 69 20 64 65 6e 6e 65 20 43 4f 4d 41 4c ┆'0110 // Er udgået i denne COMAL┆
0x14d80…14da0 2d 76 65 72 73 69 6f 6e 27 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆-version' ┆
0x14da0…14dc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x2…]
0x14e00…14f00 (10, 0, 15) 0x63[0x100]
[…0x8…]
0x15700…15720 (10, 1, 8) ExtentHdr {name=»RENTEFOD«, typ=»K«, seg=»A«, next=0x00, basis=0x0003, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0015,0a (0x015a00)}, f99=41 14 00 fe 00 45 4e 54 45 46 ┆A ENTEF┆}
0x15720…15740 44 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 72 ┆D0010 // --------------------- r┆
0x15740…15760 65 6e 74 65 66 6f 64 5f 31 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆entefod_1 ----------------------┆
0x15760…15780 2d 2d 2d 2d 2d 44 0b 30 30 32 30 20 43 4c 45 41 52 20 0b 43 30 30 33 30 20 49 4e 50 55 54 20 22 ┆-----D 0020 CLEAR C0030 INPUT "┆
0x15780…157a0 49 6e 64 74 61 73 74 20 6b 61 70 69 74 61 6c 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆Indtast kapital: ┆
0x157a0…157c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 4b 41 50 49 54 41 4c 43 41 30 30 34 30 20 49 4e ┆ ":KAPITALCA0040 IN┆
0x157c0…157e0 50 55 54 20 22 49 6e 64 74 61 73 74 20 72 65 6e 74 65 3a 20 20 28 20 69 20 6b 72 2e 29 20 20 20 ┆PUT "Indtast rente: ( i kr.) ┆
0x157e0…15800 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 52 45 4e 54 45 41 45 30 30 35 30 ┆ ":RENTEAE0050┆
0x15800…15820 (10, 1, 9) 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 72 65 6e 74 65 64 61 67 65 3a 20 20 20 20 20 20 ┆ INPUT "Indtast rentedage: ┆
0x15820…15840 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 52 45 4e 54 45 44 41 47 ┆ ":RENTEDAG┆
0x15840…15860 45 45 30 30 30 36 30 20 52 45 4e 54 45 46 4f 44 3a 3d 28 52 45 4e 54 45 2a 31 30 30 2a 33 36 30 ┆EE00060 RENTEFOD:=(RENTE*100*360┆
0x15860…15880 29 2f 4b 41 50 49 54 41 4c 2f 52 45 4e 54 45 44 41 47 45 30 0b 30 30 37 30 20 50 52 49 4e 54 20 ┆)/KAPITAL/RENTEDAGE0 0070 PRINT ┆
0x15880…158a0 0b 0b 30 30 38 30 20 50 52 49 4e 54 20 0b 4b 30 30 39 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 ┆ 0080 PRINT K0090 PRINT USING ┆
0x158a0…158c0 22 4b 61 70 69 74 61 6c 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 23 23 23 23 ┆"Kapital: #####┆
0x158c0…158e0 23 23 23 23 23 23 23 23 23 2e 23 23 20 6b 72 2e 20 22 3a 4b 41 50 49 54 41 4c 4b 49 30 31 30 30 ┆#########.## kr. ":KAPITALKI0100┆
0x158e0…15900 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 52 65 6e 74 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PRINT USING "Rente: ┆
0x15900…15920 (10, 1, 10) 20 20 20 20 20 20 20 20 23 23 23 23 23 23 23 23 23 23 23 23 23 23 2e 23 23 20 6b 72 2e 20 22 3a ┆ ##############.## kr. ":┆
0x15920…15940 52 45 4e 54 45 49 4d 30 31 31 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 52 65 6e 74 65 64 61 ┆RENTEIM0110 PRINT USING "Renteda┆
0x15940…15960 67 65 3a 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 23 23 23 ┆ge: ###┆
0x15960…15980 23 20 20 64 61 67 65 2e 20 22 3a 52 45 4e 54 45 44 41 47 45 4d 0b 30 31 32 30 20 50 52 49 4e 54 ┆# dage. ":RENTEDAGEM 0120 PRINT┆
0x15980…159a0 20 0b 4c 30 31 33 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 52 65 6e 74 65 66 6f 64 3a 20 20 ┆ L0130 PRINT USING "Rentefod: ┆
0x159a0…159c0 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 23 23 23 2e 23 20 ┆ ###.# ┆
0x159c0…159e0 25 20 20 20 20 22 3a 52 45 4e 54 45 46 4f 44 4c 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆% ":RENTEFODL cccccccccccccc┆
0x159e0…15a00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
0x15a00…15a20 (10, 1, 11) ExtentHdr {name=»BINÆR_2 «, typ=»K«, seg=»A«, next=0x01, basis=0x0005, nextext={DA 0015,0f (0x015f00)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0015,0f (0x015f00)}, f99=41 14 00 fe 00 45 4e 54 45 46 ┆A ENTEF┆}
0x15a20…15a40 3b 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆;0010 // -----------------------┆
0x15a40…15a60 2d 2d 2d 20 62 69 6e 7b 72 5f 32 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3b 08 30 30 ┆--- binær_2 ----------------; 00┆
0x15a60…15a80 32 30 20 2f 2f 20 08 2b 30 30 32 35 20 49 4e 54 45 47 45 52 20 45 4b 53 50 4f 4e 45 4e 54 2c 4a ┆20 // +0025 INTEGER EKSPONENT,J┆
0x15a80…15aa0 2c 50 49 4c 2c 50 4f 54 45 4e 53 2c 4d 41 58 2c 53 55 4d 2b 11 30 30 33 30 20 50 52 4f 43 20 4f ┆,PIL,POTENS,MAX,SUM+ 0030 PROC O┆
0x15aa0…15ac0 50 53 54 41 52 54 11 0b 30 30 34 30 20 43 4c 45 41 52 20 0b 0c 30 30 35 30 20 52 45 50 45 41 54 ┆PSTART 0040 CLEAR 0050 REPEAT┆
0x15ac0…15ae0 20 0c 38 30 30 36 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 74 6f 65 72 2d 65 6b 73 70 ┆ 80060 INPUT "Indtast toer-eksp┆
0x15ae0…15b00 6f 6e 65 6e 74 20 28 6d 61 78 20 39 29 3a 20 20 22 3a 45 4b 53 50 4f 4e 45 4e 54 38 44 30 30 37 ┆onent (max 9): ":EKSPONENT8D007┆
0x15b00…15b20 (10, 1, 12) 30 20 55 4e 54 49 4c 20 45 4b 53 50 4f 4e 45 4e 54 3e 30 20 41 4e 44 20 45 4b 53 50 4f 4e 45 4e ┆0 UNTIL EKSPONENT>0 AND EKSPONEN┆
0x15b20…15b40 54 3c 31 30 20 41 4e 44 20 49 4e 54 28 45 4b 53 50 4f 4e 45 4e 54 29 3d 45 4b 53 50 4f 4e 45 4e ┆T<10 AND INT(EKSPONENT)=EKSPONEN┆
0x15b40…15b60 54 44 16 30 30 38 30 20 4d 41 58 3a 3d 32 2a 2a 45 4b 53 50 4f 4e 45 4e 54 16 0b 30 30 39 30 20 ┆TD 0080 MAX:=2**EKSPONENT 0090 ┆
0x15b60…15b80 43 4c 45 41 52 20 0b 2e 30 31 30 30 20 50 52 49 4e 54 20 22 54 7b 6e 6b 20 70 7d 20 65 74 20 74 ┆CLEAR .0100 PRINT "Tænk på et t┆
0x15b80…15ba0 61 6c 20 6d 65 6c 6c 65 6d 20 30 20 6f 67 20 22 3b 4d 41 58 2d 31 2e 13 30 31 31 30 20 44 49 4d ┆al mellem 0 og ";MAX-1. 0110 DIM┆
0x15ba0…15bc0 20 53 56 41 52 24 20 4f 46 20 31 13 17 30 31 31 35 20 49 4e 54 45 47 45 52 20 54 41 4c 28 4d 41 ┆ SVAR$ OF 1 0115 INTEGER TAL(MA┆
0x15bc0…15be0 58 2f 32 29 17 08 30 31 32 30 20 2f 2f 20 08 14 30 31 33 30 20 45 4e 44 50 52 4f 43 20 4f 50 53 ┆X/2) 0120 // 0130 ENDPROC OPS┆
0x15be0…15c00 54 41 52 54 14 08 30 31 34 30 20 2f 2f 20 08 19 30 31 35 30 20 50 52 4f 43 20 55 44 56 5b 4c 47 ┆TART 0140 // 0150 PROC UDVÆLG┆
0x15c00…15c20 (10, 1, 13) 54 41 4c 28 45 4b 53 50 29 19 14 30 31 36 30 20 50 4f 54 45 4e 53 3a 3d 32 2a 2a 45 4b 53 50 14 ┆TAL(EKSP) 0160 POTENS:=2**EKSP ┆
0x15c20…15c40 0b 30 31 37 30 20 50 49 4c 3a 3d 31 0b 18 30 31 38 30 20 46 4f 52 20 4a 3a 3d 31 20 54 4f 20 4d ┆ 0170 PIL:=1 0180 FOR J:=1 TO M┆
0x15c40…15c60 41 58 20 44 4f 20 18 24 30 31 39 30 20 49 46 20 28 4a 20 44 49 56 20 50 4f 54 45 4e 53 29 20 4d ┆AX DO $0190 IF (J DIV POTENS) M┆
0x15c60…15c80 4f 44 20 32 3d 31 20 54 48 45 4e 20 24 1b 30 32 30 30 20 54 41 4c 28 50 49 4c 29 3a 3d 4a 3b 50 ┆OD 2=1 THEN $ 0200 TAL(PIL):=J;P┆
0x15c80…15ca0 49 4c 3a 3d 50 49 4c 2b 31 1b 0b 30 32 31 30 20 45 4e 44 49 46 20 0b 0b 30 32 32 30 20 4e 45 58 ┆IL:=PIL+1 0210 ENDIF 0220 NEX┆
0x15ca0…15cc0 54 20 4a 0b 16 30 32 33 30 20 45 4e 44 50 52 4f 43 20 55 44 56 5b 4c 47 54 41 4c 16 08 30 32 34 ┆T J 0230 ENDPROC UDVÆLGTAL 024┆
0x15cc0…15ce0 30 20 2f 2f 20 08 11 30 32 35 30 20 50 52 4f 43 20 55 44 53 4b 52 49 56 11 0b 30 32 35 35 20 43 ┆0 // 0250 PROC UDSKRIV 0255 C┆
0x15ce0…15d00 4c 45 41 52 20 0b 0f 30 32 36 30 20 43 55 52 53 4f 52 20 31 2c 32 0f 1a 30 32 38 30 20 46 4f 52 ┆LEAR 0260 CURSOR 1,2 0280 FOR┆
0x15d00…15d20 (10, 1, 14) 20 4b 3a 3d 31 20 54 4f 20 4d 41 58 2f 32 20 44 4f 20 1a 12 30 32 39 30 20 50 52 49 4e 54 20 54 ┆ K:=1 TO MAX/2 DO 0290 PRINT T┆
0x15d20…15d40 41 4c 28 4b 29 3b 12 0b 30 33 30 30 20 4e 45 58 54 20 4b 0b 0b 30 33 31 30 20 50 52 49 4e 54 20 ┆AL(K); 0300 NEXT K 0310 PRINT ┆
0x15d40…15d60 0b 14 30 33 32 30 20 45 4e 44 50 52 4f 43 20 55 44 53 4b 52 49 56 14 08 30 33 33 30 20 2f 2f 20 ┆ 0320 ENDPROC UDSKRIV 0330 // ┆
0x15d60…15d80 08 11 30 33 34 30 20 45 58 45 43 20 4f 50 53 54 41 52 54 11 08 30 33 35 30 20 2f 2f 20 08 20 30 ┆ 0340 EXEC OPSTART 0350 // 0┆
0x15d80…15da0 33 35 35 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 34 30 30 20 44 4f 20 2f 2f 20 70 61 75 73 65 20 ┆355 FOR I:=1 TO 400 DO // pause ┆
0x15da0…15dc0 0b 30 33 36 30 20 53 55 4d 3a 3d 30 0b 20 30 33 37 30 20 46 4f 52 20 49 3a 3d 30 20 54 4f 20 45 ┆ 0360 SUM:=0 0370 FOR I:=0 TO E┆
0x15dc0…15de0 4b 53 50 4f 4e 45 4e 54 2d 31 20 44 4f 20 20 16 30 33 38 30 20 45 58 45 43 20 55 44 56 5b 4c 47 ┆KSPONENT-1 DO 0380 EXEC UDVÆLG┆
0x15de0…15e00 54 41 4c 28 49 29 16 11 30 33 39 30 20 45 58 45 43 20 55 44 53 4b 52 49 56 11 0c 30 34 30 30 20 ┆TAL(I) 0390 EXEC UDSKRIV 0400 ┆
0x15e00…15e20 (10, 1, 15) 52 45 50 45 41 54 20 0c 11 30 34 31 30 20 43 55 52 53 4f 52 20 32 30 2c 32 32 11 14 30 34 32 30 ┆REPEAT 0410 CURSOR 20,22 0420┆
0x15e20…15e40 20 50 52 49 4e 54 20 43 48 52 24 28 33 31 29 3b 14 3c 30 34 33 30 20 49 4e 50 55 54 20 22 56 61 ┆ PRINT CHR$(31); <0430 INPUT "Va┆
0x15e40…15e60 72 20 74 61 6c 6c 65 74 20 62 6c 61 6e 64 74 20 64 65 20 75 64 73 6b 72 65 76 6e 65 3f 20 20 20 ┆r tallet blandt de udskrevne? ┆
0x15e60…15e80 20 28 6a 2f 6e 29 20 22 3a 53 56 41 52 24 3c 18 30 34 34 30 20 55 4e 54 49 4c 20 53 56 41 52 24 ┆ (j/n) ":SVAR$< 0440 UNTIL SVAR$┆
0x15e80…15ea0 20 49 4e 20 22 6a 6e 22 18 24 30 34 35 30 20 49 46 20 53 56 41 52 24 3d 22 6a 22 20 54 48 45 4e ┆ IN "jn" $0450 IF SVAR$="j" THEN┆
0x15ea0…15ec0 20 53 55 4d 3a 3d 53 55 4d 2b 32 2a 2a 49 24 0b 30 34 36 30 20 4e 45 58 54 20 49 0b 11 30 34 37 ┆ SUM:=SUM+2**I$ 0460 NEXT I 047┆
0x15ec0…15ee0 30 20 43 55 52 53 4f 52 20 32 30 2c 31 32 11 23 30 34 38 30 20 50 52 49 4e 54 20 22 44 75 20 74 ┆0 CURSOR 20,12 #0480 PRINT "Du t┆
0x15ee0…15f00 7b 6e 6b 74 65 20 70 7d 3a 20 20 20 20 20 22 3b 53 55 4d 23 11 30 34 39 30 20 43 55 52 53 4f 52 ┆ænkte på: ";SUM# 0490 CURSOR┆
0x15f00…15f20 (10, 1, 16) ExtentHdr {name=»BINÆR_2 «, typ=»K«, seg=»B«, next=0x01, basis=0x0005, nextext={DA 0000,00 (0x000000)}, prevext={DA 0015,0a (0x015a00)}, nextfile={DA 0016,04 (0x016400)}, f99=41 14 00 20 00 45 4e 54 45 46 ┆A ENTEF┆}
0x15f20…15f40 20 32 30 2c 31 33 11 25 30 35 30 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ 20,13 %0500 PRINT "------------┆
0x15f40…15f60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 25 10 30 35 31 30 20 43 55 52 53 4f 52 20 31 2c 32 31 10 ┆------------"% 0510 CURSOR 1,21 ┆
0x15f60…15f80 00 00 20 2f 2f 20 08 2b 30 30 32 35 20 49 4e 54 45 47 45 52 20 45 4b 53 50 4f 4e 45 4e 54 2c 4a ┆ // +0025 INTEGER EKSPONENT,J┆
0x15f80…15fa0 2c 50 49 4c 2c 50 4f 54 45 4e 53 2c 4d 41 58 2c 53 55 4d 2b 11 30 30 33 30 20 50 52 4f 43 20 4f ┆,PIL,POTENS,MAX,SUM+ 0030 PROC O┆
0x15fa0…15fc0 50 53 54 41 52 54 11 0b 30 30 34 30 20 43 4c 45 41 52 20 0b 0c 30 30 35 30 20 52 45 50 45 41 54 ┆PSTART 0040 CLEAR 0050 REPEAT┆
0x15fc0…15fe0 20 0c 38 30 30 36 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 74 6f 65 72 2d 65 6b 73 70 ┆ 80060 INPUT "Indtast toer-eksp┆
0x15fe0…16000 6f 6e 65 6e 74 20 28 6d 61 78 20 39 29 3a 20 20 22 3a 45 4b 53 50 4f 4e 45 4e 54 38 44 30 30 37 ┆onent (max 9): ":EKSPONENT8D007┆
0x16000…16100 (11, 0, 1) 0x63[0x100]
[…0x3…]
0x16400…16420 (11, 0, 5) ExtentHdr {name=»KORRELAT«, typ=»K«, seg=»A«, next=0x01, basis=0x000a, nextext={DA 0016,0e (0x016e00)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0016,0e (0x016e00)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x16420…16440 45 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆E0010 // -----------------------┆
0x16440…16460 2d 2d 2d 20 6b 6f 72 72 65 6c 61 74 69 6f 6e 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--- korrelation ----------------┆
0x16460…16480 2d 2d 2d 2d 2d 2d 45 3d 30 30 32 30 20 2f 2f 20 50 72 6f 67 72 61 6d 6d 65 74 20 66 69 6e 64 65 ┆------E=0020 // Programmet finde┆
0x16480…164a0 72 20 65 6e 20 72 7b 6b 6b 65 20 64 65 73 6b 72 69 70 74 6f 72 65 72 20 66 6f 72 20 6e 20 74 61 ┆r en række deskriptorer for n ta┆
0x164a0…164c0 6c 70 61 72 3a 3d 26 30 30 33 30 20 2f 2f 20 28 78 31 2c 79 31 29 2c 28 78 32 2c 79 32 29 2c 20 ┆lpar:=&0030 // (x1,y1),(x2,y2), ┆
0x164c0…164e0 2e 2e 2e 20 2c 28 78 6e 2c 79 6e 29 2e 26 2b 30 30 34 30 20 2f 2f 20 6e 20 61 6e 67 69 76 65 73 ┆... ,(xn,yn).&+0040 // n angives┆
0x164e0…16500 20 69 20 64 65 6e 20 66 7c 72 73 74 65 20 64 61 74 61 73 7b 74 6e 69 6e 67 2e 2b 37 30 30 35 30 ┆ i den første datasætning.+70050┆
0x16500…16520 (11, 0, 6) 20 2f 2f 20 78 31 2c 78 32 2c 20 2e 2e 2e 20 2c 78 6e 20 61 6e 67 69 76 65 73 20 69 20 64 65 20 ┆ // x1,x2, ... ,xn angives i de ┆
0x16520…16540 6e 7b 73 74 65 20 64 61 74 61 73 7b 74 6e 69 6e 67 65 72 37 37 30 30 36 30 20 2f 2f 20 79 31 2c ┆næste datasætninger770060 // y1,┆
0x16540…16560 79 32 2c 20 2e 2e 2e 20 2c 79 6e 20 61 6e 67 69 76 65 73 20 69 20 64 65 20 6e 7b 73 74 65 20 64 ┆y2, ... ,yn angives i de næste d┆
0x16560…16580 61 74 61 73 7b 74 6e 69 6e 67 65 72 37 08 30 30 37 30 20 2f 2f 20 08 0b 30 30 38 30 20 43 4c 45 ┆atasætninger7 0070 // 0080 CLE┆
0x16580…165a0 41 52 20 0b 0b 30 30 39 30 20 52 45 41 44 20 4e 0b 1a 30 31 30 30 20 44 49 4d 20 58 28 4e 29 2c ┆AR 0090 READ N 0100 DIM X(N),┆
0x165a0…165c0 59 28 4e 29 2c 53 24 20 4f 46 20 31 1a 2c 30 31 31 30 20 53 55 4d 31 3a 3d 30 3b 53 55 4d 32 3a ┆Y(N),S$ OF 1 ,0110 SUM1:=0;SUM2:┆
0x165c0…165e0 3d 30 3b 53 55 4d 33 3a 3d 30 3b 53 55 4d 34 3a 3d 30 3b 53 55 4d 35 3a 3d 30 2c 16 30 31 32 30 ┆=0;SUM3:=0;SUM4:=0;SUM5:=0, 0120┆
0x165e0…16600 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 4e 20 44 4f 20 16 0e 30 31 33 30 20 52 45 41 44 20 58 28 ┆ FOR I:=1 TO N DO 0130 READ X(┆
0x16600…16620 (11, 0, 7) 49 29 0e 0b 30 31 34 30 20 4e 45 58 54 20 49 0b 16 30 31 35 30 20 46 4f 52 20 49 3a 3d 31 20 54 ┆I) 0140 NEXT I 0150 FOR I:=1 T┆
0x16620…16640 4f 20 4e 20 44 4f 20 16 0e 30 31 36 30 20 52 45 41 44 20 59 28 49 29 0e 0b 30 31 37 30 20 4e 45 ┆O N DO 0160 READ Y(I) 0170 NE┆
0x16640…16660 58 54 20 49 0b 16 30 31 38 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 4e 20 44 4f 20 16 14 30 31 ┆XT I 0180 FOR I:=1 TO N DO 01┆
0x16660…16680 39 30 20 53 55 4d 31 3a 3d 53 55 4d 31 2b 58 28 49 29 14 14 30 32 30 30 20 53 55 4d 32 3a 3d 53 ┆90 SUM1:=SUM1+X(I) 0200 SUM2:=S┆
0x16680…166a0 55 4d 32 2b 59 28 49 29 14 17 30 32 31 30 20 53 55 4d 33 3a 3d 53 55 4d 33 2b 58 28 49 29 2a 2a ┆UM2+Y(I) 0210 SUM3:=SUM3+X(I)**┆
0x166a0…166c0 32 17 17 30 32 32 30 20 53 55 4d 34 3a 3d 53 55 4d 34 2b 59 28 49 29 2a 2a 32 17 19 30 32 33 30 ┆2 0220 SUM4:=SUM4+Y(I)**2 0230┆
0x166c0…166e0 20 53 55 4d 35 3a 3d 53 55 4d 35 2b 58 28 49 29 2a 59 28 49 29 19 0b 30 32 34 30 20 4e 45 58 54 ┆ SUM5:=SUM5+X(I)*Y(I) 0240 NEXT┆
0x166e0…16700 20 49 0b 0f 30 32 35 30 20 4d 58 3a 3d 53 55 4d 31 2f 4e 0f 0f 30 32 36 30 20 4d 59 3a 3d 53 55 ┆ I 0250 MX:=SUM1/N 0260 MY:=SU┆
0x16700…16720 (11, 0, 8) 4d 32 2f 4e 0f 15 30 32 37 30 20 56 58 3a 3d 53 55 4d 33 2f 4e 2d 4d 58 2a 4d 58 15 15 30 32 38 ┆M2/N 0270 VX:=SUM3/N-MX*MX 028┆
0x16720…16740 30 20 56 59 3a 3d 53 55 4d 34 2f 4e 2d 4d 59 2a 4d 59 15 18 30 32 39 30 20 43 4f 56 58 59 3a 3d ┆0 VY:=SUM4/N-MY*MY 0290 COVXY:=┆
0x16740…16760 53 55 4d 35 2f 4e 2d 4d 58 2a 4d 59 18 10 30 33 30 30 20 53 58 3a 3d 53 51 52 28 56 58 29 10 10 ┆SUM5/N-MX*MY 0300 SX:=SQR(VX) ┆
0x16760…16780 30 33 31 30 20 53 59 3a 3d 53 51 52 28 56 59 29 10 13 30 33 32 30 20 52 3a 3d 43 4f 56 58 59 2f ┆0310 SY:=SQR(VY) 0320 R:=COVXY/┆
0x16780…167a0 53 58 2f 53 59 13 10 30 33 33 30 20 41 3a 3d 43 4f 56 58 59 2f 56 58 10 0f 30 33 34 30 20 42 3a ┆SX/SY 0330 A:=COVXY/VX 0340 B:┆
0x167a0…167c0 3d 4d 59 2d 41 2a 4d 58 0f 3b 30 33 35 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 4f 62 73 65 ┆=MY-A*MX ;0350 PRINT USING "Obse┆
0x167c0…167e0 72 76 61 74 69 6f 6e 73 73 7b 74 65 74 20 62 65 73 74 7d 72 20 61 66 23 23 23 20 74 61 6c 70 61 ┆rvationssætet består af### talpa┆
0x167e0…16800 72 2e 22 3a 4e 3b 0b 30 33 36 30 20 50 52 49 4e 54 20 0b 22 30 33 37 30 20 50 52 49 4e 54 20 22 ┆r.":N; 0360 PRINT "0370 PRINT "┆
0x16800…16820 (11, 0, 9) 4f 62 73 65 72 76 61 74 69 6f 6e 73 73 7b 74 74 65 74 20 58 3a 22 22 16 30 33 38 30 20 46 4f 52 ┆Observationssættet X:"" 0380 FOR┆
0x16820…16840 20 49 3a 3d 31 20 54 4f 20 4e 20 44 4f 20 16 21 30 33 39 30 20 50 52 49 4e 54 20 55 53 49 4e 47 ┆ I:=1 TO N DO !0390 PRINT USING┆
0x16840…16860 20 22 2b 23 23 23 23 2c 20 20 22 3a 58 28 49 29 2c 21 0b 30 34 30 30 20 4e 45 58 54 20 49 0b 0b ┆ "+####, ":X(I),! 0400 NEXT I ┆
0x16860…16880 30 34 31 30 20 50 52 49 4e 54 20 0b 0b 30 34 32 30 20 50 52 49 4e 54 20 0b 22 30 34 33 30 20 50 ┆0410 PRINT 0420 PRINT "0430 P┆
0x16880…168a0 52 49 4e 54 20 22 4f 62 73 65 72 76 61 74 69 6f 6e 73 73 7b 74 74 65 74 20 59 3a 22 22 16 30 34 ┆RINT "Observationssættet Y:"" 04┆
0x168a0…168c0 34 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 4e 20 44 4f 20 16 21 30 34 35 30 20 50 52 49 4e 54 ┆40 FOR I:=1 TO N DO !0450 PRINT┆
0x168c0…168e0 20 55 53 49 4e 47 20 22 2b 23 23 23 23 2c 20 20 22 3a 59 28 49 29 2c 21 0b 30 34 36 30 20 4e 45 ┆ USING "+####, ":Y(I),! 0460 NE┆
0x168e0…16900 58 54 20 49 0b 0b 30 34 37 30 20 50 52 49 4e 54 20 0b 0b 30 34 38 30 20 50 52 49 4e 54 20 0b 43 ┆XT I 0470 PRINT 0480 PRINT C┆
0x16900…16920 (11, 0, 10) 30 34 39 30 20 50 52 49 4e 54 20 22 4f 62 73 65 72 76 61 74 69 6f 6e 73 73 7b 74 74 65 6e 65 20 ┆0490 PRINT "Observationssættene ┆
0x16920…16940 58 20 6f 67 20 59 20 68 61 72 20 66 7c 6c 67 65 6e 64 65 20 64 65 73 6b 72 69 70 74 6f 72 65 72 ┆X og Y har følgende deskriptorer┆
0x16940…16960 3a 20 22 43 0b 30 35 30 30 20 50 52 49 4e 54 20 0b 29 30 35 31 30 20 50 52 49 4e 54 20 55 53 49 ┆: "C 0500 PRINT )0510 PRINT USI┆
0x16960…16980 4e 47 20 22 4d 28 58 29 20 20 20 20 20 3d 2b 23 23 23 23 2e 23 23 23 22 3a 4d 58 29 29 30 35 32 ┆NG "M(X) =+####.###":MX))052┆
0x16980…169a0 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 4d 28 59 29 20 20 20 20 20 3d 2b 23 23 23 23 2e 23 ┆0 PRINT USING "M(Y) =+####.#┆
0x169a0…169c0 23 23 22 3a 4d 59 29 29 30 35 33 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 56 28 58 29 20 20 ┆##":MY))0530 PRINT USING "V(X) ┆
0x169c0…169e0 20 20 20 3d 2b 23 23 23 23 2e 23 23 23 22 3a 56 58 29 29 30 35 34 30 20 50 52 49 4e 54 20 55 53 ┆ =+####.###":VX))0540 PRINT US┆
0x169e0…16a00 49 4e 47 20 22 56 28 59 29 20 20 20 20 20 3d 2b 23 23 23 23 2e 23 23 23 22 3a 56 59 29 29 30 35 ┆ING "V(Y) =+####.###":VY))05┆
0x16a00…16a20 (11, 0, 11) 35 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 53 28 58 29 20 20 20 20 20 3d 2b 23 23 23 23 2e ┆50 PRINT USING "S(X) =+####.┆
0x16a20…16a40 23 23 23 22 3a 53 58 29 29 30 35 36 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 53 28 59 29 20 ┆###":SX))0560 PRINT USING "S(Y) ┆
0x16a40…16a60 20 20 20 20 3d 2b 23 23 23 23 2e 23 23 23 22 3a 53 59 29 2c 30 35 37 30 20 50 52 49 4e 54 20 55 ┆ =+####.###":SY),0570 PRINT U┆
0x16a60…16a80 53 49 4e 47 20 22 43 4f 56 28 58 2c 59 29 20 3d 2b 23 23 23 23 2e 23 23 23 22 3a 43 4f 56 58 59 ┆SING "COV(X,Y) =+####.###":COVXY┆
0x16a80…16aa0 2c 28 30 35 38 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 52 28 58 2c 59 29 20 20 20 3d 2b 23 ┆,(0580 PRINT USING "R(X,Y) =+#┆
0x16aa0…16ac0 23 23 23 2e 23 23 23 22 3a 52 28 0b 30 35 39 30 20 50 52 49 4e 54 20 0b 3b 30 36 30 30 20 50 52 ┆###.###":R( 0590 PRINT ;0600 PR┆
0x16ac0…16ae0 49 4e 54 20 22 59 2d 72 65 67 72 65 73 73 69 6f 6e 73 6c 69 6e 69 65 6e 20 79 3a 3d 61 78 20 2b ┆INT "Y-regressionslinien y:=ax +┆
0x16ae0…16b00 20 62 20 65 72 20 66 61 73 74 6c 61 67 74 20 76 65 64 3a 22 3b 35 30 36 31 30 20 50 52 49 4e 54 ┆ b er fastlagt ved:";50610 PRINT┆
0x16b00…16b20 (11, 0, 12) 20 55 53 49 4e 47 20 22 61 3d 2b 23 23 23 2e 23 23 23 20 20 20 20 20 20 20 20 20 62 3d 2b 23 23 ┆ USING "a=+###.### b=+##┆
0x16b20…16b40 23 2e 23 23 23 20 22 3a 41 2c 42 35 0b 30 36 33 30 20 50 52 49 4e 54 20 0b 0b 30 36 34 30 20 44 ┆#.### ":A,B5 0630 PRINT 0640 D┆
0x16b40…16b60 41 54 41 20 38 0b 1b 30 36 35 30 20 44 41 54 41 20 35 2c 37 2c 38 2c 31 30 2c 38 2c 31 31 2c 39 ┆ATA 8 0650 DATA 5,7,8,10,8,11,9┆
0x16b60…16b80 2c 37 1b 1a 30 36 36 30 20 44 41 54 41 20 31 32 2c 38 2c 37 2c 36 2c 38 2c 34 2c 37 2c 39 1a 40 ┆,7 0660 DATA 12,8,7,6,8,4,7,9 @┆
0x16b80…16ba0 30 36 37 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 4c 69 6e 69 65 6e 73 20 6c 69 67 6e 69 6e ┆0670 PRINT USING "Liniens lignin┆
0x16ba0…16bc0 67 3a 20 20 20 79 20 3d 20 2b 23 23 23 2e 23 23 23 78 20 2b 23 23 23 2e 23 23 23 22 3a 41 2c 42 ┆g: y = +###.###x +###.###":A,B┆
0x16bc0…16be0 40 11 30 36 39 30 20 43 55 52 53 4f 52 20 37 30 2c 32 34 11 17 30 37 30 30 20 49 4e 50 55 54 20 ┆@ 0690 CURSOR 70,24 0700 INPUT ┆
0x16be0…16c00 22 52 65 74 75 72 6e 21 22 3a 53 24 17 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆"Return!":S$ ccccccccccccccccc┆
0x16c00…16d00 (11, 0, 13) 0x63[0x100]
[…0x1…]
0x16e00…16e20 (11, 0, 15) ExtentHdr {name=»KORRELAT«, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0016,04 (0x016400)}, nextfile={DA 0017,08 (0x017800)}, f99=00 00 00 20 00 00 00 00 00 00 ┆ ┆}
0x16e20…16e40 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x6…]
0x16f00…17000 (11, 0, 16) 0x63[0x100]
[…0x8…]
0x17800…17820 (11, 1, 9) ExtentHdr {name=»INFO «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0018,02 (0x018200)}, f99=41 17 00 fe 00 00 00 00 00 00 ┆A ┆}
0x17820…17840 44 30 31 30 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆D0100 // -----------------------┆
0x17840…17860 2d 2d 2d 2d 2d 20 49 20 4e 20 46 20 4f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆----- I N F O ------------------┆
0x17860…17880 2d 2d 2d 2d 2d 44 2c 30 31 31 30 20 44 49 4d 20 54 58 54 4c 49 4e 45 24 20 4f 46 20 38 30 2c 53 ┆-----D,0110 DIM TXTLINE$ OF 80,S┆
0x17880…178a0 56 24 20 4f 46 20 31 2c 55 44 53 4b 52 24 20 4f 46 20 31 2c 0e 30 31 32 30 20 49 4e 54 45 47 45 ┆V$ OF 1,UDSKR$ OF 1, 0120 INTEGE┆
0x178a0…178c0 52 20 49 0e 1d 30 31 33 30 20 4f 50 45 4e 20 22 53 59 53 54 49 4d 45 3a 49 4e 46 4f 53 43 52 22 ┆R I 0130 OPEN "SYSTIME:INFOSCR"┆
0x178c0…178e0 2c 52 1d 0b 30 31 34 30 20 43 4c 45 41 52 20 0b 17 30 31 35 30 20 46 4f 52 20 49 3a 3d 31 20 54 ┆,R 0140 CLEAR 0150 FOR I:=1 T┆
0x178e0…17900 4f 20 32 32 20 44 4f 20 17 23 30 31 36 30 20 47 45 54 20 22 53 59 53 54 49 4d 45 3a 49 4e 46 4f ┆O 22 DO #0160 GET "SYSTIME:INFO┆
0x17900…17920 (11, 1, 10) 53 43 52 22 3a 54 58 54 4c 49 4e 45 24 23 13 30 31 37 30 20 50 52 49 4e 54 20 54 58 54 4c 49 4e ┆SCR":TXTLINE$# 0170 PRINT TXTLIN┆
0x17920…17940 45 24 13 0b 30 31 38 30 20 4e 45 58 54 20 49 0b 1c 30 31 39 30 20 43 4c 4f 53 45 20 22 53 59 53 ┆E$ 0180 NEXT I 0190 CLOSE "SYS┆
0x17940…17960 54 49 4d 45 3a 49 4e 46 4f 53 43 52 22 1c 41 30 32 30 30 20 49 4e 50 55 54 20 22 3c 53 43 31 38 ┆TIME:INFOSCR" A0200 INPUT "<SC18┆
0x17960…17980 32 34 3e 2d 20 2d 20 2d 20 2d 20 2d 20 2d 20 54 72 79 6b 20 3c 52 45 54 55 52 4e 3e 2e 2e 2e 20 ┆24>- - - - - - Tryk <RETURN>... ┆
0x17980…179a0 2d 20 2d 20 2d 20 2d 20 2d 20 2d 22 3a 53 56 24 41 43 30 32 31 30 20 50 52 49 4e 54 20 22 3c 58 ┆- - - - - -":SV$AC0210 PRINT "<X┆
0x179a0…179c0 43 31 32 31 30 3e 2a 20 2a 20 2a 20 2a 20 2a 20 34 20 2a 20 43 4f 4d 41 4c 20 70 72 6f 67 72 61 ┆C1210>* * * * * 4 * COMAL progra┆
0x179c0…179e0 6d 2d 6f 76 65 72 73 69 67 74 20 2a 20 2a 20 2a 20 2a 20 2a 22 43 47 30 32 32 30 20 49 4e 50 55 ┆m-oversigt * * * * *"CG0220 INPU┆
0x179e0…17a00 54 20 22 3c 43 31 33 31 33 3e 55 64 73 6b 72 69 66 74 20 70 7d 20 28 53 29 6b 7b 72 6d 20 65 6c ┆T "<C1313>Udskrift på (S)kærm el┆
0x17a00…17a20 (11, 1, 11) 6c 65 72 20 28 50 29 72 69 6e 74 65 72 20 3f 20 28 73 2f 70 29 20 22 3a 55 44 53 4b 52 24 47 26 ┆ler (P)rinter ? (s/p) ":UDSKR$G&┆
0x17a20…17a40 30 32 33 30 20 49 46 20 55 44 53 4b 52 24 3d 22 50 22 20 4f 52 20 55 44 53 4b 52 24 3d 22 70 22 ┆0230 IF UDSKR$="P" OR UDSKR$="p"┆
0x17a40…17a60 20 54 48 45 4e 20 26 16 30 32 34 30 20 53 45 4c 45 43 54 20 4f 55 54 50 55 54 20 22 50 22 16 1b ┆ THEN & 0240 SELECT OUTPUT "P" ┆
0x17a60…17a80 30 32 35 30 20 49 46 20 53 54 41 54 55 53 28 22 50 22 29 3d 31 20 54 48 45 4e 20 1b 3e 30 32 36 ┆0250 IF STATUS("P")=1 THEN >026┆
0x17a80…17aa0 30 20 50 52 49 4e 54 20 22 3c 43 31 32 31 33 5a 3e 50 72 69 6e 74 65 72 65 6e 20 65 72 20 72 65 ┆0 PRINT "<C1213Z>Printeren er re┆
0x17aa0…17ac0 73 65 72 76 65 72 65 74 20 61 66 20 61 6e 64 65 6e 20 62 72 75 67 65 72 2c 20 22 3e 47 30 32 37 ┆serveret af anden bruger, ">G027┆
0x17ac0…17ae0 30 20 49 4e 50 55 54 20 22 3c 43 31 32 31 34 3e 73 6b 61 6c 20 64 65 72 20 76 65 6e 74 65 73 20 ┆0 INPUT "<C1214>skal der ventes ┆
0x17ae0…17b00 70 7d 20 61 74 20 64 65 6e 20 62 6c 69 76 65 72 20 6c 65 64 69 67 20 3f 20 28 6a 2f 6e 29 20 22 ┆på at den bliver ledig ? (j/n) "┆
0x17b00…17b20 (11, 1, 12) 3a 53 56 24 47 20 30 32 38 30 20 49 46 20 53 56 24 3d 22 4a 22 20 4f 52 20 53 56 24 3d 22 6a 22 ┆:SV$G 0280 IF SV$="J" OR SV$="j"┆
0x17b20…17b40 20 54 48 45 4e 20 20 15 30 32 39 30 20 50 52 49 4e 54 20 22 3c 43 30 31 31 34 5a 3e 22 15 41 30 ┆ THEN 0290 PRINT "<C0114Z>" A0┆
0x17b40…17b60 33 30 30 20 50 52 49 4e 54 20 22 3c 53 43 31 33 31 33 5a 3e 44 65 72 20 76 65 6e 74 65 73 20 70 ┆300 PRINT "<SC1313Z>Der ventes p┆
0x17b60…17b80 7d 20 61 74 20 70 72 69 6e 74 65 72 65 6e 20 62 6c 69 76 65 72 20 6c 65 64 69 67 2e 2e 2e 2e 22 ┆å at printeren bliver ledig...."┆
0x17b80…17ba0 41 2d 30 33 31 30 20 57 48 49 4c 45 20 53 54 41 54 55 53 28 22 50 22 29 3d 31 20 44 4f 20 53 45 ┆A-0310 WHILE STATUS("P")=1 DO SE┆
0x17ba0…17bc0 4c 45 43 54 20 4f 55 54 50 55 54 20 22 50 22 2d 35 30 33 32 30 20 50 52 49 4e 54 20 22 3c 53 43 ┆LECT OUTPUT "P"-50320 PRINT "<SC┆
0x17bc0…17be0 31 33 31 33 5a 3e 44 65 72 20 75 64 73 6b 72 69 76 65 73 20 70 7d 20 70 72 69 6e 74 65 72 65 6e ┆1313Z>Der udskrives på printeren┆
0x17be0…17c00 2e 2e 2e 2e 2e 22 35 0a 30 33 33 30 20 45 4c 53 45 20 0a 10 30 33 34 30 20 55 44 53 4b 52 24 3a ┆....."5 0330 ELSE 0340 UDSKR$:┆
0x17c00…17c20 (11, 1, 13) 3d 22 53 22 10 0b 30 33 35 30 20 45 4e 44 49 46 20 0b 0b 30 33 36 30 20 45 4e 44 49 46 20 0b 0a ┆="S" 0350 ENDIF 0360 ENDIF ┆
0x17c20…17c40 30 33 37 30 20 45 4c 53 45 20 0a 0b 30 33 38 30 20 43 4c 45 41 52 20 0b 0b 30 33 39 30 20 45 4e ┆0370 ELSE 0380 CLEAR 0390 EN┆
0x17c40…17c60 44 49 46 20 0b 1d 30 34 30 30 20 4f 50 45 4e 20 22 53 59 53 54 49 4d 45 3a 49 4e 46 4f 54 58 54 ┆DIF 0400 OPEN "SYSTIME:INFOTXT┆
0x17c60…17c80 22 2c 52 1d 0e 30 34 31 30 20 50 43 4f 55 4e 54 3a 3d 31 0e 23 30 34 32 30 20 47 45 54 20 22 53 ┆",R 0410 PCOUNT:=1 #0420 GET "S┆
0x17c80…17ca0 59 53 54 49 4d 45 3a 49 4e 46 4f 54 58 54 22 3a 54 58 54 4c 49 4e 45 24 23 2c 30 34 33 30 20 57 ┆YSTIME:INFOTXT":TXTLINE$#,0430 W┆
0x17ca0…17cc0 48 49 4c 45 20 4e 4f 54 20 53 54 41 54 55 53 28 22 53 59 53 54 49 4d 45 3a 49 4e 46 4f 54 58 54 ┆HILE NOT STATUS("SYSTIME:INFOTXT┆
0x17cc0…17ce0 22 29 20 44 4f 20 2c 26 30 34 34 30 20 49 46 20 55 44 53 4b 52 24 3d 22 53 22 20 4f 52 20 55 44 ┆") DO ,&0440 IF UDSKR$="S" OR UD┆
0x17ce0…17d00 53 4b 52 24 3d 22 73 22 20 54 48 45 4e 20 26 2b 30 34 35 30 20 49 46 20 50 43 4f 55 4e 54 20 4d ┆SKR$="s" THEN &+0450 IF PCOUNT M┆
0x17d00…17d20 (11, 1, 14) 4f 44 20 31 31 3d 30 20 41 4e 44 20 50 43 4f 55 4e 54 3e 31 31 20 54 48 45 4e 20 2b 0b 30 34 36 ┆OD 11=0 AND PCOUNT>11 THEN + 046┆
0x17d20…17d40 30 20 50 52 49 4e 54 20 0b 29 30 34 37 30 20 49 4e 50 55 54 20 22 3c 53 43 33 32 32 34 3e 54 72 ┆0 PRINT )0470 INPUT "<SC3224>Tr┆
0x17d40…17d60 79 6b 20 3c 52 45 54 55 52 4e 3e 2e 2e 2e 22 3a 53 56 24 29 11 30 34 38 30 20 43 55 52 53 4f 52 ┆yk <RETURN>...":SV$) 0480 CURSOR┆
0x17d60…17d80 20 33 32 2c 32 33 11 30 30 34 39 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 32,23 00490 PRINT " ┆
0x17d80…17da0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 30 10 30 35 30 30 20 43 ┆ "0 0500 C┆
0x17da0…17dc0 55 52 53 4f 52 20 31 2c 32 32 10 13 30 35 31 30 20 50 52 49 4e 54 20 54 58 54 4c 49 4e 45 24 13 ┆URSOR 1,22 0510 PRINT TXTLINE$ ┆
0x17dc0…17de0 0a 30 35 32 30 20 45 4c 53 45 20 0a 13 30 35 33 30 20 50 52 49 4e 54 20 54 58 54 4c 49 4e 45 24 ┆ 0520 ELSE 0530 PRINT TXTLINE$┆
0x17de0…17e00 13 0b 30 35 34 30 20 45 4e 44 49 46 20 0b 0a 30 35 35 30 20 45 4c 53 45 20 0a 25 30 35 35 31 20 ┆ 0540 ENDIF 0550 ELSE %0551 ┆
0x17e00…17e20 (11, 1, 15) 49 46 20 50 43 4f 55 4e 54 3d 35 38 20 4f 52 20 50 43 4f 55 4e 54 3d 31 34 30 20 54 48 45 4e 20 ┆IF PCOUNT=58 OR PCOUNT=140 THEN ┆
0x17e20…17e40 25 1d 30 35 35 32 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 31 34 20 44 4f 20 50 52 49 4e 54 20 1d ┆% 0552 FOR I:=1 TO 14 DO PRINT ┆
0x17e40…17e60 15 30 35 35 33 20 50 43 4f 55 4e 54 3a 3d 50 43 4f 55 4e 54 2b 34 15 0b 30 35 35 34 20 45 4e 44 ┆ 0553 PCOUNT:=PCOUNT+4 0554 END┆
0x17e60…17e80 49 46 20 0b 13 30 35 35 35 20 50 52 49 4e 54 20 54 58 54 4c 49 4e 45 24 13 0b 30 35 35 36 20 45 ┆IF 0555 PRINT TXTLINE$ 0556 E┆
0x17e80…17ea0 4e 44 49 46 20 0b 15 30 35 36 30 20 50 43 4f 55 4e 54 3a 3d 50 43 4f 55 4e 54 2b 31 15 23 30 35 ┆NDIF 0560 PCOUNT:=PCOUNT+1 #05┆
0x17ea0…17ec0 37 30 20 47 45 54 20 22 53 59 53 54 49 4d 45 3a 49 4e 46 4f 54 58 54 22 3a 54 58 54 4c 49 4e 45 ┆70 GET "SYSTIME:INFOTXT":TXTLINE┆
0x17ec0…17ee0 24 23 0e 30 35 38 30 20 45 4e 44 57 48 49 4c 45 20 0e 00 00 63 63 63 63 63 63 63 63 63 63 63 63 ┆$# 0580 ENDWHILE cccccccccccc┆
0x17ee0…17f00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
0x17f00…18000 (11, 1, 16) 0x63[0x100]
[…0x2…]
0x18200…18220 (12, 0, 3) ExtentHdr {name=»SFD «, typ=»K«, seg=»A«, next=0x00, basis=0x0001, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0018,03 (0x018300)}, f99=41 17 00 fe 00 46 44 20 20 20 ┆A FD ┆}
0x18220…18240 46 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 ┆F0010 // ---------------------- ┆
0x18240…18260 73 66 64 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 ┆sfd ----------------------------┆
0x18260…18280 2d 2d 2d 2d 2d 2d 2d 46 43 30 30 32 30 20 2f 2f 20 55 64 67 7d 65 74 20 69 20 64 65 6e 6e 65 20 ┆-------FC0020 // Udgået i denne ┆
0x18280…182a0 43 4f 4d 41 4c 2d 76 65 72 73 69 6f 6e 20 64 61 20 64 65 6e 20 69 6b 6b 65 20 74 69 6c 6c 61 64 ┆COMAL-version da den ikke tillad┆
0x182a0…182c0 65 72 20 72 65 63 75 72 73 69 76 65 43 12 30 30 33 30 20 2f 2f 20 70 72 6f 63 65 64 75 72 65 72 ┆er recursiveC 0030 // procedurer┆
0x182c0…182e0 12 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x182e0…18300 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x18300…18320 (12, 0, 4) ExtentHdr {name=»ETOILES «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0018,0d (0x018d00)}, f99=41 17 00 ff 00 46 44 20 20 20 ┆A FD ┆}
0x18320…18340 28 01 00 00 00 00 00 00 81 02 00 00 00 00 00 00 82 61 70 72 69 6c 00 20 56 20 5b 20 44 20 44 20 ┆( april V Æ D D ┆
0x18340…18360 45 20 52 20 45 20 4e 20 00 28 22 02 10 00 00 00 00 00 82 03 00 00 00 00 00 00 82 61 70 72 69 6c ┆E R E N (" april┆
0x18360…18380 00 20 54 20 59 20 52 20 45 20 4e 20 00 22 20 01 00 00 00 00 00 00 81 02 10 00 00 00 00 00 82 6d ┆ T Y R E N " m┆
0x18380…183a0 61 6a 00 20 54 20 59 20 52 20 45 20 4e 20 00 20 2e 02 20 00 00 00 00 00 82 03 10 00 00 00 00 00 ┆aj T Y R E N . ┆
0x183a0…183c0 82 6d 61 6a 00 20 54 20 56 20 49 20 4c 20 4c 20 49 20 4e 20 47 20 45 20 52 20 4e 20 45 20 00 2e ┆ maj T V I L L I N G E R N E .┆
0x183c0…183e0 2d 01 00 00 00 00 00 00 81 02 20 00 00 00 00 00 82 6a 75 6e 69 00 20 54 20 56 20 49 20 4c 20 49 ┆- juni T V I L I┆
0x183e0…18400 20 4e 20 47 20 45 20 52 20 4e 20 45 20 00 2d 25 02 20 00 00 00 00 00 82 03 00 00 00 00 00 00 82 ┆ N G E R N E -% ┆
0x18400…18420 (12, 0, 5) 6a 75 6e 69 00 20 4b 20 52 20 45 20 42 20 53 20 45 20 4e 20 00 25 25 01 00 00 00 00 00 00 81 02 ┆juni K R E B S E N %% ┆
0x18420…18440 20 00 00 00 00 00 82 6a 75 6c 69 00 20 4b 20 52 20 45 20 42 20 53 20 45 20 4e 20 00 25 21 02 30 ┆ juli K R E B S E N %! 0┆
0x18440…18460 00 00 00 00 00 82 03 10 00 00 00 00 00 82 6a 75 6c 69 00 20 4c 20 5c 20 56 20 45 20 4e 20 00 21 ┆ juli L Ø V E N !┆
0x18460…18480 23 01 00 00 00 00 00 00 81 02 30 00 00 00 00 00 82 61 75 67 75 73 74 00 20 4c 20 5c 20 56 20 45 ┆# 0 august L Ø V E┆
0x18480…184a0 20 4e 20 00 23 29 02 40 00 00 00 00 00 82 03 10 00 00 00 00 00 82 61 75 67 75 73 74 00 20 4a 20 ┆ N #) @ august J ┆
0x184a0…184c0 4f 20 4d 20 46 20 52 20 55 20 45 20 4e 20 00 29 2c 01 00 00 00 00 00 00 81 02 30 00 00 00 00 00 ┆O M F R U E N ), 0 ┆
0x184c0…184e0 82 73 65 70 74 65 6d 62 65 72 00 20 4a 20 4f 20 4d 20 46 20 52 20 55 20 45 20 4e 20 00 2c 28 02 ┆ september J O M F R U E N ,( ┆
0x184e0…18500 40 00 00 00 00 00 82 03 00 00 00 00 00 00 82 73 65 70 74 65 6d 62 65 72 00 20 56 20 5b 20 47 20 ┆@ september V Æ G ┆
0x18500…18520 (12, 0, 6) 54 20 45 20 4e 20 00 28 26 01 00 00 00 00 00 00 81 02 30 00 00 00 00 00 82 6f 6b 74 6f 62 65 72 ┆T E N (& 0 oktober┆
0x18520…18540 00 20 56 20 5b 20 47 20 54 20 45 20 4e 20 00 26 2e 02 40 00 00 00 00 00 82 03 10 00 00 00 00 00 ┆ V Æ G T E N &. @ ┆
0x18540…18560 82 6f 6b 74 6f 62 65 72 00 20 53 20 4b 20 4f 20 52 20 50 20 49 20 4f 20 4e 20 45 20 4e 20 00 2e ┆ oktober S K O R P I O N E N .┆
0x18560…18580 2f 01 00 00 00 00 00 00 81 02 30 00 00 00 00 00 82 6e 6f 76 65 6d 62 65 72 00 20 53 20 4b 20 4f ┆/ 0 november S K O┆
0x18580…185a0 20 52 20 50 20 49 20 4f 20 4e 20 45 20 4e 20 00 2f 29 02 40 00 00 00 00 00 82 03 00 00 00 00 00 ┆ R P I O N E N /) @ ┆
0x185a0…185c0 00 82 6e 6f 76 65 6d 62 65 72 00 20 53 20 4b 20 59 20 54 20 54 20 45 20 4e 20 00 29 29 01 00 00 ┆ november S K Y T T E N )) ┆
0x185c0…185e0 00 00 00 00 81 02 10 00 00 00 00 00 82 64 65 63 65 6d 62 65 72 00 20 53 20 4b 20 59 20 54 20 54 ┆ december S K Y T T┆
0x185e0…18600 20 45 20 4e 20 00 29 2f 02 20 00 00 00 00 00 82 03 10 00 00 00 00 00 82 64 65 63 65 6d 62 65 72 ┆ E N )/ december┆
0x18600…18620 (12, 0, 7) 00 20 53 20 54 20 45 20 4e 20 42 20 55 20 4b 20 4b 20 45 20 4e 20 00 2f 2d 01 00 00 00 00 00 00 ┆ S T E N B U K K E N /- ┆
0x18620…18640 81 02 00 00 00 00 00 00 82 6a 61 6e 75 61 72 00 20 53 20 54 20 45 20 4e 20 42 20 55 20 4b 20 4b ┆ januar S T E N B U K K┆
0x18640…18660 20 45 20 4e 20 00 2d 2d 02 10 00 00 00 00 00 82 03 10 00 00 00 00 00 82 6a 61 6e 75 61 72 00 20 ┆ E N -- januar ┆
0x18660…18680 56 20 41 20 4e 20 44 20 4d 20 41 20 4e 20 44 20 45 20 4e 20 00 2d 2e 01 00 00 00 00 00 00 81 01 ┆V A N D M A N D E N -. ┆
0x18680…186a0 90 00 00 00 00 00 82 66 65 62 72 75 61 72 00 20 56 20 41 20 4e 20 44 20 4d 20 41 20 4e 20 44 20 ┆ februar V A N D M A N D ┆
0x186a0…186c0 45 20 4e 20 00 2e 28 01 90 00 00 00 00 00 82 02 90 00 00 00 00 00 82 66 65 62 72 75 61 72 00 20 ┆E N .( februar ┆
0x186c0…186e0 46 20 49 20 53 20 4b 20 45 20 4e 20 45 20 00 28 26 01 00 00 00 00 00 00 81 02 00 00 00 00 00 00 ┆F I S K E N E (& ┆
0x186e0…18700 82 6d 61 72 74 73 00 20 46 20 49 20 53 20 4b 20 45 20 4e 20 45 20 00 26 28 02 10 00 00 00 00 00 ┆ marts F I S K E N E &( ┆
0x18700…18720 (12, 0, 8) 82 03 10 00 00 00 00 00 82 6d 61 72 74 73 00 20 56 20 5b 20 44 20 44 20 45 20 52 20 45 20 4e 20 ┆ marts V Æ D D E R E N ┆
0x18720…18740 00 28 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ ( cccccccccccccccccccccccccccc┆
0x18740…18760 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x5…]
0x18800…18900 (12, 0, 9) 0x63[0x100]
[…0x4…]
0x18d00…18d20 (12, 0, 14) ExtentHdr {name=»SCORE «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0019,07 (0x019700)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x18d20…18d40 43 30 31 30 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆C0100 // -----------------------┆
0x18d40…18d60 2d 2d 20 73 63 6f 72 65 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆-- score -----------------------┆
0x18d60…18d80 2d 2d 2d 2d 43 08 30 31 31 30 20 2f 2f 20 08 0f 30 31 32 30 20 50 52 4f 43 20 4f 50 52 45 54 0f ┆----C 0110 // 0120 PROC OPRET ┆
0x18d80…18da0 23 30 31 33 30 20 43 52 45 41 54 45 20 22 53 59 53 54 49 4d 45 3a 48 49 47 48 53 43 4f 52 22 2c ┆#0130 CREATE "SYSTIME:HIGHSCOR",┆
0x18da0…18dc0 35 2c 34 30 23 1e 30 31 34 30 20 4f 50 45 4e 20 22 53 59 53 54 49 4d 45 3a 48 49 47 48 53 43 4f ┆5,40# 0140 OPEN "SYSTIME:HIGHSCO┆
0x18dc0…18de0 52 22 2c 57 1e 2e 30 31 35 30 20 54 4f 4d 24 3a 3d 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆R",W .0150 TOM$:=" ┆
0x18de0…18e00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2e 16 30 31 36 30 20 46 4f 52 20 49 ┆ ". 0160 FOR I┆
0x18e00…18e20 (12, 0, 15) 3a 3d 31 20 54 4f 20 35 20 44 4f 20 16 24 30 31 37 30 20 50 55 54 20 22 53 59 53 54 49 4d 45 3a ┆:=1 TO 5 DO $0170 PUT "SYSTIME:┆
0x18e20…18e40 48 49 47 48 53 43 4f 52 22 2c 49 3a 49 2c 54 4f 4d 24 24 0b 30 31 38 30 20 4e 45 58 54 20 49 0b ┆HIGHSCOR",I:I,TOM$$ 0180 NEXT I ┆
0x18e40…18e60 1d 30 31 39 30 20 43 4c 4f 53 45 20 22 53 59 53 54 49 4d 45 3a 48 49 47 48 53 43 4f 52 22 1d 12 ┆ 0190 CLOSE "SYSTIME:HIGHSCOR" ┆
0x18e60…18e80 30 32 30 30 20 45 4e 44 50 52 4f 43 20 4f 50 52 45 54 12 08 30 32 31 30 20 2f 2f 20 08 40 30 32 ┆0200 ENDPROC OPRET 0210 // @02┆
0x18e80…18ea0 32 30 20 50 52 4f 43 20 55 50 44 41 54 41 28 55 50 50 4f 49 4e 54 53 2c 55 50 4e 41 56 4e 24 2c ┆20 PROC UPDATA(UPPOINTS,UPNAVN$,┆
0x18ea0…18ec0 52 45 46 20 55 50 4c 49 53 54 45 28 29 2c 52 45 46 20 55 50 50 45 52 53 4f 4e 24 28 29 29 40 1e ┆REF UPLISTE(),REF UPPERSON$())@ ┆
0x18ec0…18ee0 30 32 33 30 20 4f 50 45 4e 20 22 53 59 53 54 49 4d 45 3a 48 49 47 48 53 43 4f 52 22 2c 57 1e 16 ┆0230 OPEN "SYSTIME:HIGHSCOR",W ┆
0x18ee0…18f00 30 32 34 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 35 20 44 4f 20 16 35 30 32 35 30 20 47 45 54 ┆0240 FOR I:=1 TO 5 DO 50250 GET┆
0x18f00…18f20 (12, 0, 16) 20 22 53 59 53 54 49 4d 45 3a 48 49 47 48 53 43 4f 52 22 2c 49 3a 55 50 4c 49 53 54 45 28 49 29 ┆ "SYSTIME:HIGHSCOR",I:UPLISTE(I)┆
0x18f20…18f40 2c 55 50 50 45 52 53 4f 4e 24 28 49 29 35 0b 30 32 36 30 20 4e 45 58 54 20 49 0b 2f 30 32 37 30 ┆,UPPERSON$(I)5 0260 NEXT I /0270┆
0x18f40…18f60 20 55 50 4c 49 53 54 45 28 36 29 3a 3d 55 50 50 4f 49 4e 54 53 3b 55 50 50 45 52 53 4f 4e 24 28 ┆ UPLISTE(6):=UPPOINTS;UPPERSON$(┆
0x18f60…18f80 36 29 3a 3d 55 50 4e 41 56 4e 24 2f 0a 30 32 38 30 20 4e 52 3a 3d 36 0a 14 30 32 39 30 20 57 48 ┆6):=UPNAVN$/ 0280 NR:=6 0290 WH┆
0x18f80…18fa0 49 4c 45 20 4e 52 3d 3e 32 20 44 4f 20 14 27 30 33 30 30 20 49 46 20 55 50 4c 49 53 54 45 28 4e ┆ILE NR=>2 DO '0300 IF UPLISTE(N┆
0x18fa0…18fc0 52 29 3e 55 50 4c 49 53 54 45 28 4e 52 2d 31 29 20 54 48 45 4e 20 27 47 30 33 31 30 20 4f 4d 42 ┆R)>UPLISTE(NR-1) THEN 'G0310 OMB┆
0x18fc0…18fe0 59 54 3a 3d 55 50 4c 49 53 54 45 28 4e 52 2d 31 29 3b 55 50 4c 49 53 54 45 28 4e 52 2d 31 29 3a ┆YT:=UPLISTE(NR-1);UPLISTE(NR-1):┆
0x18fe0…19000 3d 55 50 4c 49 53 54 45 28 4e 52 29 3b 55 50 4c 49 53 54 45 28 4e 52 29 3a 3d 4f 4d 42 59 54 47 ┆=UPLISTE(NR);UPLISTE(NR):=OMBYTG┆
0x19000…19020 (12, 1, 1) 4d 30 33 32 30 20 42 59 54 24 3a 3d 55 50 50 45 52 53 4f 4e 24 28 4e 52 2d 31 29 3b 55 50 50 45 ┆M0320 BYT$:=UPPERSON$(NR-1);UPPE┆
0x19020…19040 52 53 4f 4e 24 28 4e 52 2d 31 29 3a 3d 55 50 50 45 52 53 4f 4e 24 28 4e 52 29 3b 55 50 50 45 52 ┆RSON$(NR-1):=UPPERSON$(NR);UPPER┆
0x19040…19060 53 4f 4e 24 28 4e 52 29 3a 3d 42 59 54 24 4d 0b 30 33 33 30 20 45 4e 44 49 46 20 0b 0d 30 33 34 ┆SON$(NR):=BYT$M 0330 ENDIF 034┆
0x19060…19080 30 20 4e 52 3a 3d 4e 52 2d 31 0d 0e 30 33 35 30 20 45 4e 44 57 48 49 4c 45 20 0e 16 30 33 36 30 ┆0 NR:=NR-1 0350 ENDWHILE 0360┆
0x19080…190a0 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 35 20 44 4f 20 16 35 30 33 37 30 20 50 55 54 20 22 53 59 ┆ FOR I:=1 TO 5 DO 50370 PUT "SY┆
0x190a0…190c0 53 54 49 4d 45 3a 48 49 47 48 53 43 4f 52 22 2c 49 3a 55 50 4c 49 53 54 45 28 49 29 2c 55 50 50 ┆STIME:HIGHSCOR",I:UPLISTE(I),UPP┆
0x190c0…190e0 45 52 53 4f 4e 24 28 49 29 35 0b 30 33 38 30 20 4e 45 58 54 20 49 0b 1d 30 33 39 30 20 43 4c 4f ┆ERSON$(I)5 0380 NEXT I 0390 CLO┆
0x190e0…19100 53 45 20 22 53 59 53 54 49 4d 45 3a 48 49 47 48 53 43 4f 52 22 1d 13 30 34 30 30 20 45 4e 44 50 ┆SE "SYSTIME:HIGHSCOR" 0400 ENDP┆
0x19100…19120 (12, 1, 2) 52 4f 43 20 55 50 44 41 54 41 13 08 30 34 31 30 20 2f 2f 20 08 2c 30 34 32 30 20 50 52 4f 43 20 ┆ROC UPDATA 0410 // ,0420 PROC ┆
0x19120…19140 4c 5b 53 28 52 45 46 20 4c 5b 4c 49 53 54 45 28 29 2c 52 45 46 20 4c 5b 50 45 52 53 4f 4e 24 28 ┆LÆS(REF LÆLISTE(),REF LÆPERSON$(┆
0x19140…19160 29 29 2c 1e 30 34 33 30 20 4f 50 45 4e 20 22 53 59 53 54 49 4d 45 3a 48 49 47 48 53 43 4f 52 22 ┆)), 0430 OPEN "SYSTIME:HIGHSCOR"┆
0x19160…19180 2c 52 1e 16 30 34 34 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 35 20 44 4f 20 16 35 30 34 35 30 ┆,R 0440 FOR I:=1 TO 5 DO 50450┆
0x19180…191a0 20 47 45 54 20 22 53 59 53 54 49 4d 45 3a 48 49 47 48 53 43 4f 52 22 2c 49 3a 4c 5b 4c 49 53 54 ┆ GET "SYSTIME:HIGHSCOR",I:LÆLIST┆
0x191a0…191c0 45 28 49 29 2c 4c 5b 50 45 52 53 4f 4e 24 28 49 29 35 22 30 34 36 30 20 50 52 49 4e 54 20 4c 5b ┆E(I),LÆPERSON$(I)5"0460 PRINT LÆ┆
0x191c0…191e0 4c 49 53 54 45 28 49 29 2c 4c 5b 50 45 52 53 4f 4e 24 28 49 29 22 0b 30 34 37 30 20 4e 45 58 54 ┆LISTE(I),LÆPERSON$(I)" 0470 NEXT┆
0x191e0…19200 20 49 0b 1d 30 34 38 30 20 43 4c 4f 53 45 20 22 53 59 53 54 49 4d 45 3a 48 49 47 48 53 43 4f 52 ┆ I 0480 CLOSE "SYSTIME:HIGHSCOR┆
0x19200…19220 (12, 1, 3) 22 1d 10 30 34 39 30 20 45 4e 44 50 52 4f 43 20 4c 5b 53 10 08 30 35 30 30 20 2f 2f 20 08 19 30 ┆" 0490 ENDPROC LÆS 0500 // 0┆
0x19220…19240 35 31 30 20 49 4e 54 45 47 45 52 20 4c 49 53 54 45 28 36 29 2c 49 2c 4a 19 46 30 35 32 30 20 44 ┆510 INTEGER LISTE(6),I,J F0520 D┆
0x19240…19260 49 4d 20 42 59 54 24 20 4f 46 20 33 30 2c 54 4f 4d 24 20 4f 46 20 33 30 2c 50 45 52 53 4f 4e 24 ┆IM BYT$ OF 30,TOM$ OF 30,PERSON$┆
0x19260…19280 28 36 29 20 4f 46 20 33 30 2c 53 56 41 52 24 20 4f 46 20 31 2c 4e 41 56 4e 24 20 4f 46 20 33 30 ┆(6) OF 30,SVAR$ OF 1,NAVN$ OF 30┆
0x19280…192a0 46 0b 30 35 33 30 20 43 4c 45 41 52 20 0b 36 30 35 34 30 20 49 4e 50 55 54 20 22 53 6b 61 6c 20 ┆F 0530 CLEAR 60540 INPUT "Skal ┆
0x192a0…192c0 27 68 69 67 68 73 63 6f 72 65 27 20 6f 70 72 65 74 74 65 73 3f 20 20 28 6a 2f 6e 29 20 20 22 3a ┆'highscore' oprettes? (j/n) ":┆
0x192c0…192e0 53 56 41 52 24 36 21 30 35 35 30 20 49 46 20 53 56 41 52 24 3d 22 6a 22 20 54 48 45 4e 20 45 58 ┆SVAR$6!0550 IF SVAR$="j" THEN EX┆
0x192e0…19300 45 43 20 4f 50 52 45 54 21 29 30 35 36 30 20 49 4e 50 55 54 20 22 4e 61 76 6e 3a 20 20 20 28 30 ┆EC OPRET!)0560 INPUT "Navn: (0┆
0x19300…19320 (12, 1, 4) 20 73 74 6f 70 70 65 72 29 3a 20 20 22 3a 4e 41 56 4e 24 29 19 30 35 37 30 20 57 48 49 4c 45 20 ┆ stopper): ":NAVN$) 0570 WHILE ┆
0x19320…19340 4e 41 56 4e 24 3c 3e 22 30 22 20 44 4f 20 19 23 30 35 38 30 20 49 4e 50 55 54 20 22 50 6f 69 6e ┆NAVN$<>"0" DO #0580 INPUT "Poin┆
0x19340…19360 74 73 74 61 6c 3a 20 20 20 20 20 22 3a 50 4f 49 4e 54 53 23 2c 30 35 39 30 20 45 58 45 43 20 55 ┆tstal: ":POINTS#,0590 EXEC U┆
0x19360…19380 50 44 41 54 41 28 50 4f 49 4e 54 53 2c 4e 41 56 4e 24 2c 4c 49 53 54 45 2c 50 45 52 53 4f 4e 24 ┆PDATA(POINTS,NAVN$,LISTE,PERSON$┆
0x19380…193a0 29 2c 29 30 36 30 30 20 49 4e 50 55 54 20 22 4e 61 76 6e 3a 20 20 20 28 30 20 73 74 6f 70 70 65 ┆),)0600 INPUT "Navn: (0 stoppe┆
0x193a0…193c0 72 29 3a 20 20 22 3a 4e 41 56 4e 24 29 0e 30 36 31 30 20 45 4e 44 57 48 49 4c 45 20 0e 31 30 36 ┆r): ":NAVN$) 0610 ENDWHILE 106┆
0x193c0…193e0 32 30 20 49 4e 50 55 54 20 22 53 6b 61 6c 20 68 69 67 68 73 63 6f 72 65 20 6c 7b 73 65 73 3f 20 ┆20 INPUT "Skal highscore læses? ┆
0x193e0…19400 20 28 6a 2f 6e 29 3a 20 22 3a 53 56 41 52 24 31 2e 30 36 33 30 20 49 46 20 53 56 41 52 24 3d 22 ┆ (j/n): ":SVAR$1.0630 IF SVAR$="┆
0x19400…19420 (12, 1, 5) 6a 22 20 54 48 45 4e 20 45 58 45 43 20 4c 5b 53 28 4c 49 53 54 45 2c 50 45 52 53 4f 4e 24 29 2e ┆j" THEN EXEC LÆS(LISTE,PERSON$).┆
0x19420…19440 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ cccccccccccccccccccccccccccccc┆
0x19440…19460 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x5…]
0x19500…19600 (12, 1, 6) 0x63[0x100]
[…0x1…]
0x19700…19720 (12, 1, 8) ExtentHdr {name=»ANTILOG «, typ=»K«, seg=»A«, next=0x01, basis=0x0001, nextext={DA 0019,08 (0x019800)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0019,08 (0x019800)}, f99=41 19 00 fe 00 00 00 00 00 00 ┆A ┆}
0x19720…19740 32 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 61 6e 74 69 6c 6f 67 20 2d 2d ┆20010 // ------------ antilog --┆
0x19740…19760 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 32 14 30 30 32 30 20 50 52 4f 43 20 41 ┆-------------------2 0020 PROC A┆
0x19760…19780 4e 54 49 4c 4f 47 28 58 29 14 13 30 30 33 30 20 41 4e 54 49 4c 4f 47 3a 3d 31 30 2a 2a 58 13 14 ┆NTILOG(X) 0030 ANTILOG:=10**X ┆
0x19780…197a0 30 30 34 30 20 45 4e 44 50 52 4f 43 20 41 4e 54 49 4c 4f 47 14 08 30 30 35 30 20 2f 2f 20 08 0b ┆0040 ENDPROC ANTILOG 0050 // ┆
0x197a0…197c0 30 30 36 30 20 43 4c 45 41 52 20 0b 0b 30 30 36 35 20 50 52 49 4e 54 20 0b 22 30 30 37 30 20 49 ┆0060 CLEAR 0065 PRINT "0070 I┆
0x197c0…197e0 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 65 74 20 74 61 6c 3a 20 20 20 20 22 3a 41 22 29 30 30 ┆NPUT "Indtast et tal: ":A")00┆
0x197e0…19800 38 30 20 50 52 49 4e 54 20 22 41 6e 74 69 6c 6f 67 28 22 3b 41 3b 22 29 20 3d 20 22 3b 41 4e 54 ┆80 PRINT "Antilog(";A;") = ";ANT┆
0x19800…19820 (12, 1, 9) ExtentHdr {name=»ANTILOG «, typ=»K«, seg=»B«, next=0x01, basis=0x0001, nextext={DA 0000,00 (0x000000)}, prevext={DA 0019,07 (0x019700)}, nextfile={DA 0019,09 (0x019900)}, f99=41 19 00 20 00 00 00 00 00 00 ┆A ┆}
0x19820…19840 49 4c 4f 47 28 41 29 29 00 00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 61 6e 74 69 6c 6f 67 20 2d 2d ┆ILOG(A)) ----------- antilog --┆
0x19840…19860 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 32 14 30 30 32 30 20 50 52 4f 43 20 41 ┆-------------------2 0020 PROC A┆
0x19860…19880 4e 54 49 4c 4f 47 28 58 29 14 13 30 30 33 30 20 41 4e 54 49 4c 4f 47 3a 3d 31 30 2a 2a 58 13 14 ┆NTILOG(X) 0030 ANTILOG:=10**X ┆
0x19880…198a0 30 30 34 30 20 45 4e 44 50 52 4f 43 20 41 4e 54 49 4c 4f 47 14 08 30 30 35 30 20 2f 2f 20 08 0b ┆0040 ENDPROC ANTILOG 0050 // ┆
0x198a0…198c0 30 30 36 30 20 43 4c 45 41 52 20 0b 0b 30 30 36 35 20 50 52 49 4e 54 20 0b 22 30 30 37 30 20 49 ┆0060 CLEAR 0065 PRINT "0070 I┆
0x198c0…198e0 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 65 74 20 74 61 6c 3a 20 20 20 20 22 3a 41 22 00 00 00 ┆NPUT "Indtast et tal: ":A" ┆
0x198e0…19900 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x19900…19920 (12, 1, 10) ExtentHdr {name=»TELEFON «, typ=»K«, seg=»A«, next=0x00, basis=0x0022, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 001b,0b (0x01bb00)}, f99=00 00 00 ff 00 00 00 00 00 00 ┆ ┆}
0x19920…19940 0e 09 11 21 20 00 00 00 86 50 65 74 65 72 00 0e 0e 01 23 21 20 00 00 00 86 4d 61 72 69 65 00 0e ┆ ! Peter #! Marie ┆
0x19940…19960 0e 03 21 12 30 00 00 00 86 4b 61 72 69 6e 00 0e 10 09 13 21 20 00 00 00 86 4b 61 74 69 6e 6b 61 ┆ ! 0 Karin ! Katinka┆
0x19960…19980 00 10 0d 09 19 00 00 00 00 00 86 48 75 67 6f 00 0d 0e 01 23 12 10 00 00 00 86 56 69 67 67 6f 00 ┆ Hugo # Viggo ┆
0x19980…199a0 0e 10 03 29 91 20 00 00 00 86 4b 61 72 73 74 65 6e 00 10 0d 02 39 91 00 00 00 00 86 45 62 62 61 ┆ ) Karsten 9 Ebba┆
0x199a0…199c0 00 0d 0e 01 19 92 30 00 00 00 86 47 69 74 74 65 00 0e 10 01 19 92 50 00 00 00 86 41 6e 64 72 65 ┆ 0 Gitte P Andre┆
0x199c0…199e0 61 73 00 10 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 ┆as ┆
0x199e0…19a00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x19a00…19b00 (12, 1, 11) 0x63[0x100]
[…0x20…]
0x1bb00…1bb20 (13, 1, 12) ExtentHdr {name=»PERSONNU«, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 001c,05 (0x01c500)}, f99=41 1b 00 fe 00 00 00 00 00 00 ┆A ┆}
0x1bb20…1bb40 3b 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 70 65 72 73 ┆;0010 // ------------------ pers┆
0x1bb40…1bb60 6f 6e 6e 75 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3b 45 30 30 ┆onnu -----------------------;E00┆
0x1bb60…1bb80 32 30 20 2f 2f 20 50 72 6f 67 72 61 6d 6d 65 74 20 6b 6f 6e 74 72 6f 6c 6c 65 72 65 72 20 6f 6d ┆20 // Programmet kontrollerer om┆
0x1bb80…1bba0 20 65 74 20 6f 70 67 69 76 65 74 20 70 65 72 73 6f 6e 6e 75 6d 6d 65 72 20 65 72 20 6b 6f 72 72 ┆ et opgivet personnummer er korr┆
0x1bba0…1bbc0 65 6b 74 45 2b 30 30 33 30 20 2f 2f 20 44 61 74 6f 65 6e 73 20 67 79 6c 64 69 67 68 65 64 20 6b ┆ektE+0030 // Datoens gyldighed k┆
0x1bbc0…1bbe0 6f 6e 74 72 6f 6c 6c 65 72 65 73 20 6f 67 73 7d 2b 08 30 30 34 30 20 2f 2f 20 08 17 30 30 34 31 ┆ontrolleres også+ 0040 // 0041┆
0x1bbe0…1bc00 20 49 4e 54 45 47 45 52 20 54 52 55 45 2c 46 41 4c 53 45 17 15 30 30 34 32 20 54 52 55 45 3a 3d ┆ INTEGER TRUE,FALSE 0042 TRUE:=┆
0x1bc00…1bc20 (13, 1, 13) 31 3b 46 41 4c 53 45 3a 3d 30 15 1f 30 30 35 30 20 50 52 4f 43 20 43 50 52 5f 43 48 45 43 4b 28 ┆1;FALSE:=0 0050 PROC CPR_CHECK(┆
0x1bc20…1bc40 52 45 46 20 43 48 54 41 4c 24 29 1f 16 30 30 36 30 20 53 55 4d 3a 3d 30 3b 54 45 53 54 3a 3d 54 ┆REF CHTAL$) 0060 SUM:=0;TEST:=T┆
0x1bc40…1bc60 52 55 45 16 16 30 30 37 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 37 20 44 4f 20 16 21 30 30 38 ┆RUE 0070 FOR I:=1 TO 7 DO !008┆
0x1bc60…1bc80 30 20 53 55 4d 3a 3d 53 55 4d 2b 41 53 43 28 43 48 54 41 4c 24 28 31 31 2d 49 29 29 2a 49 21 0b ┆0 SUM:=SUM+ASC(CHTAL$(11-I))*I! ┆
0x1bc80…1bca0 30 30 39 30 20 4e 45 58 54 20 49 0b 16 30 31 30 30 20 46 4f 52 20 49 3a 3d 32 20 54 4f 20 34 20 ┆0090 NEXT I 0100 FOR I:=2 TO 4 ┆
0x1bca0…1bcc0 44 4f 20 16 20 30 31 31 30 20 53 55 4d 3a 3d 53 55 4d 2b 41 53 43 28 43 48 54 41 4c 24 28 35 2d ┆DO 0110 SUM:=SUM+ASC(CHTAL$(5-┆
0x1bcc0…1bce0 49 29 29 2a 49 20 0b 30 31 32 30 20 4e 45 58 54 20 49 0b 26 30 31 33 30 20 49 46 20 53 55 4d 20 ┆I))*I 0120 NEXT I &0130 IF SUM ┆
0x1bce0…1bd00 4d 4f 44 20 31 31 3c 3e 30 20 54 48 45 4e 20 54 45 53 54 3a 3d 46 41 4c 53 45 26 1b 30 31 34 30 ┆MOD 11<>0 THEN TEST:=FALSE& 0140┆
0x1bd00…1bd20 (13, 1, 14) 20 44 41 54 4f 3a 3d 41 53 43 28 43 48 54 41 4c 24 28 31 3a 32 29 29 1b 1c 30 31 35 30 20 4d 5d ┆ DATO:=ASC(CHTAL$(1:2)) 0150 MÅ┆
0x1bd20…1bd40 4e 45 44 3a 3d 41 53 43 28 43 48 54 41 4c 24 28 33 3a 32 29 29 1c 19 30 31 36 30 20 5d 52 3a 3d ┆NED:=ASC(CHTAL$(3:2)) 0160 ÅR:=┆
0x1bd40…1bd60 41 53 43 28 43 48 54 41 4c 24 28 35 3a 32 29 29 19 41 30 31 37 30 20 49 46 20 44 41 54 4f 3d 30 ┆ASC(CHTAL$(5:2)) A0170 IF DATO=0┆
0x1bd60…1bd80 20 4f 52 20 44 41 54 4f 3e 33 31 20 4f 52 20 4d 5d 4e 45 44 3d 30 20 4f 52 20 4d 5d 4e 45 44 3e ┆ OR DATO>31 OR MÅNED=0 OR MÅNED>┆
0x1bd80…1bda0 31 32 20 54 48 45 4e 20 54 45 53 54 3a 3d 46 41 4c 53 45 41 0d 30 31 38 30 20 52 45 53 54 4f 52 ┆12 THEN TEST:=FALSEA 0180 RESTOR┆
0x1bda0…1bdc0 45 20 0d 12 30 31 39 30 20 44 41 54 41 20 34 2c 36 2c 39 2c 31 31 12 16 30 32 30 30 20 46 4f 52 ┆E 0190 DATA 4,6,9,11 0200 FOR┆
0x1bdc0…1bde0 20 49 3a 3d 31 20 54 4f 20 34 20 44 4f 20 16 13 30 32 31 30 20 52 45 41 44 20 4b 4f 52 54 4d 5d ┆ I:=1 TO 4 DO 0210 READ KORTMÅ┆
0x1bde0…1be00 4e 45 44 13 34 30 32 32 30 20 49 46 20 4b 4f 52 54 4d 5d 4e 45 44 3d 4d 5d 4e 45 44 20 41 4e 44 ┆NED 40220 IF KORTMÅNED=MÅNED AND┆
0x1be00…1be20 (13, 1, 15) 20 44 41 54 4f 3d 33 31 20 54 48 45 4e 20 54 45 53 54 3a 3d 46 41 4c 53 45 34 0b 30 32 33 30 20 ┆ DATO=31 THEN TEST:=FALSE4 0230 ┆
0x1be20…1be40 4e 45 58 54 20 49 0b 2c 30 32 34 30 20 49 46 20 4d 5d 4e 45 44 3d 32 20 41 4e 44 20 44 41 54 4f ┆NEXT I ,0240 IF MÅNED=2 AND DATO┆
0x1be40…1be60 3e 32 39 20 54 48 45 4e 20 54 45 53 54 3a 3d 46 41 4c 53 45 2c 46 30 32 35 30 20 49 46 20 4d 5d ┆>29 THEN TEST:=FALSE,F0250 IF MÅ┆
0x1be60…1be80 4e 45 44 3d 32 20 41 4e 44 20 44 41 54 4f 3d 32 39 20 41 4e 44 20 28 5d 52 20 4d 4f 44 20 34 3c ┆NED=2 AND DATO=29 AND (ÅR MOD 4<┆
0x1be80…1bea0 3e 30 20 4f 52 20 5d 52 3d 30 29 20 54 48 45 4e 20 54 45 53 54 3a 3d 46 41 4c 53 45 46 23 30 32 ┆>0 OR ÅR=0) THEN TEST:=FALSEF#02┆
0x1bea0…1bec0 36 30 20 49 46 20 54 45 53 54 3d 54 52 55 45 20 54 48 45 4e 20 43 48 54 41 4c 24 3a 3d 22 4f 4b ┆60 IF TEST=TRUE THEN CHTAL$:="OK┆
0x1bec0…1bee0 22 23 16 30 32 37 30 20 45 4e 44 50 52 4f 43 20 43 50 52 5f 43 48 45 43 4b 16 08 30 32 38 30 20 ┆"# 0270 ENDPROC CPR_CHECK 0280 ┆
0x1bee0…1bf00 2f 2f 20 08 0b 30 32 39 30 20 43 4c 45 41 52 20 0b 1f 30 33 30 30 20 44 49 4d 20 54 41 4c 24 20 ┆// 0290 CLEAR 0300 DIM TAL$ ┆
0x1bf00…1bf20 (13, 1, 16) 4f 46 20 32 30 2c 4b 4f 50 49 24 20 4f 46 20 31 30 1f 0b 30 33 31 30 20 50 52 49 4e 54 20 0b 4c ┆OF 20,KOPI$ OF 10 0310 PRINT L┆
0x1bf20…1bf40 30 33 32 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 44 65 20 31 30 20 63 69 66 72 ┆0320 PRINT " De 10 cifr┆
0x1bf40…1bf60 65 20 69 20 70 65 72 73 6f 6e 6e 75 6d 6d 65 72 65 74 20 73 6b 61 6c 20 6e 75 20 69 6e 64 74 61 ┆e i personnummeret skal nu indta┆
0x1bf60…1bf80 73 74 65 73 20 75 64 65 6e 20 22 3b 4c 16 30 33 32 31 20 50 52 49 4e 54 20 22 6d 65 6c 6c 65 6d ┆stes uden ";L 0321 PRINT "mellem┆
0x1bf80…1bfa0 72 75 6d 22 16 48 30 33 33 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 46 2e 65 6b ┆rum" H0330 PRINT " F.ek┆
0x1bfa0…1bfc0 73 20 6b 61 6e 20 69 6e 64 74 61 73 74 6e 69 6e 67 65 6e 20 73 65 20 73 7d 6c 65 64 65 73 20 75 ┆s kan indtastningen se således u┆
0x1bfc0…1bfe0 64 3a 20 31 32 31 32 31 32 31 32 31 32 22 48 3b 30 33 34 30 20 50 52 49 4e 54 20 22 20 20 20 20 ┆d: 1212121212"H;0340 PRINT " ┆
0x1bfe0…1c000 20 20 20 20 20 20 50 72 6f 67 72 61 6d 6d 65 74 20 73 74 6f 70 70 65 72 2c 20 6e 7d 72 20 64 65 ┆ Programmet stopper, når de┆
0x1c000…1c020 (14, 0, 1) 72 20 74 61 73 74 65 73 20 30 22 3b 0c 30 33 35 30 20 52 45 50 45 41 54 20 0c 0c 30 33 36 30 20 ┆r tastes 0"; 0350 REPEAT 0360 ┆
0x1c020…1c040 52 45 50 45 41 54 20 0c 12 30 33 37 30 20 4f 4d 49 47 45 4e 3a 3d 46 41 4c 53 45 12 11 30 33 38 ┆REPEAT 0370 OMIGEN:=FALSE 038┆
0x1c040…1c060 30 20 43 55 52 53 4f 52 20 33 36 2c 31 30 11 20 30 33 39 30 20 50 52 49 4e 54 20 22 20 20 20 20 ┆0 CURSOR 36,10 0390 PRINT " ┆
0x1c060…1c080 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 20 11 30 34 30 30 20 43 55 52 53 4f 52 20 31 31 ┆ " 0400 CURSOR 11┆
0x1c080…1c0a0 2c 31 30 11 2c 30 34 31 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 65 74 20 70 65 72 73 ┆,10 ,0410 INPUT "Indtast et pers┆
0x1c0a0…1c0c0 6f 6e 6e 75 6d 6d 65 72 3a 20 20 22 3a 54 41 4c 24 2c 16 30 34 32 30 20 49 46 20 54 41 4c 24 3d ┆onnummer: ":TAL$, 0420 IF TAL$=┆
0x1c0c0…1c0e0 22 30 22 20 54 48 45 4e 20 16 10 30 34 33 30 20 43 55 52 53 4f 52 20 31 2c 32 32 10 0a 30 34 34 ┆"0" THEN 0430 CURSOR 1,22 044┆
0x1c0e0…1c100 30 20 53 54 4f 50 20 0a 0b 30 34 35 30 20 45 4e 44 49 46 20 0b 1a 30 34 36 30 20 49 46 20 4c 45 ┆0 STOP 0450 ENDIF 0460 IF LE┆
0x1c100…1c120 (14, 0, 2) 4e 28 54 41 4c 24 29 3d 31 30 20 54 48 45 4e 20 1a 17 30 34 37 30 20 46 4f 52 20 49 3a 3d 31 20 ┆N(TAL$)=10 THEN 0470 FOR I:=1 ┆
0x1c120…1c140 54 4f 20 31 30 20 44 4f 20 17 40 30 34 38 30 20 49 46 20 4f 52 44 28 54 41 4c 24 28 49 3a 49 29 ┆TO 10 DO @0480 IF ORD(TAL$(I:I)┆
0x1c140…1c160 29 3c 34 38 20 4f 52 20 4f 52 44 28 54 41 4c 24 28 49 3a 49 29 29 3e 35 37 20 54 48 45 4e 20 4f ┆)<48 OR ORD(TAL$(I:I))>57 THEN O┆
0x1c160…1c180 4d 49 47 45 4e 3a 3d 54 52 55 45 40 0b 30 34 39 30 20 4e 45 58 54 20 49 0b 0a 30 35 30 30 20 45 ┆MIGEN:=TRUE@ 0490 NEXT I 0500 E┆
0x1c180…1c1a0 4c 53 45 20 0a 11 30 35 31 30 20 4f 4d 49 47 45 4e 3a 3d 54 52 55 45 11 0b 30 35 32 30 20 45 4e ┆LSE 0510 OMIGEN:=TRUE 0520 EN┆
0x1c1a0…1c1c0 44 49 46 20 0b 15 30 35 33 30 20 55 4e 54 49 4c 20 4e 4f 54 20 4f 4d 49 47 45 4e 15 2c 30 35 34 ┆DIF 0530 UNTIL NOT OMIGEN ,054┆
0x1c1c0…1c1e0 30 20 4b 4f 50 49 24 3a 3d 54 41 4c 24 20 2f 2f 20 4e 75 20 68 61 72 20 76 69 20 6e 65 74 6f 70 ┆0 KOPI$:=TAL$ // Nu har vi netop┆
0x1c1e0…1c200 20 31 30 20 63 69 66 72 65 2c 19 30 35 35 30 20 45 58 45 43 20 43 50 52 5f 43 48 45 43 4b 28 54 ┆ 10 cifre, 0550 EXEC CPR_CHECK(T┆
0x1c200…1c220 (14, 0, 3) 41 4c 24 29 19 11 30 35 36 30 20 43 55 52 53 4f 52 20 31 31 2c 31 35 11 17 30 35 37 30 20 49 46 ┆AL$) 0560 CURSOR 11,15 0570 IF┆
0x1c220…1c240 20 54 41 4c 24 3d 22 4f 4b 22 20 54 48 45 4e 20 17 2e 30 35 38 30 20 50 52 49 4e 54 20 22 43 50 ┆ TAL$="OK" THEN .0580 PRINT "CP┆
0x1c240…1c260 52 2d 6e 75 6d 6d 65 72 65 74 20 22 3b 4b 4f 50 49 24 3b 22 20 65 72 20 69 20 6f 72 64 65 6e 22 ┆R-nummeret ";KOPI$;" er i orden"┆
0x1c260…1c280 2e 0a 30 35 39 30 20 45 4c 53 45 20 0a 2e 30 36 30 30 20 50 52 49 4e 54 20 22 43 50 52 2d 6e 75 ┆. 0590 ELSE .0600 PRINT "CPR-nu┆
0x1c280…1c2a0 6d 6d 65 72 65 74 20 22 3b 4b 4f 50 49 24 3b 22 20 65 72 20 66 6f 72 6b 65 72 74 22 2e 0b 30 36 ┆mmeret ";KOPI$;" er forkert". 06┆
0x1c2a0…1c2c0 31 30 20 45 4e 44 49 46 20 0b 11 30 36 32 30 20 43 55 52 53 4f 52 20 31 31 2c 32 30 11 1f 30 36 ┆10 ENDIF 0620 CURSOR 11,20 06┆
0x1c2c0…1c2e0 33 30 20 49 4e 50 55 54 20 22 54 61 73 74 20 3c 52 65 74 75 72 6e 3e 22 3a 54 41 4c 24 1f 10 30 ┆30 INPUT "Tast <Return>":TAL$ 0┆
0x1c2e0…1c300 36 34 30 20 55 4e 54 49 4c 20 46 41 4c 53 45 10 0d 32 36 36 31 20 2f 2f 20 6d 72 75 6d 22 0d 00 ┆640 UNTIL FALSE 2661 // mrum" ┆
0x1c300…1c320 (14, 0, 4) 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ ccccccccccccccccccccccccccccccc┆
0x1c320…1c340 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x6…]
0x1c400…1c500 (14, 0, 5) 0x63[0x100]
0x1c500…1c520 (14, 0, 6) ExtentHdr {name=»RUMFANG3«, typ=»K«, seg=»A«, next=0x02, basis=0x000a, nextext={DA 001c,0f (0x01cf00)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 001c,0f (0x01cf00)}, f99=41 1b 00 fe 00 55 4d 46 41 4e ┆A UMFAN┆}
0x1c520…1c540 45 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆E0010 // -----------------------┆
0x1c540…1c560 2d 20 72 75 6d 66 61 6e 67 33 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆- rumfang3 ---------------------┆
0x1c560…1c580 2d 2d 2d 2d 2d 2d 45 44 30 30 32 30 20 2f 2f 20 55 64 72 65 67 6e 65 72 20 66 6f 72 73 6b 65 6c ┆------ED0020 // Udregner forskel┆
0x1c580…1c5a0 6c 69 67 65 20 72 75 6d 66 61 6e 67 20 76 2f 49 46 2d 73 7b 74 6e 69 6e 67 65 72 20 73 61 6d 74 ┆lige rumfang v/IF-sætninger samt┆
0x1c5a0…1c5c0 20 70 72 6f 63 65 64 75 72 65 72 2e 44 11 30 30 33 30 20 44 49 4d 20 53 56 24 20 4f 46 20 33 11 ┆ procedurer.D 0030 DIM SV$ OF 3 ┆
0x1c5c0…1c5e0 0c 30 30 34 30 20 52 45 50 45 41 54 20 0c 0b 30 30 35 30 20 43 4c 45 41 52 20 0b 10 30 30 36 30 ┆ 0040 REPEAT 0050 CLEAR 0060┆
0x1c5e0…1c600 20 43 55 52 53 4f 52 20 31 30 2c 33 10 32 30 30 37 30 20 50 52 49 4e 54 20 22 44 65 74 74 65 20 ┆ CURSOR 10,3 20070 PRINT "Dette ┆
0x1c600…1c620 (14, 0, 7) 70 72 6f 67 72 61 6d 20 75 64 73 6b 72 69 76 65 72 20 72 75 6d 66 61 6e 67 65 74 20 61 66 3a 22 ┆program udskriver rumfanget af:"┆
0x1c620…1c640 32 10 30 30 38 30 20 43 55 52 53 4f 52 20 31 30 2c 34 10 32 30 30 39 30 20 50 52 49 4e 54 20 22 ┆2 0080 CURSOR 10,4 20090 PRINT "┆
0x1c640…1c660 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x1c660…1c680 2d 2d 2d 2d 2d 22 32 0b 30 31 30 30 20 50 52 49 4e 54 20 0b 10 30 31 31 30 20 43 55 52 53 4f 52 ┆-----"2 0100 PRINT 0110 CURSOR┆
0x1c680…1c6a0 20 31 30 2c 36 10 3d 30 31 32 30 20 50 52 49 4e 54 20 22 4b 61 73 73 65 2e 2e 2e 2e 2e 2e 2e 2e ┆ 10,6 =0120 PRINT "Kasse........┆
0x1c6a0…1c6c0 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 54 61 73 ┆.............................Tas┆
0x1c6c0…1c6e0 74 20 31 22 3d 10 30 31 33 30 20 43 55 52 53 4f 52 20 31 30 2c 38 10 3d 30 31 34 30 20 50 52 49 ┆t 1"= 0130 CURSOR 10,8 =0140 PRI┆
0x1c6e0…1c700 4e 54 20 22 50 79 72 61 6d 69 64 65 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ┆NT "Pyramide....................┆
0x1c700…1c720 (14, 0, 8) 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 54 61 73 74 20 32 22 3d 11 30 31 35 30 20 43 55 52 53 ┆..............Tast 2"= 0150 CURS┆
0x1c720…1c740 4f 52 20 31 30 2c 31 30 11 3d 30 31 36 30 20 50 52 49 4e 54 20 22 50 79 72 61 6d 69 64 65 73 74 ┆OR 10,10 =0160 PRINT "Pyramidest┆
0x1c740…1c760 75 62 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ┆ub..............................┆
0x1c760…1c780 54 61 73 74 20 33 22 3d 11 30 31 37 30 20 43 55 52 53 4f 52 20 31 30 2c 31 32 11 3d 30 31 38 30 ┆Tast 3"= 0170 CURSOR 10,12 =0180┆
0x1c780…1c7a0 20 50 52 49 4e 54 20 22 43 79 6c 69 6e 64 65 72 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ┆ PRINT "Cylinder................┆
0x1c7a0…1c7c0 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 54 61 73 74 20 34 22 3d 11 30 31 39 30 20 ┆..................Tast 4"= 0190 ┆
0x1c7c0…1c7e0 43 55 52 53 4f 52 20 31 30 2c 31 34 11 3d 30 32 30 30 20 50 52 49 4e 54 20 22 4b 65 67 6c 65 2e ┆CURSOR 10,14 =0200 PRINT "Kegle.┆
0x1c7e0…1c800 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ┆................................┆
0x1c800…1c820 (14, 0, 9) 2e 2e 2e 2e 54 61 73 74 20 35 22 3d 11 30 32 31 30 20 43 55 52 53 4f 52 20 31 30 2c 31 36 11 3d ┆....Tast 5"= 0210 CURSOR 10,16 =┆
0x1c820…1c840 30 32 32 30 20 50 52 49 4e 54 20 22 4b 65 67 6c 65 73 74 75 62 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ┆0220 PRINT "Keglestub...........┆
0x1c840…1c860 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 54 61 73 74 20 36 22 3d 11 30 ┆......................Tast 6"= 0┆
0x1c860…1c880 32 33 30 20 43 55 52 53 4f 52 20 31 30 2c 31 38 11 3d 30 32 34 30 20 50 52 49 4e 54 20 22 4b 75 ┆230 CURSOR 10,18 =0240 PRINT "Ku┆
0x1c880…1c8a0 67 6c 65 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ┆gle.............................┆
0x1c8a0…1c8c0 2e 2e 2e 2e 2e 2e 2e 2e 54 61 73 74 20 37 22 3d 11 30 32 35 30 20 43 55 52 53 4f 52 20 31 30 2c ┆........Tast 7"= 0250 CURSOR 10,┆
0x1c8c0…1c8e0 32 30 11 3d 30 32 36 30 20 50 52 49 4e 54 20 22 53 74 6f 70 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ┆20 =0260 PRINT "Stop............┆
0x1c8e0…1c900 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 54 61 73 74 20 38 ┆..........................Tast 8┆
0x1c900…1c920 (14, 0, 10) 22 3d 11 30 32 37 30 20 43 55 52 53 4f 52 20 31 30 2c 31 36 11 0b 30 32 38 30 20 50 52 49 4e 54 ┆"= 0270 CURSOR 10,16 0280 PRINT┆
0x1c920…1c940 20 0b 0b 30 32 39 30 20 50 52 49 4e 54 20 0b 11 30 33 30 30 20 43 55 52 53 4f 52 20 31 30 2c 32 ┆ 0290 PRINT 0300 CURSOR 10,2┆
0x1c940…1c960 32 11 35 30 33 31 30 20 50 52 49 4e 54 20 22 49 6e 64 74 61 73 74 20 64 65 74 20 7c 6e 73 6b 65 ┆2 50310 PRINT "Indtast det ønske┆
0x1c960…1c980 64 65 20 6e 75 6d 6d 65 72 20 66 6f 72 20 72 75 6d 66 61 6e 67 3a 22 3b 35 10 30 33 32 30 20 49 ┆de nummer for rumfang:";5 0320 I┆
0x1c980…1c9a0 4e 50 55 54 20 5c 4e 53 4b 45 10 47 30 33 33 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆NPUT ØNSKE G0330 // ------------┆
0x1c9a0…1c9c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x1c9c0…1c9e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 47 0b 30 33 34 30 20 50 52 49 4e 54 20 ┆-------------------G 0340 PRINT ┆
0x1c9e0…1ca00 0b 1f 30 33 35 30 20 49 46 20 5c 4e 53 4b 45 3d 31 20 54 48 45 4e 20 45 58 45 43 20 4b 41 53 53 ┆ 0350 IF ØNSKE=1 THEN EXEC KASS┆
0x1ca00…1ca20 (14, 0, 11) 45 1f 22 30 33 36 30 20 49 46 20 5c 4e 53 4b 45 3d 32 20 54 48 45 4e 20 45 58 45 43 20 50 59 52 ┆E "0360 IF ØNSKE=2 THEN EXEC PYR┆
0x1ca20…1ca40 41 4d 49 44 45 22 26 30 33 37 30 20 49 46 20 5c 4e 53 4b 45 3d 33 20 54 48 45 4e 20 45 58 45 43 ┆AMIDE"&0370 IF ØNSKE=3 THEN EXEC┆
0x1ca40…1ca60 20 50 59 52 41 4d 49 44 45 53 54 55 42 26 22 30 33 38 30 20 49 46 20 5c 4e 53 4b 45 3d 34 20 54 ┆ PYRAMIDESTUB&"0380 IF ØNSKE=4 T┆
0x1ca60…1ca80 48 45 4e 20 45 58 45 43 20 43 59 4c 49 4e 44 45 52 22 1f 30 33 39 30 20 49 46 20 5c 4e 53 4b 45 ┆HEN EXEC CYLINDER" 0390 IF ØNSKE┆
0x1ca80…1caa0 3d 35 20 54 48 45 4e 20 45 58 45 43 20 4b 45 47 4c 45 1f 23 30 34 30 30 20 49 46 20 5c 4e 53 4b ┆=5 THEN EXEC KEGLE #0400 IF ØNSK┆
0x1caa0…1cac0 45 3d 36 20 54 48 45 4e 20 45 58 45 43 20 4b 45 47 4c 45 53 54 55 42 23 1f 30 34 31 30 20 49 46 ┆E=6 THEN EXEC KEGLESTUB# 0410 IF┆
0x1cac0…1cae0 20 5c 4e 53 4b 45 3d 37 20 54 48 45 4e 20 45 58 45 43 20 4b 55 47 4c 45 1f 11 30 34 32 30 20 43 ┆ ØNSKE=7 THEN EXEC KUGLE 0420 C┆
0x1cae0…1cb00 55 52 53 4f 52 20 36 38 2c 32 32 11 15 30 34 33 30 20 50 52 49 4e 54 20 22 52 65 74 75 72 6e 21 ┆URSOR 68,22 0430 PRINT "Return!┆
0x1cb00…1cb20 (14, 0, 12) 22 3b 15 1e 30 34 34 30 20 49 46 20 5c 4e 53 4b 45 3d 38 20 54 48 45 4e 20 45 58 45 43 20 53 4c ┆"; 0440 IF ØNSKE=8 THEN EXEC SL┆
0x1cb20…1cb40 55 54 1e 0e 30 34 35 30 20 49 4e 50 55 54 20 53 56 24 0e 12 30 34 36 30 20 55 4e 54 49 4c 20 5c ┆UT 0450 INPUT SV$ 0460 UNTIL Ø┆
0x1cb40…1cb60 4e 53 4b 45 3d 38 12 4c 30 34 37 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆NSKE=8 L0470 // ----------------┆
0x1cb60…1cb80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x1cb80…1cba0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4c 0f 30 34 38 30 20 50 52 4f 43 20 ┆--------------------L 0480 PROC ┆
0x1cba0…1cbc0 4b 41 53 53 45 0f 0b 30 34 39 30 20 43 4c 45 41 52 20 0b 0f 30 35 30 30 20 43 55 52 53 4f 52 20 ┆KASSE 0490 CLEAR 0500 CURSOR ┆
0x1cbc0…1cbe0 31 2c 36 0f 33 30 35 31 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆1,6 30510 PRINT " ┆
0x1cbe0…1cc00 20 20 20 20 20 20 20 20 20 20 20 4b 20 41 20 53 20 53 20 45 20 2e 20 22 33 4d 30 35 32 30 20 50 ┆ K A S S E . "3M0520 P┆
0x1cc00…1cc20 (14, 0, 13) 52 49 4e 54 20 22 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆RINT "__________________________┆
0x1cc20…1cc40 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
0x1cc40…1cc60 5f 5f 5f 5f 5f 5f 22 4d 10 30 35 33 30 20 43 55 52 53 4f 52 20 31 2c 31 30 10 3f 30 35 34 30 20 ┆______"M 0530 CURSOR 1,10 ?0540 ┆
0x1cc60…1cc80 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6c 7b 6e 67 64 65 3a 20 20 20 20 20 20 20 20 20 20 ┆INPUT "Indtast længde: ┆
0x1cc80…1cca0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 4c 5b 4e 47 44 45 3f 0b 30 35 35 30 ┆ ":LÆNGDE? 0550┆
0x1cca0…1ccc0 20 50 52 49 4e 54 20 0b 3f 30 35 36 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 62 72 65 ┆ PRINT ?0560 INPUT "Indtast bre┆
0x1ccc0…1cce0 64 64 65 3a 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 ┆dde: ┆
0x1cce0…1cd00 22 3a 42 52 45 44 44 45 3f 0b 30 35 37 30 20 50 52 49 4e 54 20 0b 3e 30 35 38 30 20 49 4e 50 55 ┆":BREDDE? 0570 PRINT >0580 INPU┆
0x1cd00…1cd20 (14, 0, 14) 54 20 22 49 6e 64 74 61 73 74 20 68 7c 6a 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆T "Indtast højde: ┆
0x1cd20…1cd40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 48 5c 4a 44 45 3e 0b 30 35 39 30 20 50 52 49 4e ┆ ":HØJDE> 0590 PRIN┆
0x1cd40…1cd60 54 20 0b 0b 30 36 30 30 20 50 52 49 4e 54 20 0b 21 30 36 31 30 20 52 55 4d 46 41 4e 47 3a 3d 4c ┆T 0600 PRINT !0610 RUMFANG:=L┆
0x1cd60…1cd80 5b 4e 47 44 45 2a 42 52 45 44 44 45 2a 48 5c 4a 44 45 21 40 30 36 32 30 20 50 52 49 4e 54 20 22 ┆ÆNGDE*BREDDE*HØJDE!@0620 PRINT "┆
0x1cd80…1cda0 52 75 6d 66 61 6e 67 65 74 20 61 66 20 6b 61 73 73 65 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 ┆Rumfanget af kassen: ┆
0x1cda0…1cdc0 20 20 20 20 20 20 20 20 20 20 20 22 3b 52 55 4d 46 41 4e 47 40 12 30 36 33 30 20 45 4e 44 50 52 ┆ ";RUMFANG@ 0630 ENDPR┆
0x1cdc0…1cde0 4f 43 20 4b 41 53 53 45 12 4a 30 36 34 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆OC KASSE J0640 // --------------┆
0x1cde0…1ce00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x1ce00…1ce20 (14, 0, 15) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4a 12 30 36 35 30 20 50 52 4f 43 20 ┆--------------------J 0650 PROC ┆
0x1ce20…1ce40 50 59 52 41 4d 49 44 45 12 0b 30 36 36 30 20 43 4c 45 41 52 20 0b 0f 30 36 37 30 20 43 55 52 53 ┆PYRAMIDE 0660 CLEAR 0670 CURS┆
0x1ce40…1ce60 4f 52 20 31 2c 35 0f 39 30 36 38 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 ┆OR 1,5 90680 PRINT " ┆
0x1ce60…1ce80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 20 59 20 52 20 41 20 4d 20 49 20 44 20 45 20 2e ┆ P Y R A M I D E .┆
0x1ce80…1cea0 22 39 4d 30 36 39 30 20 50 52 49 4e 54 20 22 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆"9M0690 PRINT "_________________┆
0x1cea0…1cec0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
0x1cec0…1cee0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 22 4d 10 30 37 30 30 20 43 55 52 53 4f 52 20 31 2c ┆_______________"M 0700 CURSOR 1,┆
0x1cee0…1cf00 31 30 10 45 30 37 31 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6c 7b 6e 67 64 65 3a 20 ┆10 E0710 INPUT "Indtast længde: ┆
0x1cf00…1cf20 (14, 0, 16) ExtentHdr {name=»RUMFANG3«, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 001d,09 (0x01d900)}, prevext={DA 001c,05 (0x01c500)}, nextfile={DA 001d,09 (0x01d900)}, f99=41 1b 00 20 00 55 4d 46 41 4e ┆A UMFAN┆}
0x1cf20…1cf40 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 ┆ ┆
0x1cf40…1cf60 20 22 3a 4c 5b 4e 47 44 45 45 0b 30 37 32 30 20 50 52 49 4e 54 20 0b 45 30 37 33 30 20 49 4e 50 ┆ ":LÆNGDEE 0720 PRINT E0730 INP┆
0x1cf60…1cf80 55 54 20 22 49 6e 64 74 61 73 74 20 62 72 65 64 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆UT "Indtast bredde: ┆
0x1cf80…1cfa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 42 52 45 44 44 45 45 0b 30 ┆ ":BREDDEE 0┆
0x1cfa0…1cfc0 37 34 30 20 50 52 49 4e 54 20 0b 44 30 37 35 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 ┆740 PRINT D0750 INPUT "Indtast ┆
0x1cfc0…1cfe0 68 7c 6a 64 65 3a 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 ┆højde: ┆
0x1cfe0…1d000 20 20 20 20 20 20 20 20 20 22 3a 48 5c 4a 44 45 44 32 30 37 36 30 20 52 55 4d 46 41 4e 47 3a 3d ┆ ":HØJDED20760 RUMFANG:=┆
0x1d000…1d020 (14, 1, 1) 49 4e 54 28 31 2f 33 2a 48 5c 4a 44 45 2a 42 52 45 44 44 45 2a 4c 5b 4e 47 44 45 2a 31 30 30 29 ┆INT(1/3*HØJDE*BREDDE*LÆNGDE*100)┆
0x1d020…1d040 2f 31 30 30 32 0b 30 37 37 30 20 50 52 49 4e 54 20 0b 46 30 37 38 30 20 50 52 49 4e 54 20 22 52 ┆/1002 0770 PRINT F0780 PRINT "R┆
0x1d040…1d060 75 6d 66 61 6e 67 65 74 20 61 66 20 65 6e 20 70 79 72 61 6d 69 64 65 20 6d 65 64 20 64 65 20 7c ┆umfanget af en pyramide med de ø┆
0x1d060…1d080 6e 73 6b 65 64 65 20 6d 7d 6c 3a 20 20 20 20 20 22 3b 52 55 4d 46 41 4e 47 46 15 30 37 39 30 20 ┆nskede mål: ";RUMFANGF 0790 ┆
0x1d080…1d0a0 45 4e 44 50 52 4f 43 20 50 59 52 41 4d 49 44 45 15 4a 30 38 30 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d ┆ENDPROC PYRAMIDE J0800 // ------┆
0x1d0a0…1d0c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x1d0c0…1d0e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4a 16 30 38 ┆----------------------------J 08┆
0x1d0e0…1d100 31 30 20 50 52 4f 43 20 50 59 52 41 4d 49 44 45 53 54 55 42 16 0b 30 38 32 30 20 43 4c 45 41 52 ┆10 PROC PYRAMIDESTUB 0820 CLEAR┆
0x1d100…1d120 (14, 1, 2) 20 0b 0f 30 38 33 30 20 43 55 52 53 4f 52 20 31 2c 35 0f 41 30 38 34 30 20 50 52 49 4e 54 20 22 ┆ 0830 CURSOR 1,5 A0840 PRINT "┆
0x1d120…1d140 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 20 59 20 52 20 41 20 4d ┆ P Y R A M┆
0x1d140…1d160 20 49 20 44 20 45 20 53 20 54 20 55 20 42 20 2e 20 20 20 20 22 41 4d 30 38 35 30 20 50 52 49 4e ┆ I D E S T U B . "AM0850 PRIN┆
0x1d160…1d180 54 20 22 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆T "_____________________________┆
0x1d180…1d1a0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
0x1d1a0…1d1c0 5f 5f 5f 22 4d 10 30 38 36 30 20 43 55 52 53 4f 52 20 31 2c 31 30 10 3b 30 38 37 30 20 49 4e 50 ┆___"M 0860 CURSOR 1,10 ;0870 INP┆
0x1d1c0…1d1e0 55 54 20 22 49 6e 64 74 61 73 74 20 6c 7b 6e 67 64 65 6e 20 69 20 62 75 6e 64 66 6c 61 64 65 6e ┆UT "Indtast længden i bundfladen┆
0x1d1e0…1d200 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 4c 31 3b 0b 30 38 38 30 20 50 52 49 4e 54 20 ┆: ":L1; 0880 PRINT ┆
0x1d200…1d220 (14, 1, 3) 0b 3b 30 38 39 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 62 72 65 64 64 65 6e 20 69 20 ┆ ;0890 INPUT "Indtast bredden i ┆
0x1d220…1d240 62 75 6e 64 66 6c 61 64 65 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 42 31 3b 0b 30 ┆bundfladen: ":B1; 0┆
0x1d240…1d260 39 30 30 20 50 52 49 4e 54 20 0b 3b 30 39 31 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 ┆900 PRINT ;0910 INPUT "Indtast ┆
0x1d260…1d280 6c 7b 6e 67 64 65 6e 20 69 20 64 65 6e 20 7c 76 65 72 73 74 65 20 66 6c 61 64 65 3a 20 20 20 20 ┆længden i den øverste flade: ┆
0x1d280…1d2a0 20 20 20 22 3a 4c 32 3b 0b 30 39 32 30 20 50 52 49 4e 54 20 0b 3b 30 39 33 30 20 49 4e 50 55 54 ┆ ":L2; 0920 PRINT ;0930 INPUT┆
0x1d2a0…1d2c0 20 22 49 6e 64 74 61 73 74 20 62 72 65 64 64 65 6e 20 69 20 64 65 6e 20 7c 76 65 72 73 74 65 20 ┆ "Indtast bredden i den øverste ┆
0x1d2c0…1d2e0 66 6c 61 64 65 3a 20 20 20 20 20 20 20 22 3a 42 32 3b 0b 30 39 34 30 20 50 52 49 4e 54 20 0b 3e ┆flade: ":B2; 0940 PRINT >┆
0x1d2e0…1d300 30 39 35 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 70 79 72 61 6d 69 64 65 73 74 75 62 ┆0950 INPUT "Indtast pyramidestub┆
0x1d300…1d320 (14, 1, 4) 62 65 6e 73 20 68 7c 6a 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 48 5c 4a 44 45 3e 36 ┆bens højde: ":HØJDE>6┆
0x1d320…1d340 30 39 36 30 20 52 55 4d 46 41 4e 47 3a 3d 28 48 5c 4a 44 45 2f 33 29 2a 28 4c 31 2a 42 31 2b 4c ┆0960 RUMFANG:=(HØJDE/3)*(L1*B1+L┆
0x1d340…1d360 32 2a 42 32 2b 53 51 52 28 4c 31 2a 42 31 2a 4c 32 2a 42 32 29 29 36 0b 30 39 37 30 20 50 52 49 ┆2*B2+SQR(L1*B1*L2*B2))6 0970 PRI┆
0x1d360…1d380 4e 54 20 0b 0b 30 39 38 30 20 50 52 49 4e 54 20 0b 4d 30 39 39 30 20 50 52 49 4e 54 20 22 52 75 ┆NT 0980 PRINT M0990 PRINT "Ru┆
0x1d380…1d3a0 6d 66 61 6e 67 65 74 20 61 66 20 65 6e 20 70 79 72 61 6d 69 64 65 73 74 75 62 20 6d 65 64 20 64 ┆mfanget af en pyramidestub med d┆
0x1d3a0…1d3c0 65 20 7c 6e 73 6b 65 64 65 20 6d 7d 6c 3a 20 20 20 20 20 20 20 20 20 22 3b 52 55 4d 46 41 4e 4d ┆e ønskede mål: ";RUMFANM┆
0x1d3c0…1d3e0 19 31 30 30 30 20 45 4e 44 50 52 4f 43 20 50 59 52 41 4d 49 44 45 53 54 55 42 19 4a 31 30 31 30 ┆ 1000 ENDPROC PYRAMIDESTUB J1010┆
0x1d3e0…1d400 20 2f 2f 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 ┆ // ----------------------------┆
0x1d400…1d420 (14, 1, 5) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x1d420…1d440 2d 2d 2d 2d 2d 2d 4a 12 31 30 32 30 20 50 52 4f 43 20 43 59 4c 49 4e 44 45 52 12 0b 31 30 33 30 ┆------J 1020 PROC CYLINDER 1030┆
0x1d440…1d460 20 43 4c 45 41 52 20 0b 0f 31 30 34 30 20 43 55 52 53 4f 52 20 31 2c 35 0f 36 31 30 35 30 20 50 ┆ CLEAR 1040 CURSOR 1,5 61050 P┆
0x1d460…1d480 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 20 59 20 ┆RINT " C Y ┆
0x1d480…1d4a0 4c 20 49 20 4e 20 44 20 45 20 52 20 2e 20 20 22 36 4d 31 30 36 30 20 50 52 49 4e 54 20 22 5f 5f ┆L I N D E R . "6M1060 PRINT "__┆
0x1d4a0…1d4c0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
0x1d4c0…1d4e0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 22 4d ┆______________________________"M┆
0x1d4e0…1d500 10 31 30 37 30 20 43 55 52 53 4f 52 20 31 2c 31 30 10 3e 31 30 38 30 20 49 4e 50 55 54 20 22 49 ┆ 1070 CURSOR 1,10 >1080 INPUT "I┆
0x1d500…1d520 (14, 1, 6) 6e 64 74 61 73 74 20 63 79 6c 69 6e 64 65 72 65 6e 73 20 72 61 64 69 75 73 3a 20 20 20 20 20 20 ┆ndtast cylinderens radius: ┆
0x1d520…1d540 20 20 20 20 20 20 20 20 20 22 3a 52 41 44 49 55 53 3e 0b 31 30 39 30 20 50 52 49 4e 54 20 0b 3d ┆ ":RADIUS> 1090 PRINT =┆
0x1d540…1d560 31 31 30 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 63 79 6c 69 6e 64 65 72 65 6e 73 20 ┆1100 INPUT "Indtast cylinderens ┆
0x1d560…1d580 68 7c 6a 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 48 5c 4a 44 45 3d 32 31 ┆højde: ":HØJDE=21┆
0x1d580…1d5a0 31 31 30 20 52 55 4d 46 41 4e 47 3a 3d 49 4e 54 28 33 2e 31 34 31 35 39 2a 48 5c 4a 44 45 2a 52 ┆110 RUMFANG:=INT(3.14159*HØJDE*R┆
0x1d5a0…1d5c0 41 44 49 55 53 2a 2a 32 2a 31 30 30 29 2f 31 30 30 32 0b 31 31 32 30 20 50 52 49 4e 54 20 0b 0b ┆ADIUS**2*100)/1002 1120 PRINT ┆
0x1d5c0…1d5e0 31 31 33 30 20 50 52 49 4e 54 20 0b 43 31 31 34 30 20 50 52 49 4e 54 20 22 43 79 6c 69 6e 64 65 ┆1130 PRINT C1140 PRINT "Cylinde┆
0x1d5e0…1d600 72 65 6e 73 20 72 75 6d 66 61 6e 67 20 6d 65 64 20 64 65 20 7c 6e 73 6b 65 64 65 20 6d 7d 6c 3a ┆rens rumfang med de ønskede mål:┆
0x1d600…1d620 (14, 1, 7) 20 20 20 20 20 20 20 22 3b 52 55 4d 46 41 4e 47 43 15 31 31 35 30 20 45 4e 44 50 52 4f 43 20 43 ┆ ";RUMFANGC 1150 ENDPROC C┆
0x1d620…1d640 59 4c 49 4e 44 45 52 15 4a 31 31 36 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆YLINDER J1160 // ---------------┆
0x1d640…1d660 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x1d660…1d680 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4a 0f 31 31 37 30 20 50 52 4f 43 20 4b ┆-------------------J 1170 PROC K┆
0x1d680…1d6a0 45 47 4c 45 0f 0b 31 31 38 30 20 43 4c 45 41 52 20 0b 0f 31 31 39 30 20 43 55 52 53 4f 52 20 31 ┆EGLE 1180 CLEAR 1190 CURSOR 1┆
0x1d6a0…1d6c0 2c 35 0f 35 31 32 30 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆,5 51200 PRINT " ┆
0x1d6c0…1d6e0 20 20 20 20 20 20 20 20 20 20 20 20 4b 20 45 20 47 20 4c 20 45 20 2e 20 22 35 4d 31 32 31 30 20 ┆ K E G L E . "5M1210 ┆
0x1d6e0…1d700 50 52 49 4e 54 20 22 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆PRINT "_________________________┆
0x1d700…1d720 (14, 1, 8) 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
0x1d720…1d740 5f 5f 5f 5f 5f 5f 5f 22 4d 10 31 32 32 30 20 43 55 52 53 4f 52 20 31 2c 31 30 10 3e 31 32 33 30 ┆_______"M 1220 CURSOR 1,10 >1230┆
0x1d740…1d760 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6b 65 67 6c 65 6e 73 20 72 61 64 69 75 73 3a 20 ┆ INPUT "Indtast keglens radius: ┆
0x1d760…1d780 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 52 41 44 49 55 53 3e 0b 31 32 34 30 ┆ ":RADIUS> 1240┆
0x1d780…1d7a0 20 50 52 49 4e 54 20 0b 3d 31 32 35 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6b 65 67 ┆ PRINT =1250 INPUT "Indtast keg┆
0x1d7a0…1d7c0 6c 65 6e 73 20 68 7c 6a 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 ┆lens højde: "┆
0x1d7c0…1d7e0 3a 48 5c 4a 44 45 3d 21 31 32 36 30 20 52 55 4d 46 41 4e 47 3a 3d 31 2f 33 2a 48 5c 4a 44 45 2a ┆:HØJDE=!1260 RUMFANG:=1/3*HØJDE*┆
0x1d7e0…1d800 52 41 44 49 55 53 2a 2a 32 21 0b 31 32 37 30 20 50 52 49 4e 54 20 0b 0b 31 32 38 30 20 50 52 49 ┆RADIUS**2! 1270 PRINT 1280 PRI┆
0x1d800…1d820 (14, 1, 9) 4e 54 20 0b 3f 31 32 39 30 20 50 52 49 4e 54 20 22 4b 65 67 6c 65 6e 73 20 72 75 6d 66 61 6e 67 ┆NT ?1290 PRINT "Keglens rumfang┆
0x1d820…1d840 20 6d 65 64 20 64 65 20 7c 6e 73 6b 65 64 65 20 6d 7d 6c 3a 20 20 20 20 20 20 20 22 3b 52 55 4d ┆ med de ønskede mål: ";RUM┆
0x1d840…1d860 46 41 4e 47 3f 12 31 33 30 30 20 45 4e 44 50 52 4f 43 20 4b 45 47 4c 45 12 4a 31 33 31 30 20 2f ┆FANG? 1300 ENDPROC KEGLE J1310 /┆
0x1d860…1d880 2f 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 ┆/ ------------------------------┆
0x1d880…1d8a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x1d8a0…1d8c0 2d 2d 2d 2d 4a 13 31 33 32 30 20 50 52 4f 43 20 4b 45 47 4c 45 53 54 55 42 13 0b 31 33 33 30 20 ┆----J 1320 PROC KEGLESTUB 1330 ┆
0x1d8c0…1d8e0 43 4c 45 41 52 20 0b 0f 31 33 34 30 20 43 55 52 53 4f 52 20 31 2c 35 0f 3c 31 33 35 30 20 50 52 ┆CLEAR 1340 CURSOR 1,5 <1350 PR┆
0x1d8e0…1d900 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4b 20 45 20 ┆INT " K E ┆
0x1d900…1d920 (14, 1, 10) ExtentHdr {name=»RUMFANG3«, typ=»K«, seg=»C«, next=0x02, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 001c,0f (0x01cf00)}, nextfile={DA 001e,03 (0x01e300)}, f99=41 1b 00 20 00 55 4d 46 41 4e ┆A UMFAN┆}
0x1d920…1d940 47 20 4c 20 45 20 53 20 54 20 55 20 42 20 2e 20 20 20 20 20 22 3c 4d 31 33 36 30 20 50 52 49 4e ┆G L E S T U B . "<M1360 PRIN┆
0x1d940…1d960 54 20 22 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆T "_____________________________┆
0x1d960…1d980 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
0x1d980…1d9a0 5f 5f 5f 22 4d 0b 31 33 37 30 20 50 52 49 4e 54 20 0b 10 31 33 38 30 20 43 55 52 53 4f 52 20 31 ┆___"M 1370 PRINT 1380 CURSOR 1┆
0x1d9a0…1d9c0 2c 31 30 10 3c 31 33 39 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6b 65 67 6c 65 73 74 ┆,10 <1390 INPUT "Indtast keglest┆
0x1d9c0…1d9e0 75 62 62 65 6e 73 20 6e 65 64 65 72 73 74 65 20 72 61 64 69 75 73 3a 20 20 20 20 20 20 22 3a 52 ┆ubbens nederste radius: ":R┆
0x1d9e0…1da00 31 3c 0b 31 34 30 30 20 50 52 49 4e 54 20 0b 3c 31 34 31 30 20 49 4e 50 55 54 20 22 49 6e 64 74 ┆1< 1400 PRINT <1410 INPUT "Indt┆
0x1da00…1da20 (14, 1, 11) 61 73 74 20 6b 65 67 6c 65 73 74 75 62 62 65 6e 73 20 7c 76 65 72 73 74 65 20 72 61 64 69 75 73 ┆ast keglestubbens øverste radius┆
0x1da20…1da40 3a 20 20 20 20 20 20 20 22 3a 52 32 3c 0b 31 34 32 30 20 50 52 49 4e 54 20 0b 3f 31 34 33 30 20 ┆: ":R2< 1420 PRINT ?1430 ┆
0x1da40…1da60 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6b 65 67 6c 65 73 74 75 62 62 65 6e 73 20 68 7c 6a ┆INPUT "Indtast keglestubbens høj┆
0x1da60…1da80 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 48 5c 4a 44 45 3f 0b 31 34 34 30 ┆de: ":HØJDE? 1440┆
0x1da80…1daa0 20 50 52 49 4e 54 20 0b 33 31 34 35 30 20 52 55 4d 46 41 4e 47 3a 3d 31 2f 33 2a 33 2e 31 34 31 ┆ PRINT 31450 RUMFANG:=1/3*3.141┆
0x1daa0…1dac0 35 39 2a 48 5c 4a 44 45 2a 28 52 31 2a 2a 32 2b 52 32 2a 2a 32 2b 52 31 2a 52 32 29 33 0b 31 34 ┆59*HØJDE*(R1**2+R2**2+R1*R2)3 14┆
0x1dac0…1dae0 36 30 20 50 52 49 4e 54 20 0b 48 31 34 37 30 20 50 52 49 4e 54 20 22 52 75 6d 66 61 6e 67 65 74 ┆60 PRINT H1470 PRINT "Rumfanget┆
0x1dae0…1db00 20 61 66 20 65 6e 20 6b 65 67 6c 65 73 74 75 62 20 6d 65 64 20 64 65 20 7c 6e 73 6b 65 64 65 20 ┆ af en keglestub med de ønskede ┆
0x1db00…1db20 (14, 1, 12) 6d 7d 6c 3a 20 20 20 20 20 20 22 3b 52 55 4d 46 41 4e 47 48 16 31 34 38 30 20 45 4e 44 50 52 4f ┆mål: ";RUMFANGH 1480 ENDPRO┆
0x1db20…1db40 43 20 4b 45 47 4c 45 53 54 55 42 16 49 31 34 39 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆C KEGLESTUB I1490 // -----------┆
0x1db40…1db60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x1db60…1db80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 0f 31 35 30 30 20 50 52 4f ┆----------------------I 1500 PRO┆
0x1db80…1dba0 43 20 4b 55 47 4c 45 0f 0b 31 35 31 30 20 43 4c 45 41 52 20 0b 0f 31 35 32 30 20 43 55 52 53 4f ┆C KUGLE 1510 CLEAR 1520 CURSO┆
0x1dba0…1dbc0 52 20 31 2c 35 0f 37 31 35 33 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆R 1,5 71530 PRINT " ┆
0x1dbc0…1dbe0 20 20 20 20 20 20 20 20 20 20 20 20 20 4b 20 55 20 47 20 4c 20 45 20 2e 20 20 20 20 20 22 37 4d ┆ K U G L E . "7M┆
0x1dbe0…1dc00 31 35 34 30 20 50 52 49 4e 54 20 22 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆1540 PRINT "____________________┆
0x1dc00…1dc20 (14, 1, 13) 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
0x1dc20…1dc40 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 22 4d 10 31 35 35 30 20 43 55 52 53 4f 52 20 31 2c 31 30 10 ┆____________"M 1550 CURSOR 1,10 ┆
0x1dc40…1dc60 3f 31 35 36 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6b 75 67 6c 65 6e 73 20 72 61 64 ┆?1560 INPUT "Indtast kuglens rad┆
0x1dc60…1dc80 69 75 73 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 52 41 44 49 55 53 ┆ius: ":RADIUS┆
0x1dc80…1dca0 3f 23 31 35 37 30 20 52 55 4d 46 41 4e 47 3a 3d 34 2f 33 2a 33 2e 31 34 31 35 39 2a 52 41 44 49 ┆?#1570 RUMFANG:=4/3*3.14159*RADI┆
0x1dca0…1dcc0 55 53 2a 2a 33 23 10 31 35 38 30 20 43 55 52 53 4f 52 20 31 2c 31 36 10 35 31 35 39 30 20 50 52 ┆US**3# 1580 CURSOR 1,16 51590 PR┆
0x1dcc0…1dce0 49 4e 54 20 22 52 75 6d 66 61 6e 67 65 74 20 61 66 20 65 6e 20 6b 75 67 6c 65 2c 20 68 76 6f 72 ┆INT "Rumfanget af en kugle, hvor┆
0x1dce0…1dd00 20 72 61 64 69 75 73 20 65 72 3a 20 22 3b 35 2c 31 35 39 35 20 50 52 49 4e 54 20 52 41 44 49 55 ┆ radius er: ";5,1595 PRINT RADIU┆
0x1dd00…1dd20 (14, 1, 14) 53 3b 22 20 3d 20 22 3b 49 4e 54 28 52 55 4d 46 41 4e 47 2a 31 30 30 29 2f 31 30 30 2c 12 31 36 ┆S;" = ";INT(RUMFANG*100)/100, 16┆
0x1dd20…1dd40 30 30 20 45 4e 44 50 52 4f 43 20 4b 55 47 4c 45 12 4a 31 36 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d ┆00 ENDPROC KUGLE J1610 // ------┆
0x1dd40…1dd60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x1dd60…1dd80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4a 0e 31 36 ┆----------------------------J 16┆
0x1dd80…1dda0 32 30 20 50 52 4f 43 20 53 4c 55 54 0e 0b 31 36 33 30 20 43 4c 45 41 52 20 0b 11 31 36 34 30 20 ┆20 PROC SLUT 1630 CLEAR 1640 ┆
0x1dda0…1ddc0 43 55 52 53 4f 52 20 31 35 2c 31 32 11 38 31 36 35 30 20 50 52 49 4e 54 20 22 44 65 74 20 76 61 ┆CURSOR 15,12 81650 PRINT "Det va┆
0x1ddc0…1dde0 72 20 73 7d 20 65 6e 20 64 65 6c 20 6e 79 65 20 72 75 6d 66 61 6e 67 2e 20 54 61 6b 20 66 6f 72 ┆r så en del nye rumfang. Tak for┆
0x1dde0…1de00 20 6e 75 2e 20 22 38 10 31 36 36 30 20 43 55 52 53 4f 52 20 31 2c 32 31 10 09 31 36 37 30 20 45 ┆ nu. "8 1660 CURSOR 1,21 1670 E┆
0x1de00…1de20 (14, 1, 15) 4e 44 20 09 11 31 36 38 30 20 45 4e 44 50 52 4f 43 20 53 4c 55 54 11 00 00 63 63 63 63 63 63 63 ┆ND 1680 ENDPROC SLUT ccccccc┆
0x1de20…1de40 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x6…]
0x1df00…1e000 (14, 1, 16) 0x63[0x100]
[…0x3…]
0x1e300…1e320 (15, 0, 4) ExtentHdr {name=»KARTOTEK«, typ=»K«, seg=»A«, next=0x01, basis=0x000a, nextext={DA 001e,0d (0x01ed00)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 001e,0d (0x01ed00)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x1e320…1e340 4d 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆M0010 // -----------------------┆
0x1e340…1e360 2d 2d 20 6b 61 72 74 6f 74 65 6b 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆-- kartotek --------------------┆
0x1e360…1e380 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4d 40 30 30 32 30 20 2f 2f 20 50 72 6f 67 72 61 6d 6d ┆--------------M@0020 // Programm┆
0x1e380…1e3a0 65 74 20 69 6e 64 6c 7b 73 65 72 20 76 2f 69 6e 64 74 61 73 74 6e 69 6e 67 20 65 6c 65 76 6c 69 ┆et indlæser v/indtastning elevli┆
0x1e3a0…1e3c0 73 74 65 20 6f 67 20 75 64 73 6b 72 69 76 65 72 40 33 30 30 33 30 20 2f 2f 20 6e 75 6d 6d 65 72 ┆ste og udskriver@30030 // nummer┆
0x1e3c0…1e3e0 2c 6b 6c 61 73 73 65 2c 6e 61 76 6e 2c 61 64 72 65 73 73 65 2c 70 6f 73 74 6e 75 6d 6d 65 72 20 ┆,klasse,navn,adresse,postnummer ┆
0x1e3e0…1e400 26 20 62 79 2e 33 33 30 30 34 30 20 2f 2f 20 41 50 50 45 4e 44 20 66 69 6e 64 65 73 20 69 6b 6b ┆& by.330040 // APPEND findes ikk┆
0x1e400…1e420 (15, 0, 5) 65 20 66 6f 72 20 64 65 6e 6e 65 20 43 6f 6d 61 6c 2d 76 65 72 73 69 6f 6e 2e 33 21 30 30 35 30 ┆e for denne Comal-version.3!0050┆
0x1e420…1e440 20 2f 2f 20 42 65 6e 79 74 20 65 76 74 2e 20 66 69 6c 65 6e 20 27 56 45 53 54 45 52 27 21 08 30 ┆ // Benyt evt. filen 'VESTER'! 0┆
0x1e440…1e460 30 36 30 20 2f 2f 20 08 1b 30 30 36 35 20 49 4e 54 45 47 45 52 20 4e 55 4d 4d 45 52 2c 49 2c 5c ┆060 // 0065 INTEGER NUMMER,I,Ø┆
0x1e460…1e480 4e 53 4b 45 1b 45 30 30 37 30 20 44 49 4d 20 4e 41 56 4e 24 20 4f 46 20 32 32 2c 41 44 52 24 20 ┆NSKE E0070 DIM NAVN$ OF 22,ADR$ ┆
0x1e480…1e4a0 4f 46 20 32 32 2c 50 4f 53 54 42 59 24 20 4f 46 20 32 30 2c 46 49 4c 24 20 4f 46 20 31 36 2c 4b ┆OF 22,POSTBY$ OF 20,FIL$ OF 16,K┆
0x1e4a0…1e4c0 4c 41 53 53 45 24 20 4f 46 20 35 45 10 30 30 37 35 20 44 49 4d 20 53 24 20 4f 46 20 31 10 08 30 ┆LASSE$ OF 5E 0075 DIM S$ OF 1 0┆
0x1e4c0…1e4e0 30 38 30 20 2f 2f 20 08 0c 30 30 39 30 20 52 45 50 45 41 54 20 0c 0e 30 31 30 30 20 45 58 45 43 ┆080 // 0090 REPEAT 0100 EXEC┆
0x1e4e0…1e500 20 56 41 4c 47 0e 13 30 31 31 30 20 55 4e 54 49 4c 20 5c 4e 53 4b 45 3d 35 32 13 08 30 31 32 30 ┆ VALG 0110 UNTIL ØNSKE=52 0120┆
0x1e500…1e520 (15, 0, 6) 20 2f 2f 20 08 0e 30 31 33 30 20 50 52 4f 43 20 56 41 4c 47 0e 0b 30 31 34 30 20 43 4c 45 41 52 ┆ // 0130 PROC VALG 0140 CLEAR┆
0x1e520…1e540 20 0b 0f 30 31 35 30 20 43 55 52 53 4f 52 20 31 2c 33 0f 2b 30 31 36 30 20 50 52 49 4e 54 20 22 ┆ 0150 CURSOR 1,3 +0160 PRINT "┆
0x1e540…1e560 20 20 20 20 20 45 20 4c 20 45 20 56 20 4b 20 41 20 52 20 54 20 4f 20 54 20 45 20 4b 20 2e 22 2b ┆ E L E V K A R T O T E K ."+┆
0x1e560…1e580 3a 30 31 37 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆:0170 PRINT " --------------┆
0x1e580…1e5a0 2d 2d 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 3a 3a 30 31 38 ┆--------------------------"::018┆
0x1e5a0…1e5c0 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 44 75 20 68 61 72 20 66 7c 6c 67 65 6e 64 65 20 6d 75 ┆0 PRINT " Du har følgende mu┆
0x1e5c0…1e5e0 6c 69 67 68 65 64 65 72 20 66 6f 72 20 61 74 20 76 7b 6c 67 65 3a 22 3a 3a 30 31 39 30 20 50 52 ┆ligheder for at vælge:"::0190 PR┆
0x1e5e0…1e600 49 4e 54 20 22 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 ┆INT " ----------------------┆
0x1e600…1e620 (15, 0, 7) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 3a 3a 30 32 31 30 20 50 52 49 4e 54 20 ┆------------------"::0210 PRINT ┆
0x1e620…1e640 22 20 20 20 20 20 4f 70 72 65 74 74 65 6c 73 65 20 61 66 20 6b 61 72 74 6f 74 65 6b 2e 2e 2e 2e ┆" Oprettelse af kartotek....┆
0x1e640…1e660 2e 2e 2e 2e 2e 2e 2e 2e 54 61 73 74 20 31 22 3a 0b 30 32 32 30 20 50 52 49 4e 54 20 0b 3a 30 32 ┆........Tast 1": 0220 PRINT :02┆
0x1e660…1e680 33 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 52 65 74 74 65 6c 73 65 20 69 20 6b 61 72 74 6f 74 ┆30 PRINT " Rettelse i kartot┆
0x1e680…1e6a0 65 6b 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 54 61 73 74 20 32 22 3a 0b 30 32 34 30 20 50 ┆ek...............Tast 2": 0240 P┆
0x1e6a0…1e6c0 52 49 4e 54 20 0b 3a 30 32 35 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 55 64 6c 7b 73 6e 69 6e ┆RINT :0250 PRINT " Udlæsnin┆
0x1e6c0…1e6e0 67 65 6e 20 61 66 20 6b 61 72 74 6f 74 65 6b 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 54 61 73 74 20 33 ┆gen af kartotek...........Tast 3┆
0x1e6e0…1e700 22 3a 0b 30 32 36 30 20 50 52 49 4e 54 20 0b 3a 30 32 37 30 20 50 52 49 4e 54 20 22 20 20 20 20 ┆": 0260 PRINT :0270 PRINT " ┆
0x1e700…1e720 (15, 0, 8) 20 5c 6e 73 6b 65 72 20 64 75 20 61 74 20 73 6c 75 74 74 65 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ┆ Ønsker du at slutte............┆
0x1e720…1e740 2e 2e 2e 54 61 73 74 20 34 22 3a 10 30 32 38 30 20 43 55 52 53 4f 52 20 35 2c 32 30 10 1f 30 32 ┆...Tast 4": 0280 CURSOR 5,20 02┆
0x1e740…1e760 39 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 7c 6e 73 6b 65 3a 20 22 3a 53 24 1f 13 30 ┆90 INPUT "Indtast ønske: ":S$ 0┆
0x1e760…1e780 33 30 30 20 5c 4e 53 4b 45 3a 3d 4f 52 44 28 53 24 29 13 13 30 33 34 30 20 43 41 53 45 20 5c 4e ┆300 ØNSKE:=ORD(S$) 0340 CASE ØN┆
0x1e780…1e7a0 53 4b 45 20 4f 46 20 13 0c 30 33 35 30 20 57 48 45 4e 20 34 39 0c 0f 30 33 36 30 20 45 58 45 43 ┆SKE OF 0350 WHEN 49 0360 EXEC┆
0x1e7a0…1e7c0 20 4f 50 52 45 54 0f 0c 30 33 37 30 20 57 48 45 4e 20 35 30 0c 12 30 33 38 30 20 45 58 45 43 20 ┆ OPRET 0370 WHEN 50 0380 EXEC ┆
0x1e7c0…1e7e0 52 45 54 54 45 4c 53 45 12 0c 30 33 39 30 20 57 48 45 4e 20 35 31 0c 12 30 34 30 30 20 45 58 45 ┆RETTELSE 0390 WHEN 51 0400 EXE┆
0x1e7e0…1e800 43 20 55 44 53 4b 52 49 46 54 12 0f 30 34 31 30 20 4f 54 48 45 52 57 49 53 45 20 0f 10 30 34 32 ┆C UDSKRIFT 0410 OTHERWISE 042┆
0x1e800…1e820 (15, 0, 9) 30 20 43 55 52 53 4f 52 20 35 2c 32 32 10 24 30 34 33 30 20 50 52 49 4e 54 20 22 53 7d 20 73 6c ┆0 CURSOR 5,22 $0430 PRINT "Så sl┆
0x1e820…1e840 75 74 74 65 72 20 76 69 20 66 6f 72 20 69 64 61 67 2e 22 24 0d 30 34 34 30 20 45 4e 44 43 41 53 ┆utter vi for idag."$ 0440 ENDCAS┆
0x1e840…1e860 45 20 0d 11 30 34 35 30 20 45 4e 44 50 52 4f 43 20 56 41 4c 47 11 08 30 34 36 30 20 2f 2f 20 08 ┆E 0450 ENDPROC VALG 0460 // ┆
0x1e860…1e880 0f 30 34 37 30 20 50 52 4f 43 20 4f 50 52 45 54 0f 0b 30 34 38 30 20 43 4c 45 41 52 20 0b 0f 30 ┆ 0470 PROC OPRET 0480 CLEAR 0┆
0x1e880…1e8a0 34 39 30 20 43 55 52 53 4f 52 20 31 2c 36 0f 30 30 35 30 30 20 49 4e 50 55 54 20 22 4e 61 76 6e ┆490 CURSOR 1,6 00500 INPUT "Navn┆
0x1e8a0…1e8c0 20 70 7d 20 66 69 6c 65 6e 20 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 46 49 4c 24 ┆ på filen : ":FIL$┆
0x1e8c0…1e8e0 30 24 30 35 31 30 20 46 49 4c 24 3a 3d 22 53 59 53 54 49 4d 45 3a 22 2b 46 49 4c 24 3b 4e 55 4d ┆0$0510 FIL$:="SYSTIME:"+FIL$;NUM┆
0x1e8e0…1e900 4d 45 52 3a 3d 30 24 16 30 35 31 35 20 43 52 45 41 54 45 20 46 49 4c 24 2c 35 30 2c 39 35 16 10 ┆MER:=0$ 0515 CREATE FIL$,50,95 ┆
0x1e900…1e920 (15, 0, 10) 30 35 32 30 20 4f 50 45 4e 20 46 49 4c 24 2c 57 10 0c 30 35 33 30 20 52 45 50 45 41 54 20 0c 0b ┆0520 OPEN FIL$,W 0530 REPEAT ┆
0x1e920…1e940 30 35 34 30 20 43 4c 45 41 52 20 0b 0f 30 35 35 30 20 43 55 52 53 4f 52 20 31 2c 34 0f 27 30 35 ┆0540 CLEAR 0550 CURSOR 1,4 '05┆
0x1e940…1e960 36 30 20 50 52 49 4e 54 20 22 4f 70 72 65 74 74 65 6c 73 65 20 61 66 20 6e 79 74 20 6b 61 72 74 ┆60 PRINT "Oprettelse af nyt kart┆
0x1e960…1e980 6f 74 65 6b 22 27 27 30 35 37 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆otek"''0570 PRINT "-------------┆
0x1e980…1e9a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 27 15 30 35 38 30 20 4e 55 4d 4d 45 52 3a 3d 4e 55 4d ┆-------------"' 0580 NUMMER:=NUM┆
0x1e9a0…1e9c0 4d 45 52 2b 31 15 0f 30 35 39 30 20 43 55 52 53 4f 52 20 31 2c 38 0f 24 30 36 30 30 20 50 52 49 ┆MER+1 0590 CURSOR 1,8 $0600 PRI┆
0x1e9c0…1e9e0 4e 54 20 22 4e 75 6d 6d 65 72 3a 20 20 20 20 20 20 20 20 20 22 3b 4e 55 4d 4d 45 52 24 0b 30 36 ┆NT "Nummer: ";NUMMER$ 06┆
0x1e9e0…1ea00 31 30 20 50 52 49 4e 54 20 0b 36 30 36 32 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6b ┆10 PRINT 60620 INPUT "Indtast k┆
0x1ea00…1ea20 (15, 0, 11) 6c 61 73 73 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 4b 4c 41 53 53 45 ┆lasse: ":KLASSE┆
0x1ea20…1ea40 24 36 34 30 36 33 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6e 61 76 6e 3a 20 20 20 20 ┆$640630 INPUT "Indtast navn: ┆
0x1ea40…1ea60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 4e 41 56 4e 24 34 33 30 36 34 30 20 49 4e ┆ ":NAVN$430640 IN┆
0x1ea60…1ea80 50 55 54 20 22 49 6e 64 74 61 73 74 20 61 64 72 65 73 73 65 3a 20 20 20 20 20 20 20 20 20 20 20 ┆PUT "Indtast adresse: ┆
0x1ea80…1eaa0 20 20 20 20 20 20 22 3a 41 44 52 24 33 36 30 36 35 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 ┆ ":ADR$360650 INPUT "Indtas┆
0x1eaa0…1eac0 74 20 70 6f 73 74 6e 75 6d 6d 65 72 20 26 20 62 79 3a 20 20 20 20 20 20 20 20 20 22 3a 50 4f 53 ┆t postnummer & by: ":POS┆
0x1eac0…1eae0 54 42 59 24 36 36 30 36 36 30 20 50 55 54 20 46 49 4c 24 2c 4e 55 4d 4d 45 52 3a 4e 55 4d 4d 45 ┆TBY$660660 PUT FIL$,NUMMER:NUMME┆
0x1eae0…1eb00 52 2c 4b 4c 41 53 53 45 24 2c 4e 41 56 4e 24 2c 41 44 52 24 2c 50 4f 53 54 42 59 24 36 10 30 36 ┆R,KLASSE$,NAVN$,ADR$,POSTBY$6 06┆
0x1eb00…1eb20 (15, 0, 12) 38 30 20 43 55 52 53 4f 52 20 31 2c 32 32 10 2d 30 36 39 30 20 49 4e 50 55 54 20 22 5c 6e 73 6b ┆80 CURSOR 1,22 -0690 INPUT "Ønsk┆
0x1eb20…1eb40 65 72 20 64 75 20 61 74 20 66 6f 72 74 73 7b 74 74 65 3f 20 20 6a 2f 6e 20 22 3a 53 24 2d 1b 30 ┆er du at fortsætte? j/n ":S$- 0┆
0x1eb40…1eb60 37 32 30 20 55 4e 54 49 4c 20 53 24 3d 22 4e 22 20 4f 52 20 53 24 3d 22 6e 22 1b 0f 30 37 33 30 ┆720 UNTIL S$="N" OR S$="n" 0730┆
0x1eb60…1eb80 20 43 4c 4f 53 45 20 46 49 4c 24 0f 12 30 37 34 30 20 45 4e 44 50 52 4f 43 20 4f 50 52 45 54 12 ┆ CLOSE FIL$ 0740 ENDPROC OPRET ┆
0x1eb80…1eba0 08 30 37 35 30 20 2f 2f 20 08 08 30 37 36 30 20 2f 2f 20 08 12 30 37 37 30 20 50 52 4f 43 20 55 ┆ 0750 // 0760 // 0770 PROC U┆
0x1eba0…1ebc0 44 53 4b 52 49 46 54 12 0b 30 37 38 30 20 43 4c 45 41 52 20 0b 30 30 37 39 30 20 49 4e 50 55 54 ┆DSKRIFT 0780 CLEAR 00790 INPUT┆
0x1ebc0…1ebe0 20 22 46 69 6c 65 6e 73 20 6e 61 76 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ "Filens navn: ┆
0x1ebe0…1ec00 22 3a 46 49 4c 24 30 1a 30 37 39 35 20 46 49 4c 24 3a 3d 22 53 59 53 54 49 4d 45 3a 22 2b 46 49 ┆":FIL$0 0795 FIL$:="SYSTIME:"+FI┆
0x1ec00…1ec20 (15, 0, 13) 4c 24 1a 0b 30 38 30 30 20 50 52 49 4e 54 20 0b 47 30 38 31 30 20 49 4e 50 55 54 20 22 48 76 6f ┆L$ 0800 PRINT G0810 INPUT "Hvo┆
0x1ec20…1ec40 72 20 6d 61 6e 67 65 20 65 6c 65 76 65 72 20 7c 6e 73 6b 65 73 20 75 64 73 6b 72 65 76 65 74 3f ┆r mange elever ønskes udskrevet?┆
0x1ec40…1ec60 20 20 28 53 6b 72 69 76 20 61 6e 74 61 6c 29 3a 20 22 3a 41 4e 54 41 4c 47 10 30 38 32 30 20 4f ┆ (Skriv antal): ":ANTALG 0820 O┆
0x1ec60…1ec80 50 45 4e 20 46 49 4c 24 2c 57 10 4d 30 38 33 30 20 50 52 49 4e 54 20 22 4e 72 3a 20 20 4b 6c 61 ┆PEN FIL$,W M0830 PRINT "Nr: Kla┆
0x1ec80…1eca0 73 73 65 3a 20 20 20 20 4e 61 76 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 64 ┆sse: Navn: Ad┆
0x1eca0…1ecc0 72 65 73 73 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 6f 73 74 4d 4d 30 38 34 30 20 ┆resse: PostMM0840 ┆
0x1ecc0…1ece0 50 52 49 4e 54 20 22 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆PRINT "_________________________┆
0x1ece0…1ed00 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
0x1ed00…1ed20 (15, 0, 14) ExtentHdr {name=»KARTOTEK«, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 001e,03 (0x01e300)}, nextfile={DA 001f,07 (0x01f700)}, f99=00 00 00 20 00 00 00 00 00 00 ┆ ┆}
0x1ed20…1ed40 5f 5f 5f 5f 5f 5f 22 3b 4d 1c 30 38 34 31 20 50 52 49 4e 54 20 22 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆______";M 0841 PRINT "__________┆
0x1ed40…1ed60 5f 5f 5f 5f 5f 22 1c 0b 30 38 35 30 20 50 52 49 4e 54 20 0b 1a 30 38 36 30 20 46 4f 52 20 4e 3a ┆_____" 0850 PRINT 0860 FOR N:┆
0x1ed60…1ed80 3d 31 20 54 4f 20 41 4e 54 41 4c 20 44 4f 20 1a 31 30 38 37 30 20 47 45 54 20 46 49 4c 24 2c 4e ┆=1 TO ANTAL DO 10870 GET FIL$,N┆
0x1ed80…1eda0 3a 4e 55 4d 4d 45 52 2c 4b 4c 41 53 53 45 24 2c 4e 41 56 4e 24 2c 41 44 52 24 2c 50 4f 53 54 42 ┆:NUMMER,KLASSE$,NAVN$,ADR$,POSTB┆
0x1eda0…1edc0 59 24 31 4a 30 38 38 30 20 50 52 49 4e 54 20 4e 55 4d 4d 45 52 3b 22 20 20 20 22 3b 4b 4c 41 53 ┆Y$1J0880 PRINT NUMMER;" ";KLAS┆
0x1edc0…1ede0 53 45 24 3b 54 41 42 28 31 37 29 3b 4e 41 56 4e 24 3b 54 41 42 28 33 39 29 3b 41 44 52 24 3b 54 ┆SE$;TAB(17);NAVN$;TAB(39);ADR$;T┆
0x1ede0…1ee00 41 42 28 36 32 29 3b 50 4f 53 54 42 59 24 4a 0b 30 38 39 30 20 4e 45 58 54 20 4e 0b 0f 30 39 30 ┆AB(62);POSTBY$J 0890 NEXT N 090┆
0x1ee00…1ee20 (15, 0, 15) 30 20 43 4c 4f 53 45 20 46 49 4c 24 0f 11 30 39 32 30 20 43 55 52 53 4f 52 20 36 35 2c 32 32 11 ┆0 CLOSE FIL$ 0920 CURSOR 65,22 ┆
0x1ee20…1ee40 1c 30 39 33 30 20 49 4e 50 55 54 20 22 54 61 73 74 20 72 65 74 75 72 6e 20 22 3a 53 24 1c 15 30 ┆ 0930 INPUT "Tast return ":S$ 0┆
0x1ee40…1ee60 39 36 30 20 45 4e 44 50 52 4f 43 20 55 44 53 4b 52 49 46 54 15 08 30 39 37 30 20 2f 2f 20 08 08 ┆960 ENDPROC UDSKRIFT 0970 // ┆
0x1ee60…1ee80 30 39 38 30 20 2f 2f 20 08 12 30 39 39 30 20 50 52 4f 43 20 52 45 54 54 45 4c 53 45 12 0b 31 30 ┆0980 // 0990 PROC RETTELSE 10┆
0x1ee80…1eea0 30 30 20 43 4c 45 41 52 20 0b 0f 31 30 31 30 20 43 55 52 53 4f 52 20 31 2c 36 0f 30 31 30 32 30 ┆00 CLEAR 1010 CURSOR 1,6 01020┆
0x1eea0…1eec0 20 49 4e 50 55 54 20 22 4e 61 76 6e 20 70 7d 20 66 69 6c 65 6e 20 3a 20 20 20 20 20 20 20 20 20 ┆ INPUT "Navn på filen : ┆
0x1eec0…1eee0 20 20 20 20 20 20 22 3a 46 49 4c 24 30 24 31 30 33 30 20 46 49 4c 24 3a 3d 22 53 59 53 54 49 4d ┆ ":FIL$0$1030 FIL$:="SYSTIM┆
0x1eee0…1ef00 45 3a 22 2b 46 49 4c 24 3b 4e 55 4d 4d 45 52 3a 3d 30 24 10 31 30 34 30 20 4f 50 45 4e 20 46 49 ┆E:"+FIL$;NUMMER:=0$ 1040 OPEN FI┆
0x1ef00…1ef20 (15, 0, 16) 4c 24 2c 57 10 0c 31 30 35 30 20 52 45 50 45 41 54 20 0c 0b 31 30 36 30 20 43 4c 45 41 52 20 0b ┆L$,W 1050 REPEAT 1060 CLEAR ┆
0x1ef20…1ef40 0f 31 30 37 30 20 43 55 52 53 4f 52 20 31 2c 34 0f 20 31 30 38 30 20 50 52 49 4e 54 20 22 52 65 ┆ 1070 CURSOR 1,4 1080 PRINT "Re┆
0x1ef40…1ef60 74 74 65 6c 73 65 20 69 20 6b 61 72 74 6f 74 65 6b 22 20 20 31 30 39 30 20 50 52 49 4e 54 20 22 ┆ttelse i kartotek" 1090 PRINT "┆
0x1ef60…1ef80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 20 15 31 31 30 30 20 4e 55 4d 4d 45 ┆-------------------" 1100 NUMME┆
0x1ef80…1efa0 52 3a 3d 4e 55 4d 4d 45 52 2b 31 15 0f 31 31 31 30 20 43 55 52 53 4f 52 20 31 2c 38 0f 32 31 31 ┆R:=NUMMER+1 1110 CURSOR 1,8 211┆
0x1efa0…1efc0 32 30 20 49 4e 50 55 54 20 22 48 76 69 6c 6b 65 74 20 6e 75 6d 6d 65 72 20 73 6b 61 6c 20 72 65 ┆20 INPUT "Hvilket nummer skal re┆
0x1efc0…1efe0 74 74 65 73 3f 20 20 20 22 3a 4e 55 4d 4d 45 52 32 0b 31 31 33 30 20 50 52 49 4e 54 20 0b 36 31 ┆ttes? ":NUMMER2 1130 PRINT 61┆
0x1efe0…1f000 31 34 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6b 6c 61 73 73 65 3a 20 20 20 20 20 20 ┆140 INPUT "Indtast klasse: ┆
0x1f000…1f020 (15, 1, 1) 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 4b 4c 41 53 53 45 24 36 34 31 31 35 30 20 49 4e 50 55 ┆ ":KLASSE$641150 INPU┆
0x1f020…1f040 54 20 22 49 6e 64 74 61 73 74 20 6e 61 76 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆T "Indtast navn: ┆
0x1f040…1f060 20 20 20 20 22 3a 4e 41 56 4e 24 34 33 31 31 36 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 ┆ ":NAVN$431160 INPUT "Indtast┆
0x1f060…1f080 20 61 64 72 65 73 73 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 41 44 52 24 ┆ adresse: ":ADR$┆
0x1f080…1f0a0 33 36 31 31 37 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 70 6f 73 74 6e 75 6d 6d 65 72 ┆361170 INPUT "Indtast postnummer┆
0x1f0a0…1f0c0 20 26 20 62 79 3a 20 20 20 20 20 20 20 20 20 22 3a 50 4f 53 54 42 59 24 36 36 31 31 38 30 20 50 ┆ & by: ":POSTBY$661180 P┆
0x1f0c0…1f0e0 55 54 20 46 49 4c 24 2c 4e 55 4d 4d 45 52 3a 4e 55 4d 4d 45 52 2c 4b 4c 41 53 53 45 24 2c 4e 41 ┆UT FIL$,NUMMER:NUMMER,KLASSE$,NA┆
0x1f0e0…1f100 56 4e 24 2c 41 44 52 24 2c 50 4f 53 54 42 59 24 36 10 31 32 30 30 20 43 55 52 53 4f 52 20 31 2c ┆VN$,ADR$,POSTBY$6 1200 CURSOR 1,┆
0x1f100…1f120 (15, 1, 2) 32 32 10 2d 31 32 31 30 20 49 4e 50 55 54 20 22 5c 6e 73 6b 65 72 20 64 75 20 61 74 20 66 6f 72 ┆22 -1210 INPUT "Ønsker du at for┆
0x1f120…1f140 74 73 7b 74 74 65 3f 20 20 6a 2f 6e 20 22 3a 53 24 2d 1b 31 32 34 30 20 55 4e 54 49 4c 20 53 24 ┆tsætte? j/n ":S$- 1240 UNTIL S$┆
0x1f140…1f160 3d 22 4e 22 20 4f 52 20 53 24 3d 22 6e 22 1b 0f 31 32 35 30 20 43 4c 4f 53 45 20 46 49 4c 24 0f ┆="N" OR S$="n" 1250 CLOSE FIL$ ┆
0x1f160…1f180 15 31 32 36 30 20 45 4e 44 50 52 4f 43 20 52 45 54 54 45 4c 53 45 15 00 00 63 63 63 63 63 63 63 ┆ 1260 ENDPROC RETTELSE ccccccc┆
0x1f180…1f1a0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x3…]
0x1f200…1f300 (15, 1, 3) 0x63[0x100]
[…0x4…]
0x1f700…1f720 (15, 1, 8) ExtentHdr {name=»POSTTAK2«, typ=»K«, seg=»A«, next=0x01, basis=0x0004, nextext={DA 001f,0b (0x01fb00)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 001f,0b (0x01fb00)}, f99=41 1f 00 fe 00 00 00 00 00 00 ┆A ┆}
0x1f720…1f740 40 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 ┆@0010 // ---------------------- ┆
0x1f740…1f760 70 6f 73 74 74 61 6b 73 74 32 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆posttakst2 ---------------------┆
0x1f760…1f780 2d 40 0b 30 30 32 30 20 43 4c 45 41 52 20 0b 0f 30 30 33 30 20 43 55 52 53 4f 52 20 31 2c 33 0f ┆-@ 0020 CLEAR 0030 CURSOR 1,3 ┆
0x1f780…1f7a0 41 30 30 34 30 20 50 52 49 4e 54 20 22 50 6f 73 74 74 61 6b 73 74 65 72 20 74 69 6c 20 69 6e 64 ┆A0040 PRINT "Posttakster til ind┆
0x1f7a0…1f7c0 6c 61 6e 64 65 74 20 67 7b 6c 64 65 6e 64 65 20 66 72 61 20 31 37 2e 20 6d 61 6a 20 31 39 38 33 ┆landet gældende fra 17. maj 1983┆
0x1f7c0…1f7e0 2e 22 41 42 30 30 35 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆."AB0050 PRINT "----------------┆
0x1f7e0…1f800 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x1f800…1f820 (15, 1, 9) 2d 2d 2d 2d 2d 22 42 0b 30 30 36 30 20 50 52 49 4e 54 20 0b 3d 30 30 37 30 20 49 4e 50 55 54 20 ┆-----"B 0060 PRINT =0070 INPUT ┆
0x1f820…1f840 22 42 72 65 76 65 74 73 20 76 7b 67 74 20 28 69 6b 6b 65 20 6f 76 65 72 20 31 30 30 30 20 67 29 ┆"Brevets vægt (ikke over 1000 g)┆
0x1f840…1f860 3a 20 20 20 20 20 20 20 20 20 20 20 22 3a 56 5b 47 54 3d 0b 30 30 38 30 20 50 52 49 4e 54 20 0b ┆: ":VÆGT= 0080 PRINT ┆
0x1f860…1f880 40 30 30 39 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆@0090 // -----------------------┆
0x1f880…1f8a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x1f8a0…1f8c0 2d 40 22 30 31 30 30 20 49 46 20 30 3c 3d 56 5b 47 54 20 41 4e 44 20 56 5b 47 54 3c 3d 32 30 20 ┆-@"0100 IF 0<=VÆGT AND VÆGT<=20 ┆
0x1f8c0…1f8e0 54 48 45 4e 20 22 0f 30 31 31 30 20 50 4f 52 54 4f 3a 3d 32 35 30 0f 0a 30 31 32 30 20 45 4c 53 ┆THEN " 0110 PORTO:=250 0120 ELS┆
0x1f8e0…1f900 45 20 0a 17 30 31 32 35 20 49 46 20 56 5b 47 54 3c 3d 31 30 30 20 54 48 45 4e 20 17 0f 30 31 33 ┆E 0125 IF VÆGT<=100 THEN 013┆
0x1f900…1f920 (15, 1, 10) 30 20 50 4f 52 54 4f 3a 3d 33 35 30 0f 0a 30 31 34 30 20 45 4c 53 45 20 0a 17 30 31 34 35 20 49 ┆0 PORTO:=350 0140 ELSE 0145 I┆
0x1f920…1f940 46 20 56 5b 47 54 3c 3d 32 35 30 20 54 48 45 4e 20 17 0f 30 31 35 30 20 50 4f 52 54 4f 3a 3d 35 ┆F VÆGT<=250 THEN 0150 PORTO:=5┆
0x1f940…1f960 30 30 0f 0a 30 31 36 30 20 45 4c 53 45 20 0a 17 30 31 36 35 20 49 46 20 56 5b 47 54 3c 3d 35 30 ┆00 0160 ELSE 0165 IF VÆGT<=50┆
0x1f960…1f980 30 20 54 48 45 4e 20 17 0f 30 31 37 30 20 50 4f 52 54 4f 3a 3d 38 30 30 0f 0a 30 31 38 30 20 45 ┆0 THEN 0170 PORTO:=800 0180 E┆
0x1f980…1f9a0 4c 53 45 20 0a 25 30 31 38 35 20 49 46 20 35 30 30 3c 56 5b 47 54 20 41 4e 44 20 56 5b 47 54 3c ┆LSE %0185 IF 500<VÆGT AND VÆGT<┆
0x1f9a0…1f9c0 3d 31 30 30 30 20 54 48 45 4e 20 25 10 30 31 39 30 20 50 4f 52 54 4f 3a 3d 31 32 30 30 10 0a 30 ┆=1000 THEN % 0190 PORTO:=1200 0┆
0x1f9c0…1f9e0 32 30 30 20 45 4c 53 45 20 0a 38 30 32 31 30 20 50 52 49 4e 54 20 22 46 6f 72 6b 65 72 74 20 69 ┆200 ELSE 80210 PRINT "Forkert i┆
0x1f9e0…1fa00 6e 64 74 61 73 74 65 74 2e 20 4c 61 76 20 73 65 6c 76 20 65 6e 20 66 65 6a 6c 6d 65 6c 64 69 6e ┆ndtastet. Lav selv en fejlmeldin┆
0x1fa00…1fa20 (15, 1, 11) 67 21 22 38 09 30 32 32 30 20 45 4e 44 20 09 0b 30 32 33 30 20 45 4e 44 49 46 20 0b 0b 30 32 33 ┆g!"8 0220 END 0230 ENDIF 023┆
0x1fa20…1fa40 31 20 45 4e 44 49 46 20 0b 0b 30 32 33 32 20 45 4e 44 49 46 20 0b 0b 30 32 33 33 20 45 4e 44 49 ┆1 ENDIF 0232 ENDIF 0233 ENDI┆
0x1fa40…1fa60 46 20 0b 0b 30 32 33 34 20 45 4e 44 49 46 20 0b 0b 30 32 34 30 20 50 52 49 4e 54 20 0b 48 30 32 ┆F 0234 ENDIF 0240 PRINT H02┆
0x1fa60…1fa80 35 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 42 72 65 76 65 74 73 20 76 7b 67 74 3a 20 20 20 ┆50 PRINT USING "Brevets vægt: ┆
0x1fa80…1faa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 23 23 23 23 20 20 67 2e 20 ┆ ##### g. ┆
0x1faa0…1fac0 22 3a 56 5b 47 54 48 0b 30 32 36 30 20 50 52 49 4e 54 20 0b 4d 30 32 37 30 20 50 52 49 4e 54 20 ┆":VÆGTH 0260 PRINT M0270 PRINT ┆
0x1fac0…1fae0 55 53 49 4e 47 20 22 50 6f 72 74 6f 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆USING "Porto: ┆
0x1fae0…1fb00 20 20 20 20 20 20 20 20 20 20 20 23 23 23 23 23 2e 23 23 20 6b 72 2e 22 3a 50 4f 52 54 4f 2f 31 ┆ #####.## kr.":PORTO/1┆
0x1fb00…1fb20 (15, 1, 12) ExtentHdr {name=»POSTTAK2«, typ=»K«, seg=»B«, next=0x01, basis=0x0004, nextext={DA 0000,00 (0x000000)}, prevext={DA 001f,07 (0x01f700)}, nextfile={DA 001f,0f (0x01ff00)}, f99=41 1f 00 20 00 00 00 00 00 00 ┆A ┆}
0x1fb20…1fb40 30 30 4d 00 00 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 ┆00M // ---------------------- ┆
0x1fb40…1fb60 70 6f 73 74 74 61 6b 73 74 32 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆posttakst2 ---------------------┆
0x1fb60…1fb80 2d 40 0b 30 30 32 30 20 43 4c 45 41 52 20 0b 0f 30 30 33 30 20 43 55 52 53 4f 52 20 31 2c 33 0f ┆-@ 0020 CLEAR 0030 CURSOR 1,3 ┆
0x1fb80…1fba0 41 30 30 34 30 20 50 52 49 4e 54 20 22 50 6f 73 74 74 61 6b 73 74 65 72 20 74 69 6c 20 69 6e 64 ┆A0040 PRINT "Posttakster til ind┆
0x1fba0…1fbc0 6c 61 6e 64 65 74 20 67 7b 6c 64 65 6e 64 65 20 66 72 61 20 31 37 2e 20 6d 61 6a 20 31 39 38 33 ┆landet gældende fra 17. maj 1983┆
0x1fbc0…1fbe0 2e 22 41 42 30 30 35 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆."AB0050 PRINT "----------------┆
0x1fbe0…1fc00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x1fc00…1fd00 (15, 1, 13) 0x63[0x100]
[…0x2…]
0x1ff00…1ff20 (15, 1, 16) ExtentHdr {name=»SYSBÅND «, typ=»K«, seg=»A«, next=0x00, basis=0x001b, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0021,0a (0x021a00)}, f99=00 00 00 a8 00 00 00 00 00 00 ┆ ┆}
0x1ff20…1ff40 00 5a 00 01 00 02 53 68 61 6b 69 6e 20 53 74 65 76 65 6e 73 27 00 52 6f 64 20 53 74 65 77 61 72 ┆ Z Shakin Stevens' Rod Stewar┆
0x1ff40…1ff60 74 00 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆t ┆
0x1ff60…1ff80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x1ff80…1ffa0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x1…]
0x1ffc0…1ffe0 ff 00 ff 00 ff 00 ff 00 00 64 00 01 00 01 42 6c 61 6e 64 65 74 20 70 69 70 00 42 6c 61 6e 64 65 ┆ d Blandet pip Blande┆
0x1ffe0…20000 74 20 6b 69 6b 00 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 ┆t kik : ┆
0x20000…20020 (16, 0, 1) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x20020…20040 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x1…]
0x20060…20080 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 00 00 00 00 01 00 01 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20080…200a0 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 ┆ ┆
0x200a0…200c0 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 00 20 20 20 ┆ ┆
0x200c0…200e0 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 ┆ ┆
[…0x1…]
0x20100…20120 (16, 0, 2) 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 ┆ ┆
0x20120…20140 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 ┆ ┆
[…0x1…]
0x20160…20180 20 20 20 20 00 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 ┆ ┆
0x20180…201a0 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 ┆ ┆
0x201a0…201c0 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff ┆ ┆
0x201c0…201e0 00 00 00 01 00 01 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 ┆ ┆
0x201e0…20200 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 ┆ ┆
0x20200…20220 (16, 0, 3) 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20220…20240 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 ┆ ┆
0x20240…20260 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff ┆ ┆
0x20260…20280 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20280…202a0 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 ┆ ┆
0x202a0…202c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x202c0…202e0 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 ┆ ┆
0x202e0…20300 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 00 00 00 00 00 ┆ ┆
0x20300…20320 (16, 0, 4) 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20320…20340 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 ┆ ┆
0x20340…20360 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 00 20 20 20 ┆ ┆
0x20360…20380 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 ┆ ┆
[…0x1…]
0x203a0…203c0 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 ┆ ┆
0x203c0…203e0 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 ┆ ┆
[…0x1…]
0x20400…20420 (16, 0, 5) 20 20 20 20 00 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 ┆ ┆
0x20420…20440 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 ┆ ┆
0x20440…20460 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff ┆ ┆
0x20460…20480 00 00 00 01 00 01 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 ┆ ┆
0x20480…204a0 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 ┆ ┆
0x204a0…204c0 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x204c0…204e0 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 ┆ ┆
0x204e0…20500 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff ┆ ┆
0x20500…20520 (16, 0, 6) 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20520…20540 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 ┆ ┆
0x20540…20560 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20560…20580 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 ┆ ┆
0x20580…205a0 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 00 00 00 00 00 ┆ ┆
0x205a0…205c0 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x205c0…205e0 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 ┆ ┆
0x205e0…20600 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 00 20 20 20 ┆ ┆
0x20600…20620 (16, 0, 7) 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 ┆ ┆
[…0x1…]
0x20640…20660 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 ┆ ┆
0x20660…20680 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 ┆ ┆
[…0x1…]
0x206a0…206c0 20 20 20 20 00 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 ┆ ┆
0x206c0…206e0 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 ┆ ┆
0x206e0…20700 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff ┆ ┆
0x20700…20720 (16, 0, 8) 00 00 00 01 00 01 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 ┆ ┆
0x20720…20740 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 ┆ ┆
0x20740…20760 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20760…20780 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 ┆ ┆
0x20780…207a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff ┆ ┆
0x207a0…207c0 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x207c0…207e0 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 ┆ ┆
0x207e0…20800 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20800…20820 (16, 0, 9) 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 ┆ ┆
0x20820…20840 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 00 00 00 00 00 ┆ ┆
0x20840…20860 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20860…20880 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 ┆ ┆
0x20880…208a0 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 00 20 20 20 ┆ ┆
0x208a0…208c0 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 ┆ ┆
[…0x1…]
0x208e0…20900 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 ┆ ┆
0x20900…20920 (16, 0, 10) 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 ┆ ┆
[…0x1…]
0x20940…20960 20 20 20 20 00 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 ┆ ┆
0x20960…20980 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 ┆ ┆
0x20980…209a0 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff ┆ ┆
0x209a0…209c0 00 00 00 01 00 01 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 ┆ ┆
0x209c0…209e0 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 ┆ ┆
0x209e0…20a00 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20a00…20a20 (16, 0, 11) 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 ┆ ┆
0x20a20…20a40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff ┆ ┆
0x20a40…20a60 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20a60…20a80 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 ┆ ┆
0x20a80…20aa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20aa0…20ac0 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 ┆ ┆
0x20ac0…20ae0 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 00 00 00 00 00 ┆ ┆
0x20ae0…20b00 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20b00…20b20 (16, 0, 12) 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 ┆ ┆
0x20b20…20b40 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 00 20 20 20 ┆ ┆
0x20b40…20b60 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 ┆ ┆
[…0x1…]
0x20b80…20ba0 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 ┆ ┆
0x20ba0…20bc0 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 ┆ ┆
[…0x1…]
0x20be0…20c00 20 20 20 20 00 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 ┆ ┆
0x20c00…20c20 (16, 0, 13) 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 ┆ ┆
0x20c20…20c40 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff ┆ ┆
0x20c40…20c60 00 00 00 01 00 01 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 ┆ ┆
0x20c60…20c80 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 ┆ ┆
0x20c80…20ca0 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20ca0…20cc0 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 ┆ ┆
0x20cc0…20ce0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff ┆ ┆
0x20ce0…20d00 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20d00…20d20 (16, 0, 14) 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 ┆ ┆
0x20d20…20d40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20d40…20d60 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 ┆ ┆
0x20d60…20d80 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 00 00 00 00 00 ┆ ┆
0x20d80…20da0 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20da0…20dc0 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 ┆ ┆
0x20dc0…20de0 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 00 20 20 20 ┆ ┆
0x20de0…20e00 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 ┆ ┆
[…0x1…]
0x20e20…20e40 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 ┆ ┆
0x20e40…20e60 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 ┆ ┆
[…0x1…]
0x20e80…20ea0 20 20 20 20 00 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 ┆ ┆
0x20ea0…20ec0 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 ┆ ┆
0x20ec0…20ee0 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff ┆ ┆
0x20ee0…20f00 00 00 00 01 00 01 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 ┆ ┆
0x20f00…20f20 (16, 0, 16) 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 ┆ ┆
0x20f20…20f40 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20f40…20f60 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 ┆ ┆
0x20f60…20f80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff ┆ ┆
0x20f80…20fa0 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20fa0…20fc0 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 ┆ ┆
0x20fc0…20fe0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20fe0…21000 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 ┆ ┆
0x21000…21020 (16, 1, 1) 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 00 00 00 00 00 ┆ ┆
0x21020…21040 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21040…21060 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 ┆ ┆
0x21060…21080 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 00 20 20 20 ┆ ┆
0x21080…210a0 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 ┆ ┆
[…0x1…]
0x210c0…210e0 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 ┆ ┆
0x210e0…21100 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 ┆ ┆
[…0x1…]
0x21120…21140 20 20 20 20 00 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 ┆ ┆
0x21140…21160 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 ┆ ┆
0x21160…21180 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff ┆ ┆
0x21180…211a0 00 00 00 01 00 01 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 ┆ ┆
0x211a0…211c0 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 ┆ ┆
0x211c0…211e0 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x211e0…21200 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 ┆ ┆
0x21200…21220 (16, 1, 3) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff ┆ ┆
0x21220…21240 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21240…21260 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 ┆ ┆
0x21260…21280 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21280…212a0 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 ┆ ┆
0x212a0…212c0 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 00 00 00 00 00 ┆ ┆
0x212c0…212e0 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x212e0…21300 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 ┆ ┆
0x21300…21320 (16, 1, 4) 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 00 20 20 20 ┆ ┆
0x21320…21340 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 ┆ ┆
[…0x1…]
0x21360…21380 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 ┆ ┆
0x21380…213a0 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 ┆ ┆
[…0x1…]
0x213c0…213e0 20 20 20 20 00 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 ┆ ┆
0x213e0…21400 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 ┆ ┆
0x21400…21420 (16, 1, 5) 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff ┆ ┆
0x21420…21440 00 00 00 01 00 01 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 ┆ ┆
0x21440…21460 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 ┆ ┆
0x21460…21480 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21480…214a0 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 ┆ ┆
0x214a0…214c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff ┆ ┆
0x214c0…214e0 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x214e0…21500 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 ┆ ┆
0x21500…21520 (16, 1, 6) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21520…21540 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 ┆ ┆
0x21540…21560 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 00 00 00 00 00 ┆ ┆
0x21560…21580 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21580…215a0 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 ┆ ┆
0x215a0…215c0 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 00 20 20 20 ┆ ┆
0x215c0…215e0 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 ┆ ┆
[…0x1…]
0x21600…21620 (16, 1, 7) 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 ┆ ┆
0x21620…21640 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 ┆ ┆
[…0x1…]
0x21660…21680 20 20 20 20 00 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 ┆ ┆
0x21680…216a0 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 ┆ ┆
0x216a0…216c0 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff ┆ ┆
0x216c0…216e0 00 00 00 01 00 01 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 ┆ ┆
0x216e0…21700 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 ┆ ┆
0x21700…21720 (16, 1, 8) 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21720…21740 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 ┆ ┆
0x21740…21760 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff ┆ ┆
0x21760…21780 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21780…217a0 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 ┆ ┆
0x217a0…217c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x217c0…217e0 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 ┆ ┆
0x217e0…21800 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 00 00 00 00 00 ┆ ┆
0x21800…21820 (16, 1, 9) 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21820…21840 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 ┆ ┆
0x21840…21860 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 00 20 20 20 ┆ ┆
0x21860…21880 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 ┆ ┆
[…0x1…]
0x218a0…218c0 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff 00 00 00 01 00 01 20 20 ┆ ┆
0x218c0…218e0 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 ┆ ┆
[…0x1…]
0x21900…21920 (16, 1, 10) 20 20 20 20 00 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 ┆ ┆
0x21920…21940 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 ┆ ┆
0x21940…21960 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff ┆ ┆
0x21960…21980 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x4…]
0x21a00…21a20 (16, 1, 11) ExtentHdr {name=»TESTFIL «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0022,04 (0x022400)}, f99=00 00 00 ff 00 00 00 00 00 00 ┆ ┆}
0x21a20…21a40 20 00 01 64 61 6e 73 6b 00 76 61 6c 6b 6a 00 6b 73 6a 66 64 7b 6c 00 6a 73 6c 64 7b 6b 66 6a 6c ┆ dansk valkj ksjfdæl jsldækfjl┆
0x21a40…21a60 00 20 00 00 74 76 2e 00 37 34 30 30 20 20 48 65 72 6e 69 6e 67 00 35 25 00 02 42 31 34 00 4d 69 ┆ tv. 7400 Herning 5% B14 Mi┆
0x21a60…21a80 6b 61 65 6c 20 52 61 73 6d 75 73 73 65 6e 00 00 37 34 30 30 20 48 65 72 6e 69 6e 67 00 25 00 00 ┆kael Rasmussen 7400 Herning % ┆
0x21a80…21aa0 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 ┆ ┆
0x21aa0…21ac0 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 ┆ ┆
0x21ac0…21ae0 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 ┆ ┆
0x21ae0…21b00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 ┆ ┆
0x21b00…21b20 (16, 1, 12) 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 ┆ ┆
0x21b20…21b40 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 ┆ ┆
0x21b40…21b60 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 ┆ ┆
0x21b60…21b80 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 ┆ ┆
0x21b80…21ba0 01 00 01 01 00 01 01 00 01 01 00 01 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ cccccccccccccccccc┆
0x21ba0…21bc0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x2…]
0x21c00…21d00 (16, 1, 13) 0x63[0x100]
[…0x7…]
0x22400…22420 (17, 0, 5) ExtentHdr {name=»FÆLLESDI«, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0022,0e (0x022e00)}, f99=41 22 00 fe 00 00 00 00 00 00 ┆A" ┆}
0x22420…22440 40 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆@0010 // -----------------------┆
0x22440…22460 20 66 7b 6c 6c 65 73 64 69 76 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ fællesdiv ---------------------┆
0x22460…22480 2d 40 37 30 30 32 30 20 2f 2f 20 46 69 6e 64 65 72 20 73 74 7c 72 73 74 65 20 66 7b 6c 6c 65 73 ┆-@70020 // Finder største fælles┆
0x22480…224a0 20 64 69 76 69 73 6f 72 20 74 69 6c 20 74 6f 20 67 69 76 6e 65 20 74 61 6c 2e 37 18 30 30 32 35 ┆ divisor til to givne tal.7 0025┆
0x224a0…224c0 20 49 4e 54 45 47 45 52 20 4e 2c 4e 31 2c 4b 2c 52 2c 4b 31 18 32 30 30 33 30 20 49 4e 50 55 54 ┆ INTEGER N,N1,K,R,K1 20030 INPUT┆
0x224c0…224e0 20 22 49 6e 64 74 61 73 74 20 74 6f 20 74 61 6c 2c 20 73 74 7c 72 72 65 20 65 6e 64 20 32 3a 20 ┆ "Indtast to tal, større end 2: ┆
0x224e0…22500 20 20 20 22 3a 4e 2c 4b 32 10 30 30 34 30 20 4e 31 3a 3d 4e 3b 4b 31 3a 3d 4b 10 0c 30 30 35 30 ┆ ":N,K2 0040 N1:=N;K1:=K 0050┆
0x22500…22520 (17, 0, 6) 20 52 45 50 45 41 54 20 0c 14 30 30 36 30 20 52 3a 3d 4e 2d 49 4e 54 28 4e 2f 4b 29 2a 4b 14 0e ┆ REPEAT 0060 R:=N-INT(N/K)*K ┆
0x22520…22540 30 30 37 30 20 4e 3a 3d 4b 3b 4b 3a 3d 52 0e 0e 30 30 38 30 20 55 4e 54 49 4c 20 52 3d 30 0e 3a ┆0070 N:=K;K:=R 0080 UNTIL R=0 :┆
0x22540…22560 30 30 39 30 20 50 52 49 4e 54 20 4e 3b 22 65 72 20 73 74 7c 72 73 74 65 20 66 7b 6c 6c 65 73 20 ┆0090 PRINT N;"er største fælles ┆
0x22560…22580 64 69 76 69 73 6f 72 20 74 69 6c 20 22 3b 4e 31 3b 22 20 6f 67 20 22 3b 4b 31 3a 00 00 63 63 63 ┆divisor til ";N1;" og ";K1: ccc┆
0x22580…225a0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x3…]
0x22600…22700 (17, 0, 7) 0x63[0x100]
[…0x7…]
0x22e00…22e20 (17, 0, 15) ExtentHdr {name=»LAGER «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0023,08 (0x023800)}, f99=41 22 00 ff 00 41 47 45 52 20 ┆A" AGER ┆}
0x22e20…22e40 17 01 01 00 00 00 00 00 83 68 61 6d 6d 65 72 00 02 50 00 00 00 00 00 82 17 19 01 02 00 00 00 00 ┆ hammer P ┆
0x22e40…22e60 00 83 62 72 7b 6b 6a 65 72 6e 00 09 90 00 00 00 00 00 82 19 1d 01 03 00 00 00 00 00 83 73 6b 72 ┆ brækjern skr┆
0x22e60…22e80 75 65 74 72 7b 6b 6b 65 72 00 04 50 00 00 00 00 00 82 1d 14 01 04 00 00 00 00 00 83 73 61 76 00 ┆uetrækker P sav ┆
0x22e80…22ea0 01 33 00 00 00 00 00 83 14 15 01 05 00 00 00 00 00 83 68 7c 76 6c 00 02 55 00 00 00 00 00 83 15 ┆ 3 høvl U ┆
0x22ea0…22ec0 19 01 06 00 00 00 00 00 83 6b 6e 69 62 74 61 6e 67 00 05 60 00 00 00 00 00 82 19 1d 01 07 00 00 ┆ knibtang ` ┆
0x22ec0…22ee0 00 00 00 83 73 79 76 74 6f 6d 6d 65 72 73 7c 6d 00 08 00 00 00 00 00 00 81 1d 1b 01 08 00 00 00 ┆ syvtommersøm ┆
0x22ee0…22f00 00 00 83 73 74 65 6d 6d 65 6a 65 72 6e 00 08 80 00 00 00 00 00 82 1b 1b 01 09 00 00 00 00 00 83 ┆ stemmejern ┆
0x22f00…22f20 (17, 0, 16) 76 69 6e 6b 65 6c 6a 65 72 6e 00 05 20 00 00 00 00 00 82 1b 16 01 10 00 00 00 00 00 83 73 74 69 ┆vinkeljern sti┆
0x22f20…22f40 67 65 00 03 55 00 00 00 00 00 83 16 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ge U cccccccccccccccccc┆
0x22f40…22f60 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x5…]
0x23000…23100 (17, 1, 1) 0x63[0x100]
[…0x7…]
0x23800…23820 (17, 1, 9) ExtentHdr {name=»LOWSCORE«, typ=»K«, seg=»A«, next=0x01, basis=0x0001, nextext={DA 0023,09 (0x023900)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0023,09 (0x023900)}, f99=00 00 00 ff 00 00 00 00 00 00 ┆ ┆}
0x23820…23840 03 01 20 00 03 06 56 49 47 47 4f 00 06 03 02 10 00 03 03 02 10 00 03 03 02 30 00 03 01 00 01 01 ┆ VIGGO 0 ┆
0x23840…23860 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 ┆ ┆
0x23860…23880 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 ┆ ┆
0x23880…238a0 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 ┆ ┆
0x238a0…238c0 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 ┆ ┆
0x238c0…238e0 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 ┆ ┆
0x238e0…23900 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 ┆ ┆
0x23900…23920 (17, 1, 10) ExtentHdr {name=»LOWSCORE«, typ=»K«, seg=»B«, next=0x01, basis=0x0001, nextext={DA 0000,00 (0x000000)}, prevext={DA 0023,08 (0x023800)}, nextfile={DA 0023,0a (0x023a00)}, f99=00 00 00 20 00 00 00 00 00 00 ┆ ┆}
0x23920…23940 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 ┆ ┆
0x23940…23960 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 ┆ ┆
0x23960…23980 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 ┆ ┆
0x23980…239a0 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 ┆ ┆
0x239a0…239c0 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 00 00 00 01 01 00 01 01 00 01 01 ┆ ┆
0x239c0…239e0 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 ┆ ┆
0x239e0…23a00 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 01 00 01 00 00 ┆ ┆
0x23a00…23a20 (17, 1, 11) ExtentHdr {name=»LIGE_ULI«, typ=»K«, seg=»A«, next=0x00, basis=0x0003, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0023,0d (0x023d00)}, f99=41 23 00 fe 00 00 00 00 00 00 ┆A# ┆}
0x23a20…23a40 28 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 20 6c 69 67 65 5f 75 6c 69 67 65 20 2d 2d 2d ┆(0010 // -------- lige_ulige ---┆
0x23a40…23a60 2d 2d 2d 2d 2d 2d 2d 2d 2d 28 08 30 30 32 30 20 2f 2f 20 08 26 30 30 33 30 20 50 52 4f 43 20 46 ┆---------( 0020 // &0030 PROC F┆
0x23a60…23a80 4e 4c 49 47 45 28 4e 29 20 2f 2f 20 62 6f 6f 6c 73 6b 20 66 75 6e 6b 74 69 6f 6e 26 1a 30 30 34 ┆NLIGE(N) // boolsk funktion& 004┆
0x23a80…23aa0 30 20 46 4e 4c 49 47 45 3a 3d 28 28 4e 20 4d 4f 44 20 32 29 3d 30 29 1a 13 30 30 35 30 20 45 4e ┆0 FNLIGE:=((N MOD 2)=0) 0050 EN┆
0x23aa0…23ac0 44 50 52 4f 43 20 46 4e 4c 49 47 45 13 08 30 30 36 30 20 2f 2f 20 08 0b 30 30 37 30 20 43 4c 45 ┆DPROC FNLIGE 0060 // 0070 CLE┆
0x23ac0…23ae0 41 52 20 0b 0b 30 30 37 35 20 50 52 49 4e 54 20 0b 26 30 30 38 30 20 49 4e 50 55 54 20 22 49 6e ┆AR 0075 PRINT &0080 INPUT "In┆
0x23ae0…23b00 64 74 61 73 74 20 65 74 20 68 65 6c 74 20 74 61 6c 3a 20 20 20 22 3a 4d 26 13 30 30 39 30 20 50 ┆dtast et helt tal: ":M& 0090 P┆
0x23b00…23b20 (17, 1, 12) 52 49 4e 54 20 4d 3b 22 65 72 20 22 3b 13 25 30 31 30 30 20 49 46 20 4e 4f 54 20 46 4e 4c 49 47 ┆RINT M;"er "; %0100 IF NOT FNLIG┆
0x23b20…23b40 45 28 4d 29 20 54 48 45 4e 20 50 52 49 4e 54 20 22 75 22 3b 25 11 30 31 31 30 20 50 52 49 4e 54 ┆E(M) THEN PRINT "u";% 0110 PRINT┆
0x23b40…23b60 20 22 6c 69 67 65 22 11 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ "lige" cccccccccccccccccccccc┆
0x23b60…23b80 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x4…]
0x23c00…23d00 (17, 1, 13) 0x63[0x100]
0x23d00…23d20 (17, 1, 14) ExtentHdr {name=»CIRKEL «, typ=»K«, seg=»A«, next=0x00, basis=0x0003, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0024,00 (0x024000)}, f99=41 23 00 fe 00 49 52 4b 45 4c ┆A# IRKEL┆}
0x23d20…23d40 44 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆D0010 // -----------------------┆
0x23d40…23d60 2d 2d 2d 20 43 69 72 6b 65 6c 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--- Cirkel ---------------------┆
0x23d60…23d80 2d 2d 2d 2d 2d 44 0b 30 30 32 30 20 43 4c 45 41 52 20 0b 42 30 30 33 30 20 49 4e 50 55 54 20 22 ┆-----D 0020 CLEAR B0030 INPUT "┆
0x23d80…23da0 49 6e 64 74 61 73 74 20 72 61 64 69 75 73 20 69 20 63 69 72 6b 65 6c 3a 20 20 20 20 20 20 20 20 ┆Indtast radius i cirkel: ┆
0x23da0…23dc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 52 41 44 49 55 53 42 1d 30 30 34 30 20 41 52 45 ┆ ":RADIUSB 0040 ARE┆
0x23dc0…23de0 41 4c 3a 3d 33 2e 31 34 31 35 39 2a 52 41 44 49 55 53 2a 2a 32 1d 1e 30 30 35 30 20 4f 4d 4b 52 ┆AL:=3.14159*RADIUS**2 0050 OMKR┆
0x23de0…23e00 45 44 53 3a 3d 33 2e 31 34 31 35 39 2a 32 2a 52 41 44 49 55 53 1e 0b 30 30 36 30 20 50 52 49 4e ┆EDS:=3.14159*2*RADIUS 0060 PRIN┆
0x23e00…23e20 (17, 1, 15) 54 20 0b 4b 30 30 37 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 52 61 64 69 75 73 3a 20 20 20 ┆T K0070 PRINT USING "Radius: ┆
0x23e20…23e40 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 23 23 ┆ ##┆
0x23e40…23e60 23 23 23 2e 23 23 20 22 3a 52 41 44 49 55 53 4b 4a 30 30 38 30 20 50 52 49 4e 54 20 55 53 49 4e ┆###.## ":RADIUSKJ0080 PRINT USIN┆
0x23e60…23e80 47 20 22 41 72 65 61 6c 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆G "Areal: ┆
0x23e80…23ea0 20 20 20 20 20 20 20 20 20 20 20 23 23 23 23 23 2e 23 23 20 22 3a 41 52 45 41 4c 4a 4c 30 30 39 ┆ #####.## ":AREALJL009┆
0x23ea0…23ec0 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 4f 6d 6b 72 65 64 73 3a 20 20 20 20 20 20 20 20 20 ┆0 PRINT USING "Omkreds: ┆
0x23ec0…23ee0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 23 23 23 23 2e 23 23 20 ┆ #####.## ┆
0x23ee0…23f00 22 3a 4f 4d 4b 52 45 44 53 4c 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆":OMKREDSL cccccccccccccccccccc┆
0x23f00…24000 (17, 1, 16) 0x63[0x100]
0x24000…24020 (18, 0, 1) ExtentHdr {name=»STJERN2 «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0024,0a (0x024a00)}, f99=41 23 00 fe 00 49 52 4b 45 4c ┆A# IRKEL┆}
0x24020…24040 43 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆C0010 // -----------------------┆
0x24040…24060 2d 2d 20 73 74 6a 65 72 6e 65 72 5f 32 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆-- stjerner_2 ------------------┆
0x24060…24080 2d 2d 2d 2d 43 3a 30 30 32 30 20 2f 2f 20 55 64 73 6b 72 69 76 65 72 20 73 74 6a 65 72 6e 65 74 ┆----C:0020 // Udskriver stjernet┆
0x24080…240a0 65 67 6e 20 73 61 6d 74 20 64 65 74 20 70 7d 67 7b 6c 64 65 6e 64 65 20 74 69 64 73 72 75 6d 2c ┆egn samt det pågældende tidsrum,┆
0x240a0…240c0 3a 25 30 30 33 30 20 2f 2f 20 64 65 72 20 73 76 61 72 65 72 20 74 69 6c 20 73 74 6a 65 72 6e 65 ┆:%0030 // der svarer til stjerne┆
0x240c0…240e0 74 65 67 6e 65 74 2e 25 1c 30 30 33 35 20 49 4e 54 45 47 45 52 20 54 52 55 45 2c 46 41 4c 53 45 ┆tegnet.% 0035 INTEGER TRUE,FALSE┆
0x240e0…24100 2c 44 41 54 45 1c 15 30 30 33 36 20 54 52 55 45 3a 3d 31 3b 46 41 4c 53 45 3a 3d 30 15 20 30 30 ┆,DATE 0036 TRUE:=1;FALSE:=0 00┆
0x24100…24120 (18, 0, 2) 34 30 20 44 49 4d 20 4e 41 56 4e 24 20 4f 46 20 33 30 2c 54 45 47 4e 24 20 4f 46 20 33 30 20 24 ┆40 DIM NAVN$ OF 30,TEGN$ OF 30 $┆
0x24120…24140 30 30 35 30 20 44 49 4d 20 46 5c 44 53 45 4c 53 4d 44 24 20 4f 46 20 33 30 2c 44 41 54 4f 24 20 ┆0050 DIM FØDSELSMD$ OF 30,DATO$ ┆
0x24140…24160 4f 46 20 36 24 0b 30 30 36 30 20 54 41 42 3a 3d 30 0b 08 30 30 37 30 20 2f 2f 20 08 0b 30 30 38 ┆OF 6$ 0060 TAB:=0 0070 // 008┆
0x24160…24180 30 20 43 4c 45 41 52 20 0b 0f 30 30 39 30 20 43 55 52 53 4f 52 20 35 2c 35 0f 4a 30 31 30 30 20 ┆0 CLEAR 0090 CURSOR 5,5 J0100 ┆
0x24180…241a0 50 52 49 4e 54 20 22 20 49 20 20 20 20 48 20 56 20 49 20 4c 20 4b 20 45 20 54 20 20 20 53 20 54 ┆PRINT " I H V I L K E T S T┆
0x241a0…241c0 20 4a 20 45 20 52 20 4e 20 45 20 54 20 45 20 47 20 4e 20 20 20 45 20 52 20 20 20 20 44 20 55 20 ┆ J E R N E T E G N E R D U ┆
0x241c0…241e0 20 20 20 22 3b 4a 16 30 31 30 35 20 50 52 49 4e 54 20 22 46 20 5c 20 44 20 54 20 3f 22 16 0f 30 ┆ ";J 0105 PRINT "F Ø D T ?" 0┆
0x241e0…24200 31 31 30 20 43 55 52 53 4f 52 20 35 2c 36 0f 4d 30 31 32 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d ┆110 CURSOR 5,6 M0120 PRINT "----┆
0x24200…24220 (18, 0, 3) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x24220…24240 2d 2d 2d 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 4d 13 30 ┆---------------------------";M 0┆
0x24240…24260 31 32 35 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 22 13 0f 30 31 33 30 20 43 55 52 53 4f 52 20 ┆125 PRINT "------" 0130 CURSOR ┆
0x24260…24280 35 2c 38 0f 48 30 31 34 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 66 7c 64 73 65 6c 73 ┆5,8 H0140 INPUT "Indtast fødsels┆
0x24280…242a0 64 61 74 6f 3a 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 ┆dato: ┆
0x242a0…242c0 20 20 20 20 20 20 20 22 3a 44 41 54 45 48 10 30 31 35 30 20 43 55 52 53 4f 52 20 35 2c 31 30 10 ┆ ":DATEH 0150 CURSOR 5,10 ┆
0x242c0…242e0 4d 30 31 36 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 66 7c 64 73 65 6c 73 6d 7d 6e 65 ┆M0160 INPUT "Indtast fødselsmåne┆
0x242e0…24300 64 20 28 6a 61 6e 75 61 72 20 6f 73 76 2e 29 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆d (januar osv.): ┆
0x24300…24320 (18, 0, 4) 20 20 22 3a 46 5c 44 53 45 4c 53 4d 44 24 4d 12 30 31 37 30 20 46 55 4e 44 45 54 3a 3d 46 41 4c ┆ ":FØDSELSMD$M 0170 FUNDET:=FAL┆
0x24320…24340 53 45 12 1d 30 31 38 30 20 4f 50 45 4e 20 22 53 59 53 54 49 4d 45 3a 45 54 4f 49 4c 45 53 22 2c ┆SE 0180 OPEN "SYSTIME:ETOILES",┆
0x24340…24360 52 1d 29 30 31 39 30 20 57 48 49 4c 45 20 4e 4f 54 20 45 4f 46 28 22 53 59 53 54 49 4d 45 3a 45 ┆R )0190 WHILE NOT EOF("SYSTIME:E┆
0x24360…24380 54 4f 49 4c 45 53 22 29 20 44 4f 20 29 2e 30 32 30 30 20 47 45 54 20 22 53 59 53 54 49 4d 45 3a ┆TOILES") DO ).0200 GET "SYSTIME:┆
0x24380…243a0 45 54 4f 49 4c 45 53 22 3a 44 47 31 2c 44 47 32 2c 4e 41 56 4e 24 2c 54 45 47 4e 24 2e 08 30 32 ┆ETOILES":DG1,DG2,NAVN$,TEGN$. 02┆
0x243a0…243c0 31 30 20 2f 2f 20 08 3a 30 32 32 30 20 49 46 20 44 41 54 45 3d 3e 44 47 31 20 41 4e 44 20 44 41 ┆10 // :0220 IF DATE=>DG1 AND DA┆
0x243c0…243e0 54 45 3c 3d 44 47 32 20 41 4e 44 20 46 5c 44 53 45 4c 53 4d 44 24 3d 4e 41 56 4e 24 20 54 48 45 ┆TE<=DG2 AND FØDSELSMD$=NAVN$ THE┆
0x243e0…24400 4e 20 3a 10 30 32 33 30 20 43 55 52 53 4f 52 20 35 2c 31 38 10 3b 30 32 34 30 20 50 52 49 4e 54 ┆N : 0230 CURSOR 5,18 ;0240 PRINT┆
0x24400…24420 (18, 0, 5) 20 22 44 61 20 64 75 20 65 72 20 66 7c 64 74 20 64 65 6e 20 22 3b 44 41 54 45 3b 22 2e 20 22 3b ┆ "Da du er født den ";DATE;". ";┆
0x24420…24440 46 5c 44 53 45 4c 53 4d 44 24 3b 22 20 2c 20 22 3b 3b 2b 30 32 35 30 20 50 52 49 4e 54 20 22 65 ┆FØDSELSMD$;" , ";;+0250 PRINT "e┆
0x24440…24460 72 20 64 75 20 66 7c 64 74 20 69 20 22 3b 54 45 47 4e 24 3b 22 27 73 20 74 65 67 6e 2e 22 2b 11 ┆r du født i ";TEGN$;"'s tegn."+ ┆
0x24460…24480 30 32 36 30 20 46 55 4e 44 45 54 3a 3d 54 52 55 45 11 08 30 32 37 30 20 2f 2f 20 08 0b 30 32 38 ┆0260 FUNDET:=TRUE 0270 // 028┆
0x24480…244a0 30 20 45 4e 44 49 46 20 0b 0e 30 32 39 30 20 45 4e 44 57 48 49 4c 45 20 0e 0b 30 33 30 30 20 43 ┆0 ENDIF 0290 ENDWHILE 0300 C┆
0x244a0…244c0 4c 4f 53 45 20 0b 18 30 33 31 30 20 49 46 20 4e 4f 54 20 46 55 4e 44 45 54 20 54 48 45 4e 20 18 ┆LOSE 0310 IF NOT FUNDET THEN ┆
0x244c0…244e0 10 30 33 32 30 20 43 55 52 53 4f 52 20 35 2c 32 32 10 2a 30 33 33 30 20 50 52 49 4e 54 20 22 44 ┆ 0320 CURSOR 5,22 *0330 PRINT "D┆
0x244e0…24500 75 20 65 72 20 69 6b 6b 65 20 66 7c 64 74 20 69 20 6e 6f 67 65 74 20 74 65 67 6e 2e 22 2a 09 30 ┆u er ikke født i noget tegn."* 0┆
0x24500…24520 (18, 0, 6) 33 34 30 20 45 4e 44 20 09 0b 30 33 35 30 20 45 4e 44 49 46 20 0b 08 30 33 36 30 20 2f 2f 20 08 ┆340 END 0350 ENDIF 0360 // ┆
0x24520…24540 15 30 33 37 30 20 50 52 4f 43 20 45 4f 46 28 46 4e 41 56 4e 24 29 15 1d 30 33 38 30 20 45 4f 46 ┆ 0370 PROC EOF(FNAVN$) 0380 EOF┆
0x24540…24560 3a 3d 28 53 54 41 54 55 53 28 46 4e 41 56 4e 24 29 3d 31 39 29 1d 10 30 33 39 30 20 45 4e 44 50 ┆:=(STATUS(FNAVN$)=19) 0390 ENDP┆
0x24560…24580 52 4f 43 20 45 4f 46 10 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ROC EOF cccccccccccccccccccccc┆
0x24580…245a0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x3…]
0x24600…24700 (18, 0, 7) 0x63[0x100]
[…0x3…]
0x24a00…24a20 (18, 0, 11) ExtentHdr {name=»KOPI «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0025,04 (0x025400)}, f99=00 00 00 ff 00 00 00 00 00 00 ┆ ┆}
0x24a20…24a40 2d 00 01 31 30 20 41 00 4c 61 72 73 20 48 61 6e 73 65 6e 00 47 79 76 65 6c 76 65 6a 20 33 36 00 ┆- 10 A Lars Hansen Gyvelvej 36 ┆
0x24a40…24a60 37 37 37 37 20 20 53 6f 76 65 72 75 70 00 2d 32 00 03 62 31 31 00 50 45 54 45 52 20 4b 52 49 53 ┆7777 Soverup -2 b11 PETER KRIS┆
0x24a60…24a80 54 45 4e 53 45 4e 00 5c 53 54 45 52 47 41 44 45 20 38 00 39 39 39 39 20 20 44 41 54 41 42 4f 52 ┆TENSEN ØSTERGADE 8 9999 DATABOR┆
0x24a80…24aa0 47 00 32 31 00 03 42 31 34 00 4d 49 4b 41 45 4c 20 48 41 4e 53 45 4e 00 42 4c 4f 4d 53 54 45 52 ┆G 21 B14 MIKAEL HANSEN BLOMSTER┆
0x24aa0…24ac0 56 5b 4e 47 45 54 20 38 00 37 38 30 30 20 20 53 4b 49 56 45 00 31 2c 00 04 31 30 20 41 00 4c 65 ┆VÆNGET 8 7800 SKIVE 1, 10 A Le┆
0x24ac0…24ae0 6e 61 20 48 61 6e 73 65 6e 00 42 69 74 67 61 64 65 20 30 31 00 30 31 30 31 20 20 4b 69 6c 6f 72 ┆na Hansen Bitgade 01 0101 Kilor┆
0x24ae0…24b00 61 6d 00 2c 34 00 05 31 30 20 42 00 56 69 67 67 6f 20 4d 69 6b 6b 65 6c 73 65 6e 00 56 65 73 74 ┆am ,4 10 B Viggo Mikkelsen Vest┆
0x24b00…24b20 (18, 0, 12) 65 72 67 61 64 65 20 34 00 36 36 36 36 20 20 4e 65 64 62 79 6f 76 65 72 00 34 26 00 06 42 31 35 ┆ergade 4 6666 Nedbyover 4& B15┆
0x24b20…24b40 00 4b 41 52 4c 4f 20 48 41 4e 53 45 4e 00 20 00 30 30 30 30 20 20 56 49 4b 4b 45 4c 42 4f 52 47 ┆ KARLO HANSEN 0000 VIKKELBORG┆
0x24b40…24b60 00 26 00 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ & ccccccccccccccccccccccccccc┆
0x24b60…24b80 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x4…]
0x24c00…24d00 (18, 0, 13) 0x63[0x100]
[…0x7…]
0x25400…25420 (18, 1, 5) ExtentHdr {name=»VESTER «, typ=»K«, seg=»A«, next=0x00, basis=0x0013, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0026,07 (0x026700)}, f99=41 25 00 5f 00 00 00 00 00 00 ┆A% _ ┆}
0x25420…25440 00 01 42 31 34 00 50 45 54 45 52 20 41 4e 44 45 52 53 45 4e 00 56 45 53 54 45 52 47 41 44 45 20 ┆ B14 PETER ANDERSEN VESTERGADE ┆
0x25440…25460 34 34 00 37 35 30 30 20 48 4f 4c 53 54 45 42 52 4f 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆44 7500 HOLSTEBRO ┆
0x25460…25480 20 20 20 20 20 20 20 20 20 20 20 20 00 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x25480…254a0 02 42 31 35 00 48 41 4e 53 20 41 4e 44 45 52 53 45 4e 00 56 45 53 54 52 45 20 42 4f 55 4c 45 56 ┆ B15 HANS ANDERSEN VESTRE BOULEV┆
0x254a0…254c0 41 52 44 20 32 00 37 35 30 30 20 48 4f 4c 53 54 45 42 52 4f 00 20 20 20 20 20 20 20 20 20 20 20 ┆ARD 2 7500 HOLSTEBRO ┆
0x254c0…254e0 20 20 20 20 20 20 20 20 20 20 20 00 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 03 ┆ ┆
0x254e0…25500 42 39 00 56 49 47 47 4f 20 48 41 4e 53 45 4e 00 56 45 53 54 45 52 47 41 44 45 20 34 34 00 37 35 ┆B9 VIGGO HANSEN VESTERGADE 44 75┆
0x25500…25520 (18, 1, 6) 30 30 20 48 4f 4c 53 54 45 42 52 4f 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆00 HOLSTEBRO ┆
0x25520…25540 20 20 20 20 20 20 20 20 20 20 00 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 42 ┆ B┆
0x25540…25560 31 38 00 4d 49 4b 41 45 4c 20 52 41 53 4d 55 53 53 45 4e 00 56 45 53 54 45 52 47 41 44 45 20 34 ┆18 MIKAEL RASMUSSEN VESTERGADE 4┆
0x25560…25580 34 00 37 35 30 30 20 48 4f 4c 53 54 45 42 52 4f 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆4 7500 HOLSTEBRO ┆
0x25580…255a0 20 20 20 20 20 20 20 20 20 00 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05 42 31 ┆ B1┆
0x255a0…255c0 32 00 56 49 47 47 4f 20 50 4f 55 4c 53 45 4e 00 56 45 53 54 45 52 47 41 44 45 20 31 00 37 35 30 ┆2 VIGGO POULSEN VESTERGADE 1 750┆
0x255c0…255e0 30 20 48 4f 4c 53 54 45 42 52 4f 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆0 HOLSTEBRO ┆
0x255e0…25600 20 20 20 20 20 20 20 20 00 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 63 63 63 63 63 ┆ ccccc┆
0x25600…25700 (18, 1, 7) 0x63[0x100]
[…0x10…]
0x26700…26720 (19, 0, 8) ExtentHdr {name=»INFOTXT «, typ=»K«, seg=»A«, next=0x02, basis=0x000a, nextext={DA 0027,01 (0x027100)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0027,01 (0x027100)}, f99=41 25 00 ff 00 4e 46 4f 54 58 ┆A% NFOTX┆}
0x26720…26740 3e 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆> ******************┆
0x26740…26760 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3e ┆*******************************>┆
0x26760…26780 3e 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆> * ┆
0x26780…267a0 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 2a 3e ┆ *>┆
0x267a0…267c0 3e 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆> * ┆
0x267c0…267e0 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 2a 3e ┆ *>┆
0x267e0…26800 3e 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 20 ┆> * O ┆
0x26800…26820 (19, 0, 9) 56 20 45 20 52 20 53 20 49 20 47 20 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e ┆V E R S I G T *>┆
0x26820…26840 3e 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆> * ┆
0x26840…26860 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 2a 3e ┆ *>┆
0x26860…26880 3e 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆> * ┆
0x26880…268a0 20 20 6f 20 76 20 65 20 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e ┆ o v e r *>┆
0x268a0…268c0 3e 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆> * ┆
0x268c0…268e0 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 2a 3e ┆ *>┆
0x268e0…26900 3e 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 73 61 6d 74 ┆> * samt┆
0x26900…26920 (19, 0, 10) 6c 69 67 65 20 70 72 6f 67 72 61 6d 6d 65 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e ┆lige programmer *>┆
0x26920…26940 3e 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆> * ┆
0x26940…26960 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 2a 3e ┆ *>┆
0x26960…26980 3e 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆> * ┆
0x26980…269a0 20 20 20 74 20 69 20 6c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e ┆ t i l *>┆
0x269a0…269c0 3e 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆> * ┆
0x269c0…269e0 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 2a 3e ┆ *>┆
0x269e0…26a00 3e 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 34 20 ┆> * 4 ┆
0x26a00…26a20 (19, 0, 11) 20 2a 20 20 43 20 4f 20 4d 20 41 20 4c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e ┆ * C O M A L *>┆
0x26a20…26a40 3e 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 2d 2d ┆> * ---┆
0x26a40…26a60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e ┆-------------- *>┆
0x26a60…26a80 3e 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆> * ┆
0x26a80…26aa0 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 2a 3e ┆ *>┆
0x26aa0…26ac0 3e 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆> ******************┆
0x26ac0…26ae0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3e ┆*******************************>┆
0x26ae0…26b00 01 20 01 01 20 01 4a 4e 42 3a 20 4b 75 6e 20 64 65 20 66 7c 72 73 74 65 20 38 20 74 65 67 6e 20 ┆ JNB: Kun de første 8 tegn ┆
0x26b00…26b20 (19, 0, 12) 61 66 20 6e 61 76 6e 65 6e 65 20 20 73 6b 61 6c 20 62 72 75 67 65 73 20 76 65 64 20 6b 61 6c 64 ┆af navnene skal bruges ved kald┆
0x26b20…26b40 20 61 66 20 70 72 6f 67 72 61 6d 6d 65 72 6e 65 2e 4a 01 20 01 3f 4b 61 70 69 74 65 6c 20 34 2e ┆ af programmerne.J ?Kapitel 4.┆
0x26b40…26b60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4b 61 70 69 74 65 6c 20 36 2e 20 20 20 20 20 20 20 ┆ Kapitel 6. ┆
0x26b60…26b80 20 20 20 20 20 20 20 20 20 20 20 4b 61 70 69 74 65 6c 20 37 2e 3f 3f 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ Kapitel 7.??---------┆
0x26b80…26ba0 2d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 20 20 20 20 ┆- ---------- ┆
0x26ba0…26bc0 20 20 20 20 20 20 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3f 01 20 01 49 5c 76 65 6c 73 ┆ ----------? IØvels┆
0x26bc0…26be0 65 20 42 3a 20 20 20 48 41 4e 53 20 20 20 20 20 20 20 20 20 20 5c 76 65 6c 73 65 20 44 3a 20 20 ┆e B: HANS Øvelse D: ┆
0x26be0…26c00 20 54 45 52 4e 49 4e 47 32 20 20 20 20 20 20 20 5c 76 65 6c 73 65 20 42 3a 20 20 20 45 4b 53 4d ┆ TERNING2 Øvelse B: EKSM┆
0x26c00…26c20 (19, 0, 13) 44 31 20 20 49 4b 5c 76 65 6c 73 65 20 43 3a 20 20 20 48 41 56 52 45 4e 20 20 20 20 20 20 20 20 ┆D1 IKØvelse C: HAVREN ┆
0x26c20…26c40 5c 76 65 6c 73 65 20 51 3a 20 20 20 52 41 4d 4d 45 20 20 20 20 20 20 20 20 20 20 5c 76 65 6c 73 ┆Øvelse Q: RAMME Øvels┆
0x26c40…26c60 65 20 46 3a 20 20 20 56 41 52 45 4e 55 4d 4d 65 72 4b 48 4f 70 67 2e 20 34 2e 31 3a 20 20 20 52 ┆e F: VARENUMMerKHOpg. 4.1: R┆
0x26c60…26c80 55 4d 46 41 4e 47 20 20 20 20 20 20 20 4f 70 67 2e 20 36 2e 31 3a 20 20 20 43 49 52 4b 45 4c 20 ┆UMFANG Opg. 6.1: CIRKEL ┆
0x26c80…26ca0 20 20 20 20 20 20 20 20 4f 70 67 2e 20 37 2e 31 3a 20 20 20 4f 56 45 52 46 4c 31 48 49 4f 70 67 ┆ Opg. 7.1: OVERFL1HIOpg┆
0x26ca0…26cc0 2e 20 34 2e 32 3a 20 20 20 4c 5c 4e 53 45 44 44 45 6c 20 20 20 20 20 4f 70 67 2e 20 36 2e 32 3a ┆. 4.2: LØNSEDDEl Opg. 6.2:┆
0x26cc0…26ce0 20 20 20 47 55 4c 44 20 20 20 20 20 20 20 20 20 20 20 4f 70 67 2e 20 37 2e 32 3a 20 20 20 50 4f ┆ GULD Opg. 7.2: PO┆
0x26ce0…26d00 53 54 54 41 4b 31 49 49 4f 70 67 2e 20 34 2e 33 3a 20 20 20 50 5d 53 4b 45 44 41 47 20 20 20 20 ┆STTAK1IIOpg. 4.3: PÅSKEDAG ┆
0x26d00…26d20 (19, 0, 14) 20 20 4f 70 67 2e 20 36 2e 33 3a 20 20 20 4f 56 45 52 46 4c 41 44 65 20 20 20 20 20 20 20 20 20 ┆ Opg. 6.3: OVERFLADe ┆
0x26d20…26d40 20 20 20 20 20 20 20 20 20 50 4f 53 54 54 41 4b 32 49 49 4f 70 67 2e 20 34 2e 34 3a 20 20 20 41 ┆ POSTTAK2IIOpg. 4.4: A┆
0x26d40…26d60 46 53 54 41 4e 44 20 20 20 20 20 20 20 4f 70 67 2e 20 36 2e 34 3a 20 20 20 46 41 48 52 45 4e 48 ┆FSTAND Opg. 6.4: FAHRENH┆
0x26d60…26d80 45 69 74 20 20 20 20 20 4f 70 67 2e 20 37 2e 33 3a 20 20 20 41 4e 44 45 4e 47 52 31 49 49 4f 70 ┆Eit Opg. 7.3: ANDENGR1IIOp┆
0x26d80…26da0 67 2e 20 34 2e 35 3a 20 20 20 50 45 52 53 4f 4e 4e 55 6d 6d 65 72 20 20 4f 70 67 2e 20 36 2e 35 ┆g. 4.5: PERSONNUmmer Opg. 6.5┆
0x26da0…26dc0 3a 20 20 20 52 45 4e 54 45 46 4f 44 20 20 20 20 20 20 20 4f 70 67 2e 20 37 2e 34 3a 20 20 20 54 ┆: RENTEFOD Opg. 7.4: T┆
0x26dc0…26de0 4f 50 50 4b 54 31 20 49 49 4f 70 67 2e 20 34 2e 36 3a 20 20 20 4a 59 4c 4c 41 4e 44 20 20 20 20 ┆OPPKT1 IIOpg. 4.6: JYLLAND ┆
0x26de0…26e00 20 20 20 4f 70 67 2e 20 36 2e 37 3a 20 20 20 52 45 4e 54 45 46 32 20 20 20 20 20 20 20 20 4f 70 ┆ Opg. 6.7: RENTEF2 Op┆
0x26e00…26e20 (19, 0, 15) 67 2e 20 37 2e 35 3a 20 20 20 52 55 4d 46 41 4e 47 31 49 4a 4f 70 67 2e 20 34 2e 37 3a 20 20 20 ┆g. 7.5: RUMFANG1IJOpg. 4.7: ┆
0x26e20…26e40 4b 4c 5c 52 5f 54 45 53 74 20 20 20 20 20 4f 70 67 2e 20 36 2e 38 3a 20 20 20 53 41 4c 47 53 50 ┆KLØR_TESt Opg. 6.8: SALGSP┆
0x26e40…26e60 52 31 20 20 20 20 20 20 20 4f 70 67 2e 20 37 2e 36 3a 20 20 20 42 49 42 4c 49 4f 54 45 6b 4a 36 ┆R1 Opg. 7.6: BIBLIOTEkJ6┆
0x26e60…26e80 2d 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 4f 70 67 2e 20 36 ┆- Opg. 6┆
0x26e80…26ea0 2e 39 3a 20 20 20 52 45 4e 54 45 20 20 20 20 20 20 20 20 20 20 2d 36 36 2d 20 20 20 20 20 20 20 ┆.9: RENTE -66- ┆
0x26ea0…26ec0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 70 67 2e 20 36 2e 31 30 3a 20 20 53 41 ┆ Opg. 6.10: SA┆
0x26ec0…26ee0 4d 52 45 4e 54 45 20 20 20 20 20 20 20 2d 36 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆MRENTE -66 ┆
0x26ee0…26f00 20 20 20 20 20 20 20 20 20 20 4f 70 67 2e 20 36 2e 31 31 3a 20 20 52 55 44 45 52 5f 54 45 73 74 ┆ Opg. 6.11: RUDER_TEst┆
0x26f00…26f20 (19, 0, 16) 20 20 20 20 20 2d 36 01 20 01 01 20 01 40 4b 61 70 69 74 65 6c 20 38 2e 20 20 20 20 20 20 20 20 ┆ -6 @Kapitel 8. ┆
0x26f20…26f40 20 20 20 20 20 20 20 20 4b 61 70 69 74 65 6c 20 39 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ Kapitel 9. ┆
0x26f40…26f60 20 20 20 4b 61 70 69 74 65 6c 20 31 30 2e 40 40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 20 20 20 20 ┆ Kapitel 10.@@---------- ┆
0x26f60…26f80 20 20 20 20 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ---------- ┆
0x26f80…26fa0 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 40 01 20 01 49 5c 76 65 6c 73 65 20 43 3a 20 20 ┆ -----------@ IØvelse C: ┆
0x26fa0…26fc0 20 4d 5d 4e 45 44 32 20 20 20 20 20 20 20 20 45 6b 73 2e 20 31 3a 20 20 20 20 20 4b 45 47 4c 45 ┆ MÅNED2 Eks. 1: KEGLE┆
0x26fc0…26fe0 20 20 20 20 20 20 20 20 20 20 45 6b 73 2e 20 31 3a 20 20 20 20 20 54 52 45 4b 41 4e 54 31 49 49 ┆ Eks. 1: TREKANT1II┆
0x26fe0…27000 4f 70 67 2e 20 38 2e 31 3a 20 20 20 41 4e 44 45 4e 47 52 32 20 20 20 20 20 20 45 6b 73 2e 20 32 ┆Opg. 8.1: ANDENGR2 Eks. 2┆
0x27000…27020 (19, 1, 1) 3a 20 20 20 20 20 4b 55 47 4c 45 20 20 20 20 20 20 20 20 20 20 45 6b 73 2e 20 32 3a 20 20 20 20 ┆: KUGLE Eks. 2: ┆
0x27020…27040 20 54 52 45 4b 41 4e 54 32 49 47 4f 70 67 2e 20 38 2e 32 3a 20 20 20 52 55 4d 46 41 4e 47 32 20 ┆ TREKANT2IGOpg. 8.2: RUMFANG2 ┆
0x27040…27060 20 20 20 20 20 45 6b 73 2e 20 33 3a 20 20 20 20 20 53 41 4c 47 53 50 52 33 20 20 20 20 20 20 20 ┆ Eks. 3: SALGSPR3 ┆
0x27060…27080 45 6b 73 2e 20 33 3a 20 20 20 20 20 41 46 52 55 4e 44 47 44 4f 70 67 2e 20 38 2e 33 3a 20 20 20 ┆Eks. 3: AFRUNDGDOpg. 8.3: ┆
0x27080…270a0 4f 56 45 52 46 4c 32 20 20 20 20 20 20 20 4f 70 67 2e 20 39 2e 31 3a 20 20 20 46 4c 59 42 49 4c ┆OVERFL2 Opg. 9.1: FLYBIL┆
0x270a0…270c0 4c 45 74 20 20 20 20 20 20 45 6b 73 2e 20 34 3a 20 20 20 20 20 4d 41 58 44 4b 4f 70 67 2e 20 38 ┆LEt Eks. 4: MAXDKOpg. 8┆
0x270c0…270e0 2e 34 3a 20 20 20 50 4f 53 54 54 41 4b 33 20 20 20 20 20 20 4f 70 67 2e 20 39 2e 32 3a 20 20 20 ┆.4: POSTTAK3 Opg. 9.2: ┆
0x270e0…27100 4b 41 53 53 45 20 20 20 20 20 20 20 20 20 20 45 6b 73 2e 20 35 3a 20 20 20 20 20 46 55 4e 43 5f ┆KASSE Eks. 5: FUNC_┆
0x27100…27120 (19, 1, 2) ExtentHdr {name=»INFOTXT «, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0027,0b (0x027b00)}, prevext={DA 0026,07 (0x026700)}, nextfile={DA 0027,0b (0x027b00)}, f99=41 25 00 20 00 4e 46 4f 54 58 ┆A% NFOTX┆}
0x27120…27140 48 45 52 6f 6e 4b 4c 4f 70 67 2e 20 38 2e 35 3a 20 20 20 4d 5d 4e 45 44 33 20 20 20 20 20 20 20 ┆HERonKLOpg. 8.5: MÅNED3 ┆
0x27140…27160 20 4f 70 67 2e 20 39 2e 33 3a 20 20 20 41 4e 44 45 4e 47 52 33 20 20 20 20 20 20 20 45 6b 73 2e ┆ Opg. 9.3: ANDENGR3 Eks.┆
0x27160…27180 20 36 3a 20 20 20 20 20 47 41 46 46 45 4c 5f 46 75 6e 63 4c 49 4f 70 67 2e 20 38 2e 36 3a 20 20 ┆ 6: GAFFEL_FuncLIOpg. 8.6: ┆
0x27180…271a0 20 50 41 4b 4b 45 50 4f 53 74 20 20 20 20 20 4f 70 67 2e 20 39 2e 34 3a 20 20 20 52 55 4d 46 41 ┆ PAKKEPOSt Opg. 9.4: RUMFA┆
0x271a0…271c0 4e 47 33 20 20 20 20 20 20 20 4f 70 67 2e 20 31 30 2e 31 3a 20 20 54 52 45 4b 41 4e 54 33 49 43 ┆NG3 Opg. 10.1: TREKANT3IC┆
0x271c0…271e0 4f 70 67 2e 20 38 2e 37 3a 20 20 20 55 44 4c 41 4e 44 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆Opg. 8.7: UDLAND ┆
0x271e0…27200 20 20 20 20 20 20 52 55 4d 46 41 4e 47 34 20 20 20 20 20 20 20 4f 70 67 2e 20 31 30 2e 32 3a 20 ┆ RUMFANG4 Opg. 10.2: ┆
0x27200…27220 (19, 1, 3) 20 50 48 43 48 2d 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 4f ┆ PHCH- O┆
0x27220…27240 70 67 2e 20 39 2e 35 3a 20 20 20 49 44 45 41 4c 56 5b 47 74 20 20 20 20 20 20 4f 70 67 2e 20 31 ┆pg. 9.5: IDEALVÆGt Opg. 1┆
0x27240…27260 30 2e 33 3a 20 20 4d 49 4e 49 4d 55 4d 48 47 2d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆0.3: MINIMUMHG- ┆
0x27260…27280 20 20 20 20 20 20 20 20 20 4f 70 67 2e 20 39 2e 36 3a 20 20 20 48 45 52 4f 4e 33 20 20 20 20 20 ┆ Opg. 9.6: HERON3 ┆
0x27280…272a0 20 20 20 20 4f 70 67 2e 20 31 30 2e 34 3a 20 20 43 4f 53 48 59 50 47 48 2d 20 20 20 20 20 20 20 ┆ Opg. 10.4: COSHYPGH- ┆
0x272a0…272c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 70 67 2e 20 39 2e 37 3a 20 20 20 54 52 ┆ Opg. 9.7: TR┆
0x272c0…272e0 45 4b 41 4e 54 38 20 20 20 20 20 20 20 4f 70 67 2e 20 31 30 2e 35 3a 20 20 41 4e 54 49 4c 4f 47 ┆EKANT8 Opg. 10.5: ANTILOG┆
0x272e0…27300 48 46 2d 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 4f 70 67 2e ┆HF- Opg.┆
0x27300…27320 (19, 1, 4) 20 39 2e 38 3a 20 20 20 53 4c 55 54 53 4b 31 20 20 20 20 20 20 20 20 4f 70 67 2e 20 31 30 2e 36 ┆ 9.8: SLUTSK1 Opg. 10.6┆
0x27320…27340 3a 20 20 4c 4f 47 31 30 46 4e 2d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆: LOG10FN- ┆
0x27340…27360 20 20 20 20 2d 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 4f ┆ - O┆
0x27360…27380 70 67 2e 20 31 30 2e 37 3a 20 20 54 52 49 47 4f 4e 4f 4d 65 74 72 69 20 4e 4b 2d 20 20 20 20 20 ┆pg. 10.7: TRIGONOMetri NK- ┆
0x27380…273a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 20 20 20 20 20 20 20 20 20 20 20 ┆ - ┆
0x273a0…273c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 70 67 2e 20 31 30 2e 38 3a 20 20 4c 49 47 45 5f ┆ Opg. 10.8: LIGE_┆
0x273c0…273e0 55 4c 49 67 65 4b 44 2d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ULIgeKD- ┆
0x273e0…27400 20 2d 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 4f 70 67 2e ┆ - Opg.┆
0x27400…27420 (19, 1, 5) 20 31 30 2e 39 3a 20 20 53 46 44 44 47 2d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 10.9: SFDDG- ┆
0x27420…27440 20 20 20 20 20 20 20 2d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ - ┆
0x27440…27460 20 20 4f 70 67 2e 20 31 30 2e 31 30 3a 20 49 4e 56 45 52 53 47 4a 2d 20 20 20 20 20 20 20 20 20 ┆ Opg. 10.10: INVERSGJ- ┆
0x27460…27480 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ - ┆
0x27480…274a0 20 20 20 20 20 20 20 20 20 20 20 4f 70 67 2e 20 31 30 2e 31 31 3a 20 43 4f 53 5f 52 45 4c 41 74 ┆ Opg. 10.11: COS_RELAt┆
0x274a0…274c0 4a 01 20 01 01 20 01 40 4b 61 70 69 74 65 6c 20 31 31 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆J @Kapitel 11. ┆
0x274c0…274e0 20 20 4b 61 70 69 74 65 6c 20 31 32 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4b 61 70 ┆ Kapitel 12. Kap┆
0x274e0…27500 69 74 65 6c 20 31 33 2e 40 40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 20 20 20 20 20 20 20 20 20 ┆itel 13.@@----------- ┆
0x27500…27520 (19, 1, 6) 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d ┆ ----------- -┆
0x27520…27540 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 40 01 20 01 4c 45 6b 73 2e 20 31 31 2e 37 3a 20 20 55 52 20 20 20 ┆----------@ LEks. 11.7: UR ┆
0x27540…27560 20 20 20 20 20 20 20 20 20 5c 76 65 6c 73 65 20 42 3a 20 20 20 52 45 53 54 53 4b 41 54 20 20 20 ┆ Øvelse B: RESTSKAT ┆
0x27560…27580 20 20 20 20 4f 70 67 2e 20 31 33 2e 31 3a 20 20 52 45 4a 53 45 42 55 52 65 61 75 4c 4b 4f 70 67 ┆ Opg. 13.1: REJSEBUReauLKOpg┆
0x27580…275a0 2e 20 31 31 2e 31 3a 20 20 4d 5c 4e 54 4b 41 53 54 20 20 20 20 20 20 45 6b 73 2e 20 33 3a 20 20 ┆. 11.1: MØNTKAST Eks. 3: ┆
0x275a0…275c0 20 20 20 53 54 52 45 4e 47 4c 5b 6e 67 64 65 20 20 20 4f 70 67 2e 20 31 33 2e 32 3a 20 20 4d 5d ┆ STRENGLÆngde Opg. 13.2: MÅ┆
0x275c0…275e0 4e 45 44 5f 4e 41 76 6e 4b 4b 4f 70 67 2e 20 31 31 2e 32 3a 20 20 44 49 56 49 53 4f 52 45 72 20 ┆NED_NAvnKKOpg. 11.2: DIVISOREr ┆
0x275e0…27600 20 20 20 20 5c 76 65 6c 73 65 20 4d 3a 20 20 20 47 52 5c 4e 4e 45 20 20 20 20 20 20 20 20 20 4f ┆ Øvelse M: GRØNNE O┆
0x27600…27620 (19, 1, 7) 70 67 2e 20 31 33 2e 33 3a 20 20 53 54 4a 45 52 4e 45 52 6e 65 4b 49 4f 70 67 2e 20 31 31 2e 33 ┆pg. 13.3: STJERNERneKIOpg. 11.3┆
0x27620…27640 3a 20 20 46 5b 4c 4c 45 53 44 49 76 20 20 20 20 20 4f 70 67 2e 20 31 32 2e 31 3a 20 20 4a 55 4c ┆: FÆLLESDIv Opg. 12.1: JUL┆
0x27640…27660 45 42 52 45 56 20 20 20 20 20 20 20 4f 70 67 2e 20 31 33 2e 34 3a 20 20 53 50 49 4c 31 5f 4b 4f ┆EBREV Opg. 13.4: SPIL1_KO┆
0x27660…27680 49 49 4f 70 67 2e 20 31 31 2e 34 3a 20 20 50 52 49 4d 54 41 4c 20 20 20 20 20 20 20 4f 70 67 2e ┆IIOpg. 11.4: PRIMTAL Opg.┆
0x27680…276a0 20 31 32 2e 32 3a 20 20 41 42 43 5f 53 4f 52 54 65 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 12.2: ABC_SORTer ┆
0x276a0…276c0 20 20 20 53 50 49 4c 32 5f 4b 4f 49 47 4f 70 67 2e 20 31 31 2e 35 3a 20 20 4b 56 41 44 52 41 54 ┆ SPIL2_KOIGOpg. 11.5: KVADRAT┆
0x276c0…276e0 54 61 6c 20 20 20 20 4f 70 67 2e 20 31 32 2e 33 3a 20 20 41 4e 41 4c 59 53 45 20 20 20 20 20 20 ┆Tal Opg. 12.3: ANALYSE ┆
0x276e0…27700 20 20 4f 70 67 2e 20 31 33 2e 35 3a 20 20 45 58 41 4d 45 4e 47 47 4f 70 67 2e 20 31 31 2e 36 3a ┆ Opg. 13.5: EXAMENGGOpg. 11.6:┆
0x27700…27720 (19, 1, 8) 20 20 42 5c 44 45 20 20 20 20 20 20 20 20 20 20 4f 70 67 2e 20 31 32 2e 34 3a 20 20 53 4b 4f 4c ┆ BØDE Opg. 12.4: SKOL┆
0x27720…27740 45 42 5c 47 65 72 20 20 20 20 20 4f 70 67 2e 20 31 33 2e 36 3a 20 20 41 4b 54 49 45 52 47 47 4f ┆EBØGer Opg. 13.6: AKTIERGGO┆
0x27740…27760 70 67 2e 20 31 31 2e 37 3a 20 20 55 44 53 50 52 49 4e 47 20 20 20 20 20 20 4f 70 67 2e 20 31 32 ┆pg. 11.7: UDSPRING Opg. 12┆
0x27760…27780 2e 35 3a 20 20 45 4b 53 5f 4f 52 44 32 20 20 20 20 20 20 20 4f 70 67 2e 20 31 33 2e 37 3a 20 20 ┆.5: EKS_ORD2 Opg. 13.7: ┆
0x27780…277a0 45 55 52 4f 50 41 47 4d 4f 70 67 2e 20 31 31 2e 38 3a 20 20 50 45 52 53 4f 4e 4e 55 6d 6d 65 72 ┆EUROPAGMOpg. 11.8: PERSONNUmmer┆
0x277a0…277c0 20 20 4f 70 67 2e 20 31 32 2e 36 3a 20 20 50 4f 4c 59 47 4f 4e 20 20 20 20 20 20 20 20 4f 70 67 ┆ Opg. 12.6: POLYGON Opg┆
0x277c0…277e0 2e 20 31 33 2e 38 3a 20 20 48 4a 45 52 54 45 52 5f 74 65 73 74 4d 36 4f 70 67 2e 20 31 31 2e 39 ┆. 13.8: HJERTER_testM6Opg. 11.9┆
0x277e0…27800 3a 20 20 43 50 52 4e 55 4d 52 45 20 20 20 20 20 20 4f 70 67 2e 20 31 32 2e 37 3a 20 20 4f 50 4c ┆: CPRNUMRE Opg. 12.7: OPL┆
0x27800…27820 (19, 1, 9) 59 53 4e 49 4e 67 20 20 20 20 20 20 2d 36 36 4f 70 67 2e 20 31 31 2e 31 30 3a 20 53 54 59 52 54 ┆YSNINg -66Opg. 11.10: STYRT┆
0x27820…27840 4c 5c 42 20 20 20 20 20 20 2d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆LØB - ┆
0x27840…27860 20 20 20 20 2d 36 36 4f 70 67 2e 20 31 31 2e 31 31 3a 20 53 59 50 49 47 45 54 49 70 73 20 20 20 ┆ -66Opg. 11.11: SYPIGETIps ┆
0x27860…27880 20 2d 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 2d 36 36 4f ┆ - -66O┆
0x27880…278a0 70 67 2e 20 31 31 2e 31 32 3a 20 41 44 44 49 54 49 4f 4e 20 20 20 20 20 20 2d 20 20 20 20 20 20 ┆pg. 11.12: ADDITION - ┆
0x278a0…278c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 36 36 4f 70 67 2e 20 31 31 2e 31 ┆ -66Opg. 11.1┆
0x278c0…278e0 33 3a 20 46 49 42 4f 4e 41 43 43 69 20 20 20 20 20 2d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆3: FIBONACCi - ┆
0x278e0…27900 20 20 20 20 20 20 20 20 20 20 20 20 2d 36 38 4f 70 67 2e 20 31 31 2e 31 34 3a 20 46 55 4e 4b 54 ┆ -68Opg. 11.14: FUNKT┆
0x27900…27920 (19, 1, 10) 49 4f 4e 5f 67 20 20 20 20 2d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ION_g - ┆
0x27920…27940 20 20 20 20 2d 20 20 38 36 4f 70 67 2e 20 31 31 2e 31 36 3a 20 48 55 4e 44 52 45 44 45 20 20 20 ┆ - 86Opg. 11.16: HUNDREDE ┆
0x27940…27960 20 20 20 2d 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 2d 36 ┆ - -6┆
0x27960…27980 36 4f 70 67 2e 20 31 31 2e 31 37 3a 20 41 4e 4e 55 49 54 45 54 20 20 20 20 20 20 2d 20 20 20 20 ┆6Opg. 11.17: ANNUITET - ┆
0x27980…279a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 36 1b 20 20 20 20 20 20 20 ┆ -6 ┆
0x279a0…279c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 1b 01 20 01 40 4b 61 70 69 74 65 6c ┆ @Kapitel┆
0x279c0…279e0 20 31 34 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4b 61 70 69 74 65 6c 20 31 35 2e 20 20 ┆ 14. Kapitel 15. ┆
0x279e0…27a00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4b 61 70 69 74 65 6c 20 31 36 2e 40 40 2d 2d 2d 2d 2d ┆ Kapitel 16.@@-----┆
0x27a00…27a20 (19, 1, 11) 2d 2d 2d 2d 2d 2d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆------ -----------┆
0x27a20…27a40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 40 01 20 01 47 ┆ -----------@ G┆
0x27a40…27a60 45 6b 73 2e 20 31 3a 20 20 20 20 20 44 45 4d 4f 53 45 4b 56 65 6e 74 20 20 20 45 6b 73 2e 20 31 ┆Eks. 1: DEMOSEKVent Eks. 1┆
0x27a60…27a80 3a 20 20 20 20 20 44 45 4d 4f 5f 52 41 4e 64 6f 6d 20 20 20 20 45 6b 73 2e 20 36 3a 20 20 20 20 ┆: DEMO_RANdom Eks. 6: ┆
0x27a80…27aa0 20 52 45 56 45 52 53 47 49 5c 76 65 6c 73 65 20 45 3a 20 20 20 44 45 4d 4f 5f 45 4f 46 20 20 20 ┆ REVERSGIØvelse E: DEMO_EOF ┆
0x27aa0…27ac0 20 20 20 4f 70 67 2e 20 31 35 2e 31 3a 20 20 4b 4f 50 49 5f 53 45 4b 76 20 20 20 20 20 20 5c 76 ┆ Opg. 15.1: KOPI_SEKv Øv┆
0x27ac0…27ae0 65 6c 73 65 20 43 3a 20 20 20 53 5c 4a 4c 45 53 55 4d 49 46 4f 70 67 2e 20 31 34 2e 31 3a 20 20 ┆else C: SØJLESUMIFOpg. 14.1: ┆
0x27ae0…27b00 44 45 4d 4f 5f 32 20 20 20 20 20 20 20 20 4f 70 67 2e 20 31 35 2e 32 3a 20 20 4b 4f 50 49 5f 44 ┆DEMO_2 Opg. 15.2: KOPI_D┆
0x27b00…27b20 (19, 1, 12) ExtentHdr {name=»INFOTXT «, typ=»K«, seg=»C«, next=0x02, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0027,01 (0x027100)}, nextfile={DA 0028,05 (0x028500)}, f99=41 25 00 20 00 4e 46 4f 54 58 ┆A% NFOTX┆}
0x27b20…27b40 49 52 20 20 20 20 20 20 20 4f 70 67 2e 20 31 36 2e 31 3a 20 20 4f 4d 42 59 54 46 48 4f 70 67 2e ┆IR Opg. 16.1: OMBYTFHOpg.┆
0x27b40…27b60 20 31 34 2e 32 3a 20 20 53 4b 4f 4c 45 42 32 20 20 20 20 20 20 20 4f 70 67 2e 20 31 35 2e 33 3a ┆ 14.2: SKOLEB2 Opg. 15.3:┆
0x27b60…27b80 20 20 4b 41 52 54 4f 54 45 4b 20 20 20 20 20 20 20 4f 70 67 2e 20 31 36 2e 32 3a 20 20 46 4f 52 ┆ KARTOTEK Opg. 16.2: FOR┆
0x27b80…27ba0 4b 4f 52 54 48 49 4f 70 67 2e 20 31 34 2e 33 3a 20 20 54 45 4c 45 46 4f 4e 4e 72 20 20 20 20 20 ┆KORTHIOpg. 14.3: TELEFONNr ┆
0x27ba0…27bc0 2d 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 4f 70 67 2e 20 ┆- Opg. ┆
0x27bc0…27be0 31 36 2e 33 3a 20 20 53 55 4d 5f 42 52 5c 31 49 49 4f 70 67 2e 20 31 34 2e 34 3a 20 20 52 45 4a ┆16.3: SUM_BRØ1IIOpg. 14.4: REJ┆
0x27be0…27c00 53 45 42 32 20 20 20 20 20 20 20 2d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆SEB2 - ┆
0x27c00…27c20 (19, 1, 13) 20 20 20 20 20 20 4f 70 67 2e 20 31 36 2e 34 3a 20 20 53 55 4d 5f 42 52 5c 32 49 4c 4f 70 67 2e ┆ Opg. 16.4: SUM_BRØ2ILOpg.┆
0x27c20…27c40 20 31 34 2e 35 3a 20 20 53 54 4a 45 52 4e 32 20 20 20 20 20 20 20 2d 20 20 20 20 20 20 20 20 20 ┆ 14.5: STJERN2 - ┆
0x27c40…27c60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 70 67 2e 20 31 36 2e 35 3a 20 20 52 45 47 ┆ Opg. 16.5: REG┆
0x27c60…27c80 4e 45 4f 50 47 61 76 65 4c 46 4f 70 67 2e 20 31 34 2e 36 3a 20 20 49 53 45 4e 4b 52 5b 4d 20 20 ┆NEOPGaveLFOpg. 14.6: ISENKRÆM ┆
0x27c80…27ca0 20 20 20 20 2d 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 4f ┆ - O┆
0x27ca0…27cc0 70 67 2e 20 31 36 2e 36 3a 20 20 42 4c 49 4e 4b 46 4a 4f 70 67 2e 20 31 34 2e 37 3a 20 20 44 45 ┆pg. 16.6: BLINKFJOpg. 14.7: DE┆
0x27cc0…27ce0 4d 4f 5f 33 20 20 20 20 20 20 20 20 2d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆MO_3 - ┆
0x27ce0…27d00 20 20 20 20 20 20 20 4f 70 67 2e 20 31 36 2e 37 3a 20 20 4a 4f 55 52 4e 41 4c 4e 72 4a 46 4f 70 ┆ Opg. 16.7: JOURNALNrJFOp┆
0x27d00…27d20 (19, 1, 14) 67 2e 20 31 34 2e 38 3a 20 20 44 45 4d 4f 5f 34 20 20 20 20 20 20 20 20 2d 20 20 20 20 20 20 20 ┆g. 14.8: DEMO_4 - ┆
0x27d20…27d40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 70 67 2e 20 31 36 2e 38 3a 20 20 53 ┆ Opg. 16.8: S┆
0x27d40…27d60 43 4f 52 45 46 4a 2d 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 ┆COREFJ- ┆
0x27d60…27d80 2d 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 4f 70 67 2e 20 ┆- Opg. ┆
0x27d80…27da0 31 36 2e 39 3a 20 20 53 50 41 52 5f 54 45 53 74 4a 01 20 01 01 20 01 25 20 20 20 20 20 20 20 20 ┆16.9: SPAR_TEStJ % ┆
0x27da0…27dc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4b 61 70 69 74 65 6c 20 31 38 2e 25 25 20 ┆ Kapitel 18.%% ┆
0x27dc0…27de0 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 2d 2d 2d 2d 2d 2d 2d ┆ -------┆
0x27de0…27e00 2d 2d 2d 2d 25 01 20 01 49 4f 70 67 2e 20 31 38 2e 31 3a 20 20 4d 41 58 5f 4d 49 4e 20 20 20 20 ┆----% IOpg. 18.1: MAX_MIN ┆
0x27e00…27e20 (19, 1, 15) 20 20 20 4f 70 67 2e 20 31 38 2e 37 3a 20 20 42 49 4e 5b 52 5f 31 20 20 20 20 20 20 20 20 4f 70 ┆ Opg. 18.7: BINÆR_1 Op┆
0x27e20…27e40 67 2e 20 31 38 2e 31 33 3a 20 53 49 4d 50 53 4f 4e 20 49 4a 4f 70 67 2e 20 31 38 2e 32 3a 20 20 ┆g. 18.13: SIMPSON IJOpg. 18.2: ┆
0x27e40…27e60 53 54 4f 50 55 52 20 20 20 20 20 20 20 20 4f 70 67 2e 20 31 38 2e 38 3a 20 20 42 49 4e 5b 52 5f ┆STOPUR Opg. 18.8: BINÆR_┆
0x27e60…27e80 32 20 20 20 20 20 20 20 20 4f 70 67 2e 20 31 38 2e 31 34 3a 20 42 49 53 45 43 54 49 4f 6e 4a 4c ┆2 Opg. 18.14: BISECTIOnJL┆
0x27e80…27ea0 4f 70 67 2e 20 31 38 2e 33 3a 20 20 50 59 54 48 41 47 4f 52 61 73 20 20 20 20 4f 70 67 2e 20 31 ┆Opg. 18.3: PYTHAGORas Opg. 1┆
0x27ea0…27ec0 38 2e 39 3a 20 20 4b 4f 52 52 45 4c 41 54 69 6f 6e 20 20 20 20 4f 70 67 2e 20 31 38 2e 31 35 3a ┆8.9: KORRELATion Opg. 18.15:┆
0x27ec0…27ee0 20 4b 52 4f 4e 45 46 4f 52 6d 61 74 4c 4d 4f 70 67 2e 20 31 38 2e 34 3a 20 20 52 45 54 5f 4c 49 ┆ KRONEFORmatLMOpg. 18.4: RET_LI┆
0x27ee0…27f00 4e 49 65 20 20 20 20 20 4f 70 67 2e 20 31 38 2e 31 30 3a 20 42 49 4e 4f 4d 49 41 4c 20 20 20 20 ┆NIe Opg. 18.10: BINOMIAL ┆
0x27f00…27f20 (19, 1, 16) 20 20 20 4f 70 67 2e 20 31 38 2e 31 36 3a 20 41 46 42 45 54 5f 52 45 6e 74 65 20 4d 4a 4f 70 67 ┆ Opg. 18.16: AFBET_REnte MJOpg┆
0x27f20…27f40 2e 20 31 38 2e 35 3a 20 20 54 52 45 54 54 45 4e 20 20 20 20 20 20 20 4f 70 67 2e 20 31 38 2e 31 ┆. 18.5: TRETTEN Opg. 18.1┆
0x27f40…27f60 31 3a 20 4d 4f 52 53 45 31 20 20 20 20 20 20 20 20 20 4f 70 67 2e 20 31 38 2e 31 37 3a 20 50 41 ┆1: MORSE1 Opg. 18.17: PA┆
0x27f60…27f80 4e 54 45 42 52 45 76 4a 49 4f 70 67 2e 20 31 38 2e 36 3a 20 20 42 52 49 44 47 45 4a 75 6c 20 20 ┆NTEBREvJIOpg. 18.6: BRIDGEJul ┆
0x27f80…27fa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 4f 52 53 45 32 20 20 20 20 20 20 20 20 20 4f 70 ┆ MORSE2 Op┆
0x27fa0…27fc0 67 2e 20 31 38 2e 31 38 3a 20 46 4c 45 54 4e 49 4e 47 49 36 2d 20 20 20 20 20 20 20 20 20 20 20 ┆g. 18.18: FLETNINGI6- ┆
0x27fc0…27fe0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 70 67 2e 20 31 38 2e 31 32 3a 20 46 52 45 4b 56 45 ┆ Opg. 18.12: FREKVE┆
0x27fe0…28000 4e 53 20 20 20 20 20 20 20 2d 36 01 20 01 01 20 01 01 20 01 01 20 01 01 20 01 32 20 20 20 20 20 ┆NS -6 2 ┆
0x28000…28020 (20, 0, 1) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 70 67 61 76 65 73 65 72 76 69 ┆ Opgaveservi┆
0x28020…28040 63 65 3a 20 30 37 2d 31 31 39 30 31 31 32 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ce: 07-1190112 cccccccccccccccc┆
0x28040…28060 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x5…]
0x28100…28200 (20, 0, 2) 0x63[0x100]
[…0x3…]
0x28500…28520 (20, 0, 6) ExtentHdr {name=»OVERFLAD«, typ=»K«, seg=»A«, next=0x00, basis=0x0003, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0028,08 (0x028800)}, f99=41 25 00 fe 00 4e 46 4f 54 58 ┆A% NFOTX┆}
0x28520…28540 41 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 6f ┆A0010 // --------------------- o┆
0x28540…28560 76 65 72 66 6c 61 64 65 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆verflade -----------------------┆
0x28560…28580 2d 2d 41 3a 30 30 32 30 20 2f 2f 20 55 64 72 65 67 6e 65 72 20 6f 76 65 72 66 6c 61 64 65 6e 20 ┆--A:0020 // Udregner overfladen ┆
0x28580…285a0 61 66 20 65 6e 20 6b 61 73 73 65 2c 20 6e 7d 72 20 6d 61 6e 20 69 6e 64 74 61 73 74 65 72 3a 27 ┆af en kasse, når man indtaster:'┆
0x285a0…285c0 30 30 33 30 20 2f 2f 20 6b 61 73 73 65 6e 73 20 6c 7b 6e 67 64 65 2c 20 62 72 65 64 64 65 20 26 ┆0030 // kassens længde, bredde &┆
0x285c0…285e0 20 68 7c 6a 64 65 2e 27 08 30 30 34 30 20 2f 2f 20 08 31 30 30 35 30 20 49 4e 50 55 54 20 22 49 ┆ højde.' 0040 // 10050 INPUT "I┆
0x285e0…28600 6e 64 74 61 73 74 20 6b 61 73 73 65 6e 73 20 62 72 65 64 64 65 3a 20 20 20 20 20 20 22 3a 42 52 ┆ndtast kassens bredde: ":BR┆
0x28600…28620 (20, 0, 7) 45 44 44 45 31 31 30 30 36 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6b 61 73 73 65 6e ┆EDDE110060 INPUT "Indtast kassen┆
0x28620…28640 73 20 6c 7b 6e 67 64 65 3a 20 20 20 20 20 20 22 3a 4c 5b 4e 47 44 45 31 30 30 30 37 30 20 49 4e ┆s længde: ":LÆNGDE100070 IN┆
0x28640…28660 50 55 54 20 22 49 6e 64 74 61 73 74 20 6b 61 73 73 65 6e 73 20 68 7c 6a 64 65 3a 20 20 20 20 20 ┆PUT "Indtast kassens højde: ┆
0x28660…28680 20 20 22 3a 48 5c 4a 44 45 30 08 30 30 38 30 20 2f 2f 20 08 3c 30 30 39 30 20 4f 56 45 52 46 4c ┆ ":HØJDE0 0080 // <0090 OVERFL┆
0x28680…286a0 41 44 45 4e 3a 3d 28 4c 5b 4e 47 44 45 2a 42 52 45 44 44 45 2b 42 52 45 44 44 45 2a 48 5c 4a 44 ┆ADEN:=(LÆNGDE*BREDDE+BREDDE*HØJD┆
0x286a0…286c0 45 2b 48 5c 4a 44 45 2a 4c 5b 4e 47 44 45 29 2a 32 3c 08 30 31 30 30 20 2f 2f 20 08 32 30 31 31 ┆E+HØJDE*LÆNGDE)*2< 0100 // 2011┆
0x286c0…286e0 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 42 72 65 64 64 65 6e 3a 20 20 20 20 23 23 23 23 23 ┆0 PRINT USING "Bredden: #####┆
0x286e0…28700 2e 23 23 20 63 6d 2e 22 3a 42 52 45 44 44 45 32 32 30 31 32 30 20 50 52 49 4e 54 20 55 53 49 4e ┆.## cm.":BREDDE220120 PRINT USIN┆
0x28700…28720 (20, 0, 8) 47 20 22 4c 7b 6e 67 64 65 6e 3a 20 20 20 20 23 23 23 23 23 2e 23 23 20 63 6d 2e 22 3a 4c 5b 4e ┆G "Længden: #####.## cm.":LÆN┆
0x28720…28740 47 44 45 32 31 30 31 33 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 48 7c 6a 64 65 6e 3a 20 20 ┆GDE210130 PRINT USING "Højden: ┆
0x28740…28760 20 20 20 23 23 23 23 23 2e 23 23 20 63 6d 2e 22 3a 48 5c 4a 44 45 31 37 30 31 34 30 20 50 52 49 ┆ #####.## cm.":HØJDE170140 PRI┆
0x28760…28780 4e 54 20 55 53 49 4e 47 20 22 4f 76 65 72 66 6c 61 64 65 6e 3a 23 23 23 23 23 23 2e 23 23 20 63 ┆NT USING "Overfladen:######.## c┆
0x28780…287a0 6d 33 2e 22 3a 4f 56 45 52 46 4c 41 44 45 4e 37 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆m3.":OVERFLADEN7 cccccccccccccc┆
0x287a0…287c0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x2…]
0x28800…28820 (20, 0, 9) ExtentHdr {name=»TREKANT1«, typ=»K«, seg=»A«, next=0x01, basis=0x0002, nextext={DA 0028,0a (0x028a00)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0028,0a (0x028a00)}, f99=41 25 00 fe 00 4e 46 4f 54 58 ┆A% NFOTX┆}
0x28820…28840 3b 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 74 72 65 ┆;0010 // ------------------- tre┆
0x28840…28860 6b 61 6e 74 31 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3b 11 30 30 ┆kant1 ----------------------; 00┆
0x28860…28880 32 30 20 50 49 3a 3d 41 54 4e 28 31 29 2a 34 11 2d 30 30 33 30 20 49 4e 50 55 54 20 22 49 6e 64 ┆20 PI:=ATN(1)*4 -0030 INPUT "Ind┆
0x28880…288a0 74 61 73 74 20 6b 61 74 65 74 65 72 6e 65 20 61 20 6f 67 20 62 3a 20 20 20 22 3a 41 2c 42 2d 14 ┆tast kateterne a og b: ":A,B- ┆
0x288a0…288c0 30 30 34 30 20 43 3a 3d 53 51 52 28 41 2a 41 2b 42 2a 42 29 14 1d 30 30 35 30 20 56 49 4e 4b 45 ┆0040 C:=SQR(A*A+B*B) 0050 VINKE┆
0x288c0…288e0 4c 41 3a 3d 41 54 4e 28 41 2f 42 29 2a 31 38 30 2f 50 49 1d 18 30 30 36 30 20 56 49 4e 4b 45 4c ┆LA:=ATN(A/B)*180/PI 0060 VINKEL┆
0x288e0…28900 42 3a 3d 39 30 2d 56 49 4e 4b 45 4c 41 18 0b 30 30 37 30 20 43 4c 45 41 52 20 0b 0b 30 30 37 35 ┆B:=90-VINKELA 0070 CLEAR 0075┆
0x28900…28920 (20, 0, 10) 20 50 52 49 4e 54 20 0b 18 30 30 38 30 20 50 52 49 4e 54 20 22 61 3a 20 20 20 20 20 20 20 22 3b ┆ PRINT 0080 PRINT "a: ";┆
0x28920…28940 41 18 18 30 30 39 30 20 50 52 49 4e 54 20 22 62 3a 20 20 20 20 20 20 20 22 3b 42 18 0b 30 31 30 ┆A 0090 PRINT "b: ";B 010┆
0x28940…28960 30 20 50 52 49 4e 54 20 0b 37 30 31 31 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 63 20 20 20 ┆0 PRINT 70110 PRINT USING "c ┆
0x28960…28980 20 20 20 20 20 20 20 20 20 20 20 3d 23 23 23 23 2e 23 23 23 20 20 20 20 20 20 20 20 20 20 22 3a ┆ =####.### ":┆
0x28980…289a0 43 37 3d 30 31 32 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 56 69 6e 6b 65 6c 20 41 20 20 20 ┆C7=0120 PRINT USING "Vinkel A ┆
0x289a0…289c0 20 20 20 20 3d 20 23 23 23 2e 23 23 23 20 67 72 61 64 65 72 20 20 20 22 3a 56 49 4e 4b 45 4c 41 ┆ = ###.### grader ":VINKELA┆
0x289c0…289e0 3d 3d 30 31 33 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 56 69 6e 6b 65 6c 20 42 20 20 20 20 ┆==0130 PRINT USING "Vinkel B ┆
0x289e0…28a00 20 20 20 3d 20 23 23 23 2e 23 23 23 20 67 72 61 64 65 72 20 20 20 22 3a 56 49 4e 4b 45 4c 42 3d ┆ = ###.### grader ":VINKELB=┆
0x28a00…28a20 (20, 0, 11) ExtentHdr {name=»TREKANT1«, typ=»K«, seg=»B«, next=0x01, basis=0x0002, nextext={DA 0000,00 (0x000000)}, prevext={DA 0028,08 (0x028800)}, nextfile={DA 0028,0c (0x028c00)}, f99=41 25 00 20 00 4e 46 4f 54 58 ┆A% NFOTX┆}
0x28a20…28a40 00 00 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 74 72 65 ┆ 010 // ------------------- tre┆
0x28a40…28a60 6b 61 6e 74 31 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3b 11 30 30 ┆kant1 ----------------------; 00┆
0x28a60…28a80 32 30 20 50 49 3a 3d 41 54 4e 28 31 29 2a 34 11 2d 30 30 33 30 20 49 4e 50 55 54 20 22 49 6e 64 ┆20 PI:=ATN(1)*4 -0030 INPUT "Ind┆
0x28a80…28aa0 74 61 73 74 20 6b 61 74 65 74 65 72 6e 65 20 61 20 6f 67 20 62 3a 20 20 20 22 3a 41 2c 42 2d 14 ┆tast kateterne a og b: ":A,B- ┆
0x28aa0…28ac0 30 30 34 30 20 43 3a 3d 53 51 52 28 41 2a 41 2b 42 2a 42 29 14 1d 30 30 35 30 20 56 49 4e 4b 45 ┆0040 C:=SQR(A*A+B*B) 0050 VINKE┆
0x28ac0…28ae0 4c 41 3a 3d 41 54 4e 28 41 2f 42 29 2a 31 38 30 2f 50 49 1d 18 30 30 36 30 20 56 49 4e 4b 45 4c ┆LA:=ATN(A/B)*180/PI 0060 VINKEL┆
0x28ae0…28b00 42 3a 3d 39 30 2d 56 49 4e 4b 45 4c 41 18 0b 30 30 37 30 20 43 4c 45 41 52 20 0b 0b 30 30 37 35 ┆B:=90-VINKELA 0070 CLEAR 0075┆
0x28b00…28c00 (20, 0, 12) 0x63[0x100]
0x28c00…28c20 (20, 0, 13) ExtentHdr {name=»STJERNER«, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0029,06 (0x029600)}, f99=41 25 00 fe 00 4e 46 4f 54 58 ┆A% NFOTX┆}
0x28c20…28c40 43 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆C0010 // -----------------------┆
0x28c40…28c60 2d 2d 20 73 74 6a 65 72 6e 65 72 6e 65 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆-- stjernerne ------------------┆
0x28c60…28c80 2d 2d 2d 2d 43 3a 30 30 32 30 20 2f 2f 20 55 64 73 6b 72 69 76 65 72 20 73 74 6a 65 72 6e 65 74 ┆----C:0020 // Udskriver stjernet┆
0x28c80…28ca0 65 67 6e 20 73 61 6d 74 20 64 65 74 20 70 7d 67 7b 6c 64 65 6e 64 65 20 74 69 64 73 72 75 6d 2c ┆egn samt det pågældende tidsrum,┆
0x28ca0…28cc0 3a 25 30 30 33 30 20 2f 2f 20 64 65 72 20 73 76 61 72 65 72 20 74 69 6c 20 73 74 6a 65 72 6e 65 ┆:%0030 // der svarer til stjerne┆
0x28cc0…28ce0 74 65 67 6e 65 74 2e 25 23 30 30 33 35 20 49 4e 54 45 47 45 52 20 54 52 55 45 2c 46 41 4c 53 45 ┆tegnet.%#0035 INTEGER TRUE,FALSE┆
0x28ce0…28d00 2c 46 55 4e 44 45 54 2c 44 41 54 45 23 15 30 30 33 36 20 54 52 55 45 3a 3d 31 3b 46 41 4c 53 45 ┆,FUNDET,DATE# 0036 TRUE:=1;FALSE┆
0x28d00…28d20 (20, 0, 14) 3a 3d 30 15 20 30 30 34 30 20 44 49 4d 20 4e 41 56 4e 24 20 4f 46 20 33 30 2c 54 45 47 4e 24 20 ┆:=0 0040 DIM NAVN$ OF 30,TEGN$ ┆
0x28d20…28d40 4f 46 20 33 30 20 24 30 30 35 30 20 44 49 4d 20 46 5c 44 53 45 4c 53 4d 44 24 20 4f 46 20 33 30 ┆OF 30 $0050 DIM FØDSELSMD$ OF 30┆
0x28d40…28d60 2c 44 41 54 4f 24 20 4f 46 20 36 24 08 30 30 36 30 20 2f 2f 20 08 0b 30 30 37 30 20 43 4c 45 41 ┆,DATO$ OF 6$ 0060 // 0070 CLEA┆
0x28d60…28d80 52 20 0b 0f 30 30 38 30 20 43 55 52 53 4f 52 20 35 2c 35 0f 4a 30 30 39 30 20 50 52 49 4e 54 20 ┆R 0080 CURSOR 5,5 J0090 PRINT ┆
0x28d80…28da0 22 20 49 20 20 20 20 48 20 56 20 49 20 4c 20 4b 20 45 20 54 20 20 20 53 20 54 20 4a 20 45 20 52 ┆" I H V I L K E T S T J E R┆
0x28da0…28dc0 20 4e 20 45 20 54 20 45 20 47 20 4e 20 20 20 45 20 52 20 20 20 20 44 20 55 20 20 20 20 22 3b 4a ┆ N E T E G N E R D U ";J┆
0x28dc0…28de0 16 30 30 39 35 20 50 52 49 4e 54 20 22 46 20 5c 20 44 20 54 20 3f 22 16 0f 30 31 30 30 20 43 55 ┆ 0095 PRINT "F Ø D T ?" 0100 CU┆
0x28de0…28e00 52 53 4f 52 20 35 2c 36 0f 4d 30 31 31 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆RSOR 5,6 M0110 PRINT "----------┆
0x28e00…28e20 (20, 0, 15) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x28e20…28e40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 3b 4d 12 30 31 31 35 20 50 52 ┆---------------------";M 0115 PR┆
0x28e40…28e60 49 4e 54 20 22 2d 2d 2d 2d 2d 22 12 0f 30 31 32 30 20 43 55 52 53 4f 52 20 35 2c 38 0f 48 30 31 ┆INT "-----" 0120 CURSOR 5,8 H01┆
0x28e60…28e80 33 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 66 7c 64 73 65 6c 73 64 61 74 6f 3a 20 20 ┆30 INPUT "Indtast fødselsdato: ┆
0x28e80…28ea0 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 ┆ ┆
0x28ea0…28ec0 22 3a 44 41 54 45 48 10 30 31 34 30 20 43 55 52 53 4f 52 20 35 2c 31 30 10 4d 30 31 35 30 20 49 ┆":DATEH 0140 CURSOR 5,10 M0150 I┆
0x28ec0…28ee0 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 66 7c 64 73 65 6c 73 6d 7d 6e 65 64 20 28 73 6d 7d 20 ┆NPUT "Indtast fødselsmåned (små ┆
0x28ee0…28f00 62 6f 67 73 74 61 76 65 72 29 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 46 5c 44 ┆bogstaver): ":FØD┆
0x28f00…28f20 (20, 0, 16) 53 45 4c 53 4d 44 24 4d 12 30 31 36 30 20 46 55 4e 44 45 54 3a 3d 46 41 4c 53 45 12 10 30 31 37 ┆SELSMD$M 0160 FUNDET:=FALSE 017┆
0x28f20…28f40 30 20 43 55 52 53 4f 52 20 31 2c 32 32 10 08 30 31 38 30 20 2f 2f 20 08 17 30 31 39 30 20 46 4f ┆0 CURSOR 1,22 0180 // 0190 FO┆
0x28f40…28f60 52 20 49 3a 3d 31 20 54 4f 20 32 34 20 44 4f 20 17 1d 30 32 30 30 20 52 45 41 44 20 44 47 31 2c ┆R I:=1 TO 24 DO 0200 READ DG1,┆
0x28f60…28f80 44 47 32 2c 4e 41 56 4e 24 2c 54 45 47 4e 24 1d 3a 30 32 31 30 20 49 46 20 44 41 54 45 3d 3e 44 ┆DG2,NAVN$,TEGN$ :0210 IF DATE=>D┆
0x28f80…28fa0 47 31 20 41 4e 44 20 44 41 54 45 3c 3d 44 47 32 20 41 4e 44 20 46 5c 44 53 45 4c 53 4d 44 24 3d ┆G1 AND DATE<=DG2 AND FØDSELSMD$=┆
0x28fa0…28fc0 4e 41 56 4e 24 20 54 48 45 4e 20 3a 10 30 32 32 30 20 43 55 52 53 4f 52 20 35 2c 31 38 10 3a 30 ┆NAVN$ THEN : 0220 CURSOR 5,18 :0┆
0x28fc0…28fe0 32 33 30 20 50 52 49 4e 54 20 22 44 61 20 64 75 20 65 72 20 66 7c 64 74 20 64 65 6e 20 22 3b 44 ┆230 PRINT "Da du er født den ";D┆
0x28fe0…29000 41 54 45 3b 22 2e 20 22 3b 46 5c 44 53 45 4c 53 4d 44 24 3b 22 2c 20 22 3b 3a 2b 30 32 34 30 20 ┆ATE;". ";FØDSELSMD$;", ";:+0240 ┆
0x29000…29020 (20, 1, 1) 50 52 49 4e 54 20 22 65 72 20 64 75 20 66 7c 64 74 20 69 20 22 3b 54 45 47 4e 24 3b 22 27 73 20 ┆PRINT "er du født i ";TEGN$;"'s ┆
0x29020…29040 74 65 67 6e 2e 22 2b 11 30 32 35 30 20 46 55 4e 44 45 54 3a 3d 54 52 55 45 11 09 30 32 36 30 20 ┆tegn."+ 0250 FUNDET:=TRUE 0260 ┆
0x29040…29060 45 4e 44 20 09 0b 30 32 37 30 20 45 4e 44 49 46 20 0b 0b 30 32 38 30 20 4e 45 58 54 20 49 0b 08 ┆END 0270 ENDIF 0280 NEXT I ┆
0x29060…29080 30 32 39 30 20 2f 2f 20 08 18 30 33 30 30 20 49 46 20 4e 4f 54 20 46 55 4e 44 45 54 20 54 48 45 ┆0290 // 0300 IF NOT FUNDET THE┆
0x29080…290a0 4e 20 18 10 30 33 31 30 20 43 55 52 53 4f 52 20 35 2c 32 32 10 2a 30 33 32 30 20 50 52 49 4e 54 ┆N 0310 CURSOR 5,22 *0320 PRINT┆
0x290a0…290c0 20 22 44 75 20 65 72 20 69 6b 6b 65 20 66 7c 64 74 20 69 20 6e 6f 67 65 74 20 74 65 67 6e 2e 22 ┆ "Du er ikke født i noget tegn."┆
0x290c0…290e0 2a 09 30 33 33 30 20 45 4e 44 20 09 0b 30 33 34 30 20 45 4e 44 49 46 20 0b 08 30 33 35 30 20 2f ┆* 0330 END 0340 ENDIF 0350 /┆
0x290e0…29100 2f 20 08 49 30 33 36 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 66 7c 64 73 65 6c 73 64 ┆/ I0360 INPUT "Indtast fødselsd┆
0x29100…29120 (20, 1, 2) 61 74 6f 3a 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 ┆ato: ┆
0x29120…29140 20 20 20 20 20 20 20 22 3a 44 41 54 45 49 2a 30 33 37 30 20 44 41 54 41 20 31 2c 32 30 2c 22 61 ┆ ":DATEI*0370 DATA 1,20,"a┆
0x29140…29160 70 72 69 6c 22 2c 22 20 56 20 5b 20 44 20 44 20 45 20 52 20 45 20 4e 20 22 2a 25 30 33 38 30 20 ┆pril"," V Æ D D E R E N "*%0380 ┆
0x29160…29180 44 41 54 41 20 32 31 2c 33 30 2c 22 61 70 72 69 6c 22 2c 22 20 54 20 59 20 52 20 45 20 4e 20 22 ┆DATA 21,30,"april"," T Y R E N "┆
0x29180…291a0 25 22 30 33 39 30 20 44 41 54 41 20 31 2c 32 31 2c 22 6d 61 6a 22 2c 22 20 54 20 59 20 52 20 45 ┆%"0390 DATA 1,21,"maj"," T Y R E┆
0x291a0…291c0 20 4e 20 22 22 31 30 34 30 30 20 44 41 54 41 20 32 32 2c 33 31 2c 22 6d 61 6a 22 2c 22 20 54 20 ┆ N ""10400 DATA 22,31,"maj"," T ┆
0x291c0…291e0 56 20 49 20 4c 20 4c 20 49 20 4e 20 47 20 45 20 52 20 4e 20 45 20 22 31 2f 30 34 31 30 20 44 41 ┆V I L L I N G E R N E "1/0410 DA┆
0x291e0…29200 54 41 20 31 2c 32 32 2c 22 6a 75 6e 69 22 2c 22 20 54 20 56 20 49 20 4c 20 49 20 4e 20 47 20 45 ┆TA 1,22,"juni"," T V I L I N G E┆
0x29200…29220 (20, 1, 3) 20 52 20 4e 20 45 20 22 2f 28 30 34 32 30 20 44 41 54 41 20 32 32 2c 33 30 2c 22 6a 75 6e 69 22 ┆ R N E "/(0420 DATA 22,30,"juni"┆
0x29220…29240 2c 22 20 4b 20 52 20 45 20 42 20 53 20 45 20 4e 20 22 28 27 30 34 33 30 20 44 41 54 41 20 31 2c ┆," K R E B S E N "('0430 DATA 1,┆
0x29240…29260 32 32 2c 22 6a 75 6c 69 22 2c 22 20 4b 20 52 20 45 20 42 20 53 20 45 20 4e 20 22 27 24 30 34 34 ┆22,"juli"," K R E B S E N "'$044┆
0x29260…29280 30 20 44 41 54 41 20 32 33 2c 33 31 2c 22 6a 75 6c 69 22 2c 22 20 4c 20 5c 20 56 20 45 20 4e 20 ┆0 DATA 23,31,"juli"," L Ø V E N ┆
0x29280…292a0 22 24 25 30 34 35 30 20 44 41 54 41 20 31 2c 32 33 2c 22 61 75 67 75 73 74 22 2c 22 20 4c 20 5c ┆"$%0450 DATA 1,23,"august"," L Ø┆
0x292a0…292c0 20 56 20 45 20 4e 20 22 25 2c 30 34 36 30 20 44 41 54 41 20 32 34 2c 33 31 2c 22 61 75 67 75 73 ┆ V E N "%,0460 DATA 24,31,"augus┆
0x292c0…292e0 74 22 2c 22 20 4a 20 4f 20 4d 20 46 20 52 20 55 20 45 20 4e 20 22 2c 2e 30 34 37 30 20 44 41 54 ┆t"," J O M F R U E N ",.0470 DAT┆
0x292e0…29300 41 20 31 2c 32 33 2c 22 73 65 70 74 65 6d 62 65 72 22 2c 22 20 4a 20 4f 20 4d 20 46 20 52 20 55 ┆A 1,23,"september"," J O M F R U┆
0x29300…29320 (20, 1, 4) 20 45 20 4e 20 22 2e 2b 30 34 38 30 20 44 41 54 41 20 32 34 2c 33 30 2c 22 73 65 70 74 65 6d 62 ┆ E N ".+0480 DATA 24,30,"septemb┆
0x29320…29340 65 72 22 2c 22 20 56 20 5b 20 47 20 54 20 45 20 4e 20 22 2b 28 30 34 39 30 20 44 41 54 41 20 31 ┆er"," V Æ G T E N "+(0490 DATA 1┆
0x29340…29360 2c 32 33 2c 22 6f 6b 74 6f 62 65 72 22 2c 22 20 56 20 5b 20 47 20 54 20 45 20 4e 20 22 28 31 30 ┆,23,"oktober"," V Æ G T E N "(10┆
0x29360…29380 35 30 30 20 44 41 54 41 20 32 34 2c 33 31 2c 22 6f 6b 74 6f 62 65 72 22 2c 22 20 53 20 4b 20 4f ┆500 DATA 24,31,"oktober"," S K O┆
0x29380…293a0 20 52 20 50 20 49 20 4f 20 4e 20 45 20 4e 20 22 31 31 30 35 31 30 20 44 41 54 41 20 31 2c 32 33 ┆ R P I O N E N "110510 DATA 1,23┆
0x293a0…293c0 2c 22 6e 6f 76 65 6d 62 65 72 22 2c 22 20 53 20 4b 20 4f 20 52 20 50 20 49 20 4f 20 4e 20 45 20 ┆,"november"," S K O R P I O N E ┆
0x293c0…293e0 4e 20 22 31 2c 30 35 32 30 20 44 41 54 41 20 32 34 2c 33 30 2c 22 6e 6f 76 65 6d 62 65 72 22 2c ┆N "1,0520 DATA 24,30,"november",┆
0x293e0…29400 22 20 53 20 4b 20 59 20 54 20 54 20 45 20 4e 20 22 2c 2b 30 35 33 30 20 44 41 54 41 20 31 2c 32 ┆" S K Y T T E N ",+0530 DATA 1,2┆
0x29400…29420 (20, 1, 5) 31 2c 22 64 65 63 65 6d 62 65 72 22 2c 22 20 53 20 4b 20 59 20 54 20 54 20 45 20 4e 20 22 2b 32 ┆1,"december"," S K Y T T E N "+2┆
0x29420…29440 30 35 34 30 20 44 41 54 41 20 32 32 2c 33 31 2c 22 64 65 63 65 6d 62 65 72 22 2c 22 20 53 20 54 ┆0540 DATA 22,31,"december"," S T┆
0x29440…29460 20 45 20 4e 20 42 20 55 20 4b 20 4b 20 45 20 4e 20 22 32 2f 30 35 35 30 20 44 41 54 41 20 31 2c ┆ E N B U K K E N "2/0550 DATA 1,┆
0x29460…29480 32 30 2c 22 6a 61 6e 75 61 72 22 2c 22 20 53 20 54 20 45 20 4e 20 42 20 55 20 4b 20 4b 20 45 20 ┆20,"januar"," S T E N B U K K E ┆
0x29480…294a0 4e 20 22 2f 30 30 35 36 30 20 44 41 54 41 20 32 31 2c 33 31 2c 22 6a 61 6e 75 61 72 22 2c 22 20 ┆N "/00560 DATA 21,31,"januar"," ┆
0x294a0…294c0 56 20 41 20 4e 20 44 20 4d 20 41 20 4e 20 44 20 45 20 4e 20 22 30 30 30 35 37 30 20 44 41 54 41 ┆V A N D M A N D E N "000570 DATA┆
0x294c0…294e0 20 31 2c 31 39 2c 22 66 65 62 72 75 61 72 22 2c 22 20 56 20 41 20 4e 20 44 20 4d 20 41 20 4e 20 ┆ 1,19,"februar"," V A N D M A N ┆
0x294e0…29500 44 20 45 20 4e 20 22 30 2b 30 35 38 30 20 44 41 54 41 20 31 39 2c 32 39 2c 22 66 65 62 72 75 61 ┆D E N "0+0580 DATA 19,29,"februa┆
0x29500…29520 (20, 1, 6) 72 22 2c 22 20 46 20 49 20 53 20 4b 20 45 20 4e 20 45 20 22 2b 28 30 35 39 30 20 44 41 54 41 20 ┆r"," F I S K E N E "+(0590 DATA ┆
0x29520…29540 31 2c 32 30 2c 22 6d 61 72 74 73 22 2c 22 20 46 20 49 20 53 20 4b 20 45 20 4e 20 45 20 22 28 2b ┆1,20,"marts"," F I S K E N E "(+┆
0x29540…29560 30 36 30 30 20 44 41 54 41 20 32 31 2c 33 31 2c 22 6d 61 72 74 73 22 2c 22 20 56 20 5b 20 44 20 ┆0600 DATA 21,31,"marts"," V Æ D ┆
0x29560…29580 44 20 45 20 52 20 45 20 4e 20 22 2b 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆D E R E N "+ cccccccccccccccccc┆
0x29580…295a0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x3…]
0x29600…29620 (20, 1, 7) ExtentHdr {name=»EKSMD1 «, typ=»K«, seg=»A«, next=0x01, basis=0x0003, nextext={DA 0029,09 (0x029900)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0029,09 (0x029900)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x29620…29640 3b 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 65 6b ┆;0010 // -------------------- ek┆
0x29640…29660 73 6d 7d 6e 65 64 31 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3b 3a 30 30 ┆småned1 --------------------;:00┆
0x29660…29680 32 30 20 2f 2f 20 55 64 73 6b 72 69 76 65 72 20 61 6e 74 61 6c 20 64 61 67 65 20 69 20 65 6e 20 ┆20 // Udskriver antal dage i en ┆
0x29680…296a0 6d 7d 6e 65 64 2c 20 6e 7d 72 20 6d 61 6e 20 69 6e 64 74 61 73 74 65 72 3a 18 30 30 33 30 20 2f ┆måned, når man indtaster: 0030 /┆
0x296a0…296c0 2f 20 6d 7d 6e 65 64 65 6e 73 20 6e 75 6d 6d 65 72 2e 18 08 30 30 34 30 20 2f 2f 20 08 18 30 30 ┆/ månedens nummer. 0040 // 00┆
0x296c0…296e0 34 35 20 49 4e 54 45 47 45 52 20 4e 55 4d 4d 45 52 2c 44 41 47 45 18 0b 30 30 35 30 20 43 4c 45 ┆45 INTEGER NUMMER,DAGE 0050 CLE┆
0x296e0…29700 41 52 20 0b 0b 30 30 35 35 20 50 52 49 4e 54 20 0b 2f 30 30 36 30 20 49 4e 50 55 54 20 22 49 6e ┆AR 0055 PRINT /0060 INPUT "In┆
0x29700…29720 (20, 1, 8) 64 74 61 73 74 20 6d 7d 6e 65 64 65 6e 73 20 6e 75 6d 6d 65 72 3a 20 20 20 22 3a 4e 55 4d 4d 45 ┆dtast månedens nummer: ":NUMME┆
0x29720…29740 52 2f 1e 30 30 37 30 20 49 46 20 4e 55 4d 4d 45 52 3d 31 20 54 48 45 4e 20 44 41 47 45 3a 3d 33 ┆R/ 0070 IF NUMMER=1 THEN DAGE:=3┆
0x29740…29760 31 1e 1e 30 30 38 30 20 49 46 20 4e 55 4d 4d 45 52 3d 32 20 54 48 45 4e 20 44 41 47 45 3a 3d 32 ┆1 0080 IF NUMMER=2 THEN DAGE:=2┆
0x29760…29780 38 1e 1e 30 30 39 30 20 49 46 20 4e 55 4d 4d 45 52 3d 33 20 54 48 45 4e 20 44 41 47 45 3a 3d 33 ┆8 0090 IF NUMMER=3 THEN DAGE:=3┆
0x29780…297a0 31 1e 1e 30 31 30 30 20 49 46 20 4e 55 4d 4d 45 52 3d 34 20 54 48 45 4e 20 44 41 47 45 3a 3d 33 ┆1 0100 IF NUMMER=4 THEN DAGE:=3┆
0x297a0…297c0 30 1e 1e 30 31 31 30 20 49 46 20 4e 55 4d 4d 45 52 3d 35 20 54 48 45 4e 20 44 41 47 45 3a 3d 33 ┆0 0110 IF NUMMER=5 THEN DAGE:=3┆
0x297c0…297e0 31 1e 1e 30 31 32 30 20 49 46 20 4e 55 4d 4d 45 52 3d 36 20 54 48 45 4e 20 44 41 47 45 3a 3d 33 ┆1 0120 IF NUMMER=6 THEN DAGE:=3┆
0x297e0…29800 30 1e 1e 30 31 33 30 20 49 46 20 4e 55 4d 4d 45 52 3d 37 20 54 48 45 4e 20 44 41 47 45 3a 3d 33 ┆0 0130 IF NUMMER=7 THEN DAGE:=3┆
0x29800…29820 (20, 1, 9) 31 1e 1e 30 31 34 30 20 49 46 20 4e 55 4d 4d 45 52 3d 38 20 54 48 45 4e 20 44 41 47 45 3a 3d 33 ┆1 0140 IF NUMMER=8 THEN DAGE:=3┆
0x29820…29840 31 1e 1e 30 31 35 30 20 49 46 20 4e 55 4d 4d 45 52 3d 39 20 54 48 45 4e 20 44 41 47 45 3a 3d 33 ┆1 0150 IF NUMMER=9 THEN DAGE:=3┆
0x29840…29860 30 1e 1f 30 31 36 30 20 49 46 20 4e 55 4d 4d 45 52 3d 31 30 20 54 48 45 4e 20 44 41 47 45 3a 3d ┆0 0160 IF NUMMER=10 THEN DAGE:=┆
0x29860…29880 33 31 1f 1f 30 31 37 30 20 49 46 20 4e 55 4d 4d 45 52 3d 31 31 20 54 48 45 4e 20 44 41 47 45 3a ┆31 0170 IF NUMMER=11 THEN DAGE:┆
0x29880…298a0 3d 33 30 1f 1f 30 31 38 30 20 49 46 20 4e 55 4d 4d 45 52 3d 31 32 20 54 48 45 4e 20 44 41 47 45 ┆=30 0180 IF NUMMER=12 THEN DAGE┆
0x298a0…298c0 3a 3d 33 31 1f 17 30 31 39 30 20 49 46 20 4e 55 4d 4d 45 52 3c 3e 32 20 54 48 45 4e 20 17 38 30 ┆:=31 0190 IF NUMMER<>2 THEN 80┆
0x298c0…298e0 32 30 30 20 50 52 49 4e 54 20 22 4d 7d 6e 65 64 20 6e 75 6d 6d 65 72 3a 20 22 3b 4e 55 4d 4d 45 ┆200 PRINT "Måned nummer: ";NUMME┆
0x298e0…29900 52 3b 22 20 68 61 72 20 22 3b 44 41 47 45 3b 22 20 64 61 67 65 2e 22 38 0a 30 32 31 30 20 45 4c ┆R;" har ";DAGE;" dage."8 0210 EL┆
0x29900…29920 (20, 1, 10) ExtentHdr {name=»EKSMD1 «, typ=»K«, seg=»B«, next=0x01, basis=0x0003, nextext={DA 0000,00 (0x000000)}, prevext={DA 0029,06 (0x029600)}, nextfile={DA 0029,0c (0x029c00)}, f99=00 00 00 20 00 00 00 00 00 00 ┆ ┆}
0x29920…29940 53 45 20 0a 4d 30 32 32 30 20 50 52 49 4e 54 20 22 4d 7d 6e 65 64 20 6e 75 6d 6d 65 72 3a 20 22 ┆SE M0220 PRINT "Måned nummer: "┆
0x29940…29960 3b 4e 55 4d 4d 45 52 3b 22 20 68 61 72 20 22 3b 44 41 47 45 3b 22 20 64 61 67 65 20 65 6c 6c 65 ┆;NUMMER;" har ";DAGE;" dage elle┆
0x29960…29980 72 20 22 3b 44 41 47 45 2b 31 3b 22 20 64 61 67 65 22 4d 0b 30 32 33 30 20 45 4e 44 49 46 20 0b ┆r ";DAGE+1;" dage"M 0230 ENDIF ┆
0x29980…299a0 00 00 6e 65 64 2c 20 6e 7d 72 20 6d 61 6e 20 69 6e 64 74 61 73 74 65 72 3a 18 30 30 33 30 20 2f ┆ ned, når man indtaster: 0030 /┆
0x299a0…299c0 2f 20 6d 7d 6e 65 64 65 6e 73 20 6e 75 6d 6d 65 72 2e 18 08 30 30 34 30 20 2f 2f 20 08 18 30 30 ┆/ månedens nummer. 0040 // 00┆
0x299c0…299e0 34 35 20 49 4e 54 45 47 45 52 20 4e 55 4d 4d 45 52 2c 44 41 47 45 18 0b 30 30 35 30 20 43 4c 45 ┆45 INTEGER NUMMER,DAGE 0050 CLE┆
0x299e0…29a00 41 52 20 0b 0b 30 30 35 35 20 50 52 49 4e 54 20 0b 2f 30 30 36 30 20 49 4e 50 55 54 20 22 49 6e ┆AR 0055 PRINT /0060 INPUT "In┆
0x29a00…29b00 (20, 1, 11) 0x63[0x100]
[…0x1…]
0x29c00…29c20 (20, 1, 13) ExtentHdr {name=»RENTE «, typ=»K«, seg=»A«, next=0x00, basis=0x0004, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 002a,00 (0x02a000)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x29c20…29c40 4a 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 72 ┆J0010 // --------------------- r┆
0x29c40…29c60 65 6e 74 65 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 ┆ente ---------------------------┆
0x29c60…29c80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4a 48 30 30 33 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆-----------JH0030 // -----------┆
0x29c80…29ca0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x29ca0…29cc0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 48 0b 30 30 34 30 20 43 4c 45 41 ┆---------------------H 0040 CLEA┆
0x29cc0…29ce0 52 20 0b 2d 30 30 34 35 20 49 4e 54 45 47 45 52 20 52 45 4e 54 45 44 41 47 45 20 2f 2f 20 68 65 ┆R -0045 INTEGER RENTEDAGE // he┆
0x29ce0…29d00 6c 74 61 6c 73 2d 64 65 66 69 6e 65 72 69 6e 67 65 2d 43 30 30 35 30 20 49 4e 50 55 54 20 22 49 ┆ltals-defineringe-C0050 INPUT "I┆
0x29d00…29d20 (20, 1, 14) 6e 64 74 61 73 74 20 6b 61 70 69 74 61 6c 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ndtast kapital: ┆
0x29d20…29d40 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 4b 41 50 49 54 41 4c 43 44 30 30 36 30 20 49 4e 50 ┆ ":KAPITALCD0060 INP┆
0x29d40…29d60 55 54 20 22 49 6e 64 74 61 73 74 20 72 65 6e 74 65 66 6f 64 3a 20 20 20 20 20 20 20 20 20 20 20 ┆UT "Indtast rentefod: ┆
0x29d60…29d80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 52 45 4e 54 45 46 4f 44 44 45 30 30 ┆ ":RENTEFODDE00┆
0x29d80…29da0 37 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 72 65 6e 74 65 64 61 67 65 3a 20 20 20 20 ┆70 INPUT "Indtast rentedage: ┆
0x29da0…29dc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 52 45 4e 54 45 44 ┆ ":RENTED┆
0x29dc0…29de0 41 47 45 45 43 30 30 38 30 20 52 45 4e 54 45 3a 3d 49 4e 54 28 28 28 4b 41 50 49 54 41 4c 2a 52 ┆AGEEC0080 RENTE:=INT(((KAPITAL*R┆
0x29de0…29e00 45 4e 54 45 46 4f 44 2a 52 45 4e 54 45 44 41 47 45 29 2f 31 30 30 2f 33 36 30 29 2a 31 30 30 2b ┆ENTEFOD*RENTEDAGE)/100/360)*100+┆
0x29e00…29e20 (20, 1, 15) 30 2e 35 29 2f 31 30 30 43 0b 30 30 39 30 20 50 52 49 4e 54 20 0b 0b 30 31 30 30 20 50 52 49 4e ┆0.5)/100C 0090 PRINT 0100 PRIN┆
0x29e20…29e40 54 20 0b 37 30 31 31 30 20 50 52 49 4e 54 20 22 4b 61 70 69 74 61 6c 3a 22 2c 22 52 65 6e 74 65 ┆T 70110 PRINT "Kapital:","Rente┆
0x29e40…29e60 66 6f 64 3a 22 2c 22 52 65 6e 74 65 3a 22 2c 22 52 65 6e 74 65 64 61 67 65 3a 22 37 4d 30 31 32 ┆fod:","Rente:","Rentedage:"7M012┆
0x29e60…29e80 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆0 PRINT "-----------------------┆
0x29e80…29ea0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x29ea0…29ec0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4d 0b 30 31 33 30 20 50 52 49 4e 54 20 0b 42 30 31 34 30 20 50 52 ┆----------M 0130 PRINT B0140 PR┆
0x29ec0…29ee0 49 4e 54 20 4b 41 50 49 54 41 4c 3b 22 6b 72 2e 22 2c 52 45 4e 54 45 46 4f 44 3b 22 25 22 2c 52 ┆INT KAPITAL;"kr.",RENTEFOD;"%",R┆
0x29ee0…29f00 45 4e 54 45 3b 22 6b 72 2e 22 2c 52 45 4e 54 45 44 41 47 45 3b 22 64 61 67 65 22 42 4d 30 31 35 ┆ENTE;"kr.",RENTEDAGE;"dage"BM015┆
0x29f00…29f20 (20, 1, 16) 30 20 50 52 49 4e 54 20 22 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆0 PRINT "=======================┆
0x29f20…29f40 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆================================┆
0x29f40…29f60 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 4d 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆==========M ccccccccccccccccccc┆
0x29f60…29f80 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x4…]
0x2a000…2a020 (21, 0, 1) ExtentHdr {name=»MAX «, typ=»K«, seg=»A«, next=0x00, basis=0x0003, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 002a,03 (0x02a300)}, f99=41 2a 00 fe 00 00 00 00 00 00 ┆A* ┆}
0x2a020…2a040 41 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆A0010 // -----------------------┆
0x2a040…2a060 2d 2d 20 6d 61 78 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 ┆-- max -------------------------┆
0x2a060…2a080 2d 2d 41 08 30 30 32 30 20 2f 2f 20 08 12 30 30 33 30 20 50 52 4f 43 20 4d 41 58 28 58 2c 59 29 ┆--A 0020 // 0030 PROC MAX(X,Y)┆
0x2a080…2a0a0 12 11 30 30 34 30 20 49 46 20 58 3c 59 20 54 48 45 4e 20 11 0b 30 30 35 30 20 4d 41 58 3a 3d 59 ┆ 0040 IF X<Y THEN 0050 MAX:=Y┆
0x2a0a0…2a0c0 0b 0a 30 30 36 30 20 45 4c 53 45 20 0a 0b 30 30 37 30 20 4d 41 58 3a 3d 58 0b 0b 30 30 38 30 20 ┆ 0060 ELSE 0070 MAX:=X 0080 ┆
0x2a0c0…2a0e0 45 4e 44 49 46 20 0b 10 30 30 39 30 20 45 4e 44 50 52 4f 43 20 4d 41 58 10 3c 30 31 30 30 20 2f ┆ENDIF 0090 ENDPROC MAX <0100 /┆
0x2a0e0…2a100 2f 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 ┆/ ------------------------------┆
0x2a100…2a120 (21, 0, 2) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3c 0b 30 31 31 30 20 43 4c 45 ┆----------------------< 0110 CLE┆
0x2a120…2a140 41 52 20 0b 0b 30 31 31 35 20 50 52 49 4e 54 20 0b 27 30 31 32 30 20 49 4e 50 55 54 20 22 49 6e ┆AR 0115 PRINT '0120 INPUT "In┆
0x2a140…2a160 64 74 61 73 74 20 74 72 65 20 74 61 6c 3a 20 20 20 20 22 3a 41 2c 42 2c 43 27 38 30 31 33 30 20 ┆dtast tre tal: ":A,B,C'80130 ┆
0x2a160…2a180 50 52 49 4e 54 20 22 61 20 3d 20 22 3b 41 3b 22 20 20 20 20 20 20 20 20 20 20 62 20 3d 20 22 3b ┆PRINT "a = ";A;" b = ";┆
0x2a180…2a1a0 42 3b 22 20 20 20 20 20 20 20 20 20 63 20 3d 20 22 3b 43 38 0b 30 31 34 30 20 50 52 49 4e 54 20 ┆B;" c = ";C8 0140 PRINT ┆
0x2a1a0…2a1c0 0b 38 30 31 35 30 20 50 52 49 4e 54 20 22 44 65 74 20 73 74 7c 72 73 74 65 20 61 66 20 74 61 6c ┆ 80150 PRINT "Det største af tal┆
0x2a1c0…2a1e0 6c 65 6e 65 20 61 20 6f 67 20 62 20 65 72 3a 20 22 3b 4d 41 58 28 41 2c 42 29 38 14 30 31 35 35 ┆lene a og b er: ";MAX(A,B)8 0155┆
0x2a1e0…2a200 20 4d 41 58 41 42 3a 3d 4d 41 58 28 41 2c 42 29 14 3c 30 31 36 30 20 50 52 49 4e 54 20 22 44 65 ┆ MAXAB:=MAX(A,B) <0160 PRINT "De┆
0x2a200…2a220 (21, 0, 3) 74 20 73 74 7c 72 73 74 65 20 61 66 20 61 6c 6c 65 20 74 72 65 20 74 61 6c 20 65 72 3a 20 20 20 ┆t største af alle tre tal er: ┆
0x2a220…2a240 22 3b 4d 41 58 28 4d 41 58 41 42 2c 43 29 3c 08 38 32 32 34 20 2f 2f 20 08 00 00 63 63 63 63 63 ┆";MAX(MAXAB,C)< 8224 // ccccc┆
0x2a240…2a260 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x5…]
0x2a300…2a320 (21, 0, 4) ExtentHdr {name=»TRIGONOM«, typ=»K«, seg=»A«, next=0x00, basis=0x0003, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 002a,06 (0x02a600)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x2a320…2a340 4a 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆J0010 // -----------------------┆
0x2a340…2a360 2d 2d 20 54 72 69 67 6f 6e 6f 6d 65 74 72 69 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆-- Trigonometri ----------------┆
0x2a360…2a380 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4a 08 30 30 32 30 20 2f 2f 20 08 1a 30 30 33 30 20 50 52 4f 43 ┆-----------J 0020 // 0030 PROC┆
0x2a380…2a3a0 20 43 4f 53 47 28 56 31 2c 46 41 4b 54 4f 52 31 29 1a 1a 30 30 34 30 20 43 4f 53 47 3a 3d 43 4f ┆ COSG(V1,FAKTOR1) 0040 COSG:=CO┆
0x2a3a0…2a3c0 53 28 56 31 2a 46 41 4b 54 4f 52 31 29 1a 11 30 30 35 30 20 45 4e 44 50 52 4f 43 20 43 4f 53 47 ┆S(V1*FAKTOR1) 0050 ENDPROC COSG┆
0x2a3c0…2a3e0 11 08 30 30 36 30 20 2f 2f 20 08 1a 30 30 37 30 20 50 52 4f 43 20 53 49 4e 47 28 56 31 2c 46 41 ┆ 0060 // 0070 PROC SING(V1,FA┆
0x2a3e0…2a400 4b 54 4f 52 31 29 1a 1a 30 30 38 30 20 53 49 4e 47 3a 3d 53 49 4e 28 56 31 2a 46 41 4b 54 4f 52 ┆KTOR1) 0080 SING:=SIN(V1*FAKTOR┆
0x2a400…2a420 (21, 0, 5) 31 29 1a 11 30 30 39 30 20 45 4e 44 50 52 4f 43 20 53 49 4e 47 11 08 30 31 30 30 20 2f 2f 20 08 ┆1) 0090 ENDPROC SING 0100 // ┆
0x2a420…2a440 1a 30 31 31 30 20 50 52 4f 43 20 54 41 4e 47 28 56 31 2c 46 41 4b 54 4f 52 31 29 1a 1a 30 31 32 ┆ 0110 PROC TANG(V1,FAKTOR1) 012┆
0x2a440…2a460 30 20 54 41 4e 47 3a 3d 54 41 4e 28 56 31 2a 46 41 4b 54 4f 52 31 29 1a 11 30 31 33 30 20 45 4e ┆0 TANG:=TAN(V1*FAKTOR1) 0130 EN┆
0x2a460…2a480 44 50 52 4f 43 20 54 41 4e 47 11 08 30 31 34 30 20 2f 2f 20 08 0b 30 31 35 30 20 43 4c 45 41 52 ┆DPROC TANG 0140 // 0150 CLEAR┆
0x2a480…2a4a0 20 0b 0b 30 31 35 35 20 50 52 49 4e 54 20 0b 19 30 31 36 30 20 46 41 4b 54 4f 52 3a 3d 41 54 4e ┆ 0155 PRINT 0160 FAKTOR:=ATN┆
0x2a4a0…2a4c0 28 31 29 2a 34 2f 31 38 30 19 2a 30 31 37 30 20 49 4e 50 55 54 20 22 54 61 73 74 20 76 69 6e 6b ┆(1)*4/180 *0170 INPUT "Tast vink┆
0x2a4c0…2a4e0 6c 65 6e 20 57 20 69 20 67 72 61 64 65 72 3a 20 20 20 22 3a 56 2a 1c 30 31 38 30 20 50 52 49 4e ┆len W i grader: ":V* 0180 PRIN┆
0x2a4e0…2a500 54 20 22 77 20 3d 20 22 3b 56 3b 22 67 72 61 64 65 72 22 1c 34 30 31 39 30 20 50 52 49 4e 54 20 ┆T "w = ";V;"grader" 40190 PRINT ┆
0x2a500…2a520 (21, 0, 6) 55 53 49 4e 47 20 22 63 6f 73 28 77 29 20 3d 23 23 23 23 2e 23 23 23 23 23 22 3a 43 4f 53 47 28 ┆USING "cos(w) =####.#####":COSG(┆
0x2a520…2a540 56 2c 46 41 4b 54 4f 52 29 34 34 30 32 30 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 73 69 6e ┆V,FAKTOR)440200 PRINT USING "sin┆
0x2a540…2a560 28 77 29 20 3d 23 23 23 23 2e 23 23 23 23 23 22 3a 53 49 4e 47 28 56 2c 46 41 4b 54 4f 52 29 34 ┆(w) =####.#####":SING(V,FAKTOR)4┆
0x2a560…2a580 34 30 32 31 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 74 61 6e 28 77 29 20 3d 23 23 23 23 2e ┆40210 PRINT USING "tan(w) =####.┆
0x2a580…2a5a0 23 23 23 23 23 22 3a 54 41 4e 47 28 56 2c 46 41 4b 54 4f 52 29 34 00 00 63 63 63 63 63 63 63 63 ┆#####":TANG(V,FAKTOR)4 cccccccc┆
0x2a5a0…2a5c0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x2…]
0x2a600…2a620 (21, 0, 7) ExtentHdr {name=»DEMOSEKV«, typ=»K«, seg=»A«, next=0x01, basis=0x000a, nextext={DA 002b,00 (0x02b000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 002b,00 (0x02b000)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x2a620…2a640 4d 30 31 30 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆M0100 // -----------------------┆
0x2a640…2a660 2d 2d 20 64 65 6d 6f 73 65 6b 76 65 6e 74 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆-- demosekvent -----------------┆
0x2a660…2a680 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4d 40 30 31 31 30 20 2f 2f 20 50 72 6f 67 72 61 6d 6d ┆--------------M@0110 // Programm┆
0x2a680…2a6a0 65 74 20 69 6e 64 6c 7b 73 65 72 20 76 2f 69 6e 64 74 61 73 74 6e 69 6e 67 20 65 6c 65 76 6c 69 ┆et indlæser v/indtastning elevli┆
0x2a6a0…2a6c0 73 74 65 20 6f 67 20 75 64 73 6b 72 69 76 65 72 40 38 30 31 32 30 20 2f 2f 20 64 65 6e 2e 20 41 ┆ste og udskriver@80120 // den. A┆
0x2a6c0…2a6e0 50 50 45 4e 44 20 66 69 6e 64 65 73 20 69 6b 6b 65 20 66 6f 72 20 64 65 6e 6e 65 20 43 6f 6d 61 ┆PPEND findes ikke for denne Coma┆
0x2a6e0…2a700 6c 2d 76 65 72 73 69 6f 6e 2e 38 4d 30 31 33 30 20 44 49 4d 20 4e 41 56 4e 24 20 4f 46 20 32 32 ┆l-version.8M0130 DIM NAVN$ OF 22┆
0x2a700…2a720 (21, 0, 8) 2c 41 44 52 24 20 4f 46 20 32 32 2c 50 4f 53 54 42 59 24 20 4f 46 20 32 30 2c 46 49 4c 24 20 4f ┆,ADR$ OF 22,POSTBY$ OF 20,FIL$ O┆
0x2a720…2a740 46 20 31 36 2c 4b 4c 41 53 53 45 24 20 4f 46 20 35 2c 53 24 20 4f 46 20 31 4d 19 30 31 34 30 20 ┆F 16,KLASSE$ OF 5,S$ OF 1M 0140 ┆
0x2a740…2a760 49 4e 54 45 47 45 52 20 4e 55 4d 4d 45 52 2c 5c 4e 53 4b 45 19 08 30 31 35 30 20 2f 2f 20 08 0c ┆INTEGER NUMMER,ØNSKE 0150 // ┆
0x2a760…2a780 30 31 36 30 20 52 45 50 45 41 54 20 0c 0e 30 31 37 30 20 45 58 45 43 20 56 41 4c 47 0e 12 30 31 ┆0160 REPEAT 0170 EXEC VALG 01┆
0x2a780…2a7a0 38 30 20 55 4e 54 49 4c 20 5c 4e 53 4b 45 3d 34 12 08 30 31 39 30 20 2f 2f 20 08 0e 30 32 30 30 ┆80 UNTIL ØNSKE=4 0190 // 0200┆
0x2a7a0…2a7c0 20 50 52 4f 43 20 56 41 4c 47 0e 0b 30 32 31 30 20 43 4c 45 41 52 20 0b 0f 30 32 32 30 20 43 55 ┆ PROC VALG 0210 CLEAR 0220 CU┆
0x2a7c0…2a7e0 52 53 4f 52 20 31 2c 33 0f 2b 30 32 33 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 45 20 4c 20 45 ┆RSOR 1,3 +0230 PRINT " E L E┆
0x2a7e0…2a800 20 56 20 4b 20 41 20 52 20 54 20 4f 20 54 20 45 20 4b 20 2e 22 2b 4a 30 32 34 30 20 50 52 49 4e ┆ V K A R T O T E K ."+J0240 PRIN┆
0x2a800…2a820 (21, 0, 9) 54 20 22 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 ┆T " ------------------------┆
0x2a820…2a840 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2a840…2a860 22 4a 3a 30 32 35 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 44 75 20 68 61 72 20 66 7c 6c 67 65 ┆"J:0250 PRINT " Du har følge┆
0x2a860…2a880 6e 64 65 20 6d 75 6c 69 67 68 65 64 65 72 20 66 6f 72 20 61 74 20 76 7b 6c 67 65 3a 22 3a 4a 30 ┆nde muligheder for at vælge:":J0┆
0x2a880…2a8a0 32 36 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆260 PRINT " ----------------┆
0x2a8a0…2a8c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2a8c0…2a8e0 2d 2d 2d 2d 2d 2d 2d 2d 22 4a 0b 30 32 37 30 20 50 52 49 4e 54 20 0b 3a 30 32 38 30 20 50 52 49 ┆--------"J 0270 PRINT :0280 PRI┆
0x2a8e0…2a900 4e 54 20 22 20 20 20 20 20 4f 70 72 65 74 74 65 6c 73 65 20 61 66 20 6b 61 72 74 6f 74 65 6b 2e ┆NT " Oprettelse af kartotek.┆
0x2a900…2a920 (21, 0, 10) 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 54 61 73 74 20 31 22 3a 0b 30 32 39 30 20 50 52 49 4e 54 20 0b ┆...........Tast 1": 0290 PRINT ┆
0x2a920…2a940 3a 30 33 30 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 54 69 6c 66 7c 6a 65 6c 73 65 20 69 20 6b ┆:0300 PRINT " Tilføjelse i k┆
0x2a940…2a960 61 72 74 6f 74 65 6b 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 54 61 73 74 20 32 22 3a 0b 30 33 31 ┆artotek.............Tast 2": 031┆
0x2a960…2a980 30 20 50 52 49 4e 54 20 0b 3a 30 33 32 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 55 64 6c 7b 73 ┆0 PRINT :0320 PRINT " Udlæs┆
0x2a980…2a9a0 6e 69 6e 67 65 6e 20 61 66 20 6b 61 72 74 6f 74 65 6b 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 54 61 73 ┆ningen af kartotek...........Tas┆
0x2a9a0…2a9c0 74 20 33 22 3a 0b 30 33 33 30 20 50 52 49 4e 54 20 0b 3a 30 33 34 30 20 50 52 49 4e 54 20 22 20 ┆t 3": 0330 PRINT :0340 PRINT " ┆
0x2a9c0…2a9e0 20 20 20 20 5c 6e 73 6b 65 72 20 64 75 20 61 74 20 73 6c 75 74 74 65 2e 2e 2e 2e 2e 2e 2e 2e 2e ┆ Ønsker du at slutte.........┆
0x2a9e0…2aa00 2e 2e 2e 2e 2e 2e 54 61 73 74 20 34 22 3a 10 30 33 35 30 20 43 55 52 53 4f 52 20 35 2c 32 30 10 ┆......Tast 4": 0350 CURSOR 5,20 ┆
0x2aa00…2aa20 (21, 0, 11) 22 30 33 36 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 7c 6e 73 6b 65 3a 20 22 3a 5c 4e ┆"0360 INPUT "Indtast ønske: ":ØN┆
0x2aa20…2aa40 53 4b 45 22 13 30 33 37 30 20 43 41 53 45 20 5c 4e 53 4b 45 20 4f 46 20 13 0b 30 33 38 30 20 57 ┆SKE" 0370 CASE ØNSKE OF 0380 W┆
0x2aa40…2aa60 48 45 4e 20 31 0b 0f 30 33 39 30 20 45 58 45 43 20 4f 50 52 45 54 0f 0b 30 34 30 30 20 57 48 45 ┆HEN 1 0390 EXEC OPRET 0400 WHE┆
0x2aa60…2aa80 4e 20 32 0b 10 30 34 31 30 20 45 58 45 43 20 54 49 4c 46 5c 4a 10 0b 30 34 32 30 20 57 48 45 4e ┆N 2 0410 EXEC TILFØJ 0420 WHEN┆
0x2aa80…2aaa0 20 33 0b 12 30 34 33 30 20 45 58 45 43 20 55 44 53 4b 52 49 46 54 12 0f 30 34 34 30 20 4f 54 48 ┆ 3 0430 EXEC UDSKRIFT 0440 OTH┆
0x2aaa0…2aac0 45 52 57 49 53 45 20 0f 10 30 34 35 30 20 43 55 52 53 4f 52 20 35 2c 32 32 10 24 30 34 36 30 20 ┆ERWISE 0450 CURSOR 5,22 $0460 ┆
0x2aac0…2aae0 50 52 49 4e 54 20 22 53 7d 20 73 6c 75 74 74 65 72 20 76 69 20 66 6f 72 20 69 64 61 67 2e 22 24 ┆PRINT "Så slutter vi for idag."$┆
0x2aae0…2ab00 0d 30 34 37 30 20 45 4e 44 43 41 53 45 20 0d 11 30 34 38 30 20 45 4e 44 50 52 4f 43 20 56 41 4c ┆ 0470 ENDCASE 0480 ENDPROC VAL┆
0x2ab00…2ab20 (21, 0, 12) 47 11 08 30 34 39 30 20 2f 2f 20 08 0f 30 35 30 30 20 50 52 4f 43 20 4f 50 52 45 54 0f 0b 30 35 ┆G 0490 // 0500 PROC OPRET 05┆
0x2ab20…2ab40 31 30 20 43 4c 45 41 52 20 0b 0f 30 35 32 30 20 43 55 52 53 4f 52 20 31 2c 36 0f 30 30 35 33 30 ┆10 CLEAR 0520 CURSOR 1,6 00530┆
0x2ab40…2ab60 20 49 4e 50 55 54 20 22 4e 61 76 6e 20 70 7d 20 66 69 6c 65 6e 20 3a 20 20 20 20 20 20 20 20 20 ┆ INPUT "Navn på filen : ┆
0x2ab60…2ab80 20 20 20 20 20 20 22 3a 46 49 4c 24 30 24 30 35 34 30 20 4e 55 4d 4d 45 52 3a 3d 30 3b 46 49 4c ┆ ":FIL$0$0540 NUMMER:=0;FIL┆
0x2ab80…2aba0 24 3a 3d 22 53 59 53 54 49 4d 45 3a 22 2b 46 49 4c 24 24 10 30 35 35 30 20 43 52 45 41 54 45 20 ┆$:="SYSTIME:"+FIL$$ 0550 CREATE ┆
0x2aba0…2abc0 46 49 4c 24 10 10 30 35 36 30 20 4f 50 45 4e 20 46 49 4c 24 2c 57 10 0c 30 35 37 30 20 52 45 50 ┆FIL$ 0560 OPEN FIL$,W 0570 REP┆
0x2abc0…2abe0 45 41 54 20 0c 0b 30 35 38 30 20 43 4c 45 41 52 20 0b 0f 30 35 39 30 20 43 55 52 53 4f 52 20 31 ┆EAT 0580 CLEAR 0590 CURSOR 1┆
0x2abe0…2ac00 2c 34 0f 27 30 36 30 30 20 50 52 49 4e 54 20 22 4f 70 72 65 74 74 65 6c 73 65 20 61 66 20 6e 79 ┆,4 '0600 PRINT "Oprettelse af ny┆
0x2ac00…2ac20 (21, 0, 13) 74 20 6b 61 72 74 6f 74 65 6b 22 27 4b 30 36 31 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d ┆t kartotek"'K0610 PRINT "-------┆
0x2ac20…2ac40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2ac40…2ac60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 4b 15 30 36 32 30 20 4e ┆-----------------------"K 0620 N┆
0x2ac60…2ac80 55 4d 4d 45 52 3a 3d 4e 55 4d 4d 45 52 2b 31 15 0f 30 36 33 30 20 43 55 52 53 4f 52 20 31 2c 38 ┆UMMER:=NUMMER+1 0630 CURSOR 1,8┆
0x2ac80…2aca0 0f 24 30 36 34 30 20 50 52 49 4e 54 20 22 4e 75 6d 6d 65 72 3a 20 20 20 20 20 20 20 20 20 22 3b ┆ $0640 PRINT "Nummer: ";┆
0x2aca0…2acc0 4e 55 4d 4d 45 52 24 0b 30 36 35 30 20 50 52 49 4e 54 20 0b 36 30 36 36 30 20 49 4e 50 55 54 20 ┆NUMMER$ 0650 PRINT 60660 INPUT ┆
0x2acc0…2ace0 22 49 6e 64 74 61 73 74 20 6b 6c 61 73 73 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆"Indtast klasse: ┆
0x2ace0…2ad00 20 20 22 3a 4b 4c 41 53 53 45 24 36 34 30 36 37 30 20 49 4e 50 55 54 20 22 69 6e 64 74 61 73 74 ┆ ":KLASSE$640670 INPUT "indtast┆
0x2ad00…2ad20 (21, 0, 14) 20 6e 61 76 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 4e 41 56 4e ┆ navn: ":NAVN┆
0x2ad20…2ad40 24 34 33 30 36 38 30 20 49 4e 50 55 54 20 22 69 6e 64 74 61 73 74 20 61 64 72 65 73 73 65 3a 20 ┆$430680 INPUT "indtast adresse: ┆
0x2ad40…2ad60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 41 44 52 24 33 36 30 36 39 30 20 49 4e 50 ┆ ":ADR$360690 INP┆
0x2ad60…2ad80 55 54 20 22 69 6e 64 74 61 73 74 20 70 6f 73 74 6e 75 6d 6d 65 72 20 26 20 62 79 3a 20 20 20 20 ┆UT "indtast postnummer & by: ┆
0x2ad80…2ada0 20 20 20 20 20 22 3a 50 4f 53 54 42 59 24 36 2f 30 37 30 30 20 50 55 54 20 46 49 4c 24 3a 4e 55 ┆ ":POSTBY$6/0700 PUT FIL$:NU┆
0x2ada0…2adc0 4d 4d 45 52 2c 4b 4c 41 53 53 45 24 2c 4e 41 56 4e 24 2c 41 44 52 24 2c 50 4f 53 54 42 59 24 2f ┆MMER,KLASSE$,NAVN$,ADR$,POSTBY$/┆
0x2adc0…2ade0 10 30 37 31 30 20 43 55 52 53 4f 52 20 31 2c 32 32 10 2d 30 37 32 30 20 49 4e 50 55 54 20 22 5c ┆ 0710 CURSOR 1,22 -0720 INPUT "Ø┆
0x2ade0…2ae00 6e 73 6b 65 72 20 64 75 20 61 74 20 66 6f 72 74 73 7b 74 74 65 3f 20 20 6a 2f 6e 20 22 3a 53 24 ┆nsker du at fortsætte? j/n ":S$┆
0x2ae00…2ae20 (21, 0, 15) 2d 1b 30 37 33 30 20 55 4e 54 49 4c 20 53 24 3d 22 4e 22 20 4f 52 20 53 24 3d 22 6e 22 1b 11 30 ┆- 0730 UNTIL S$="N" OR S$="n" 0┆
0x2ae20…2ae40 37 34 30 20 45 4e 44 46 49 4c 45 20 46 49 4c 24 11 0f 30 37 35 30 20 43 4c 4f 53 45 20 46 49 4c ┆740 ENDFILE FIL$ 0750 CLOSE FIL┆
0x2ae40…2ae60 24 0f 12 30 37 36 30 20 45 4e 44 50 52 4f 43 20 4f 50 52 45 54 12 08 30 37 37 30 20 2f 2f 20 08 ┆$ 0760 ENDPROC OPRET 0770 // ┆
0x2ae60…2ae80 08 30 37 38 30 20 2f 2f 20 08 12 30 37 39 30 20 50 52 4f 43 20 55 44 53 4b 52 49 46 54 12 0b 30 ┆ 0780 // 0790 PROC UDSKRIFT 0┆
0x2ae80…2aea0 38 30 30 20 43 4c 45 41 52 20 0b 30 30 38 31 30 20 49 4e 50 55 54 20 22 46 69 6c 65 6e 73 20 6e ┆800 CLEAR 00810 INPUT "Filens n┆
0x2aea0…2aec0 61 76 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 46 49 4c 24 30 1a 30 38 ┆avn: ":FIL$0 08┆
0x2aec0…2aee0 32 30 20 46 49 4c 24 3a 3d 22 53 59 53 54 49 4d 45 3a 22 2b 46 49 4c 24 1a 0b 30 38 33 30 20 50 ┆20 FIL$:="SYSTIME:"+FIL$ 0830 P┆
0x2aee0…2af00 52 49 4e 54 20 0b 10 30 38 34 30 20 4f 50 45 4e 20 46 49 4c 24 2c 52 10 4b 30 38 35 30 20 50 52 ┆RINT 0840 OPEN FIL$,R K0850 PR┆
0x2af00…2af20 (21, 0, 16) 49 4e 54 20 22 4e 72 3a 20 20 4b 6c 61 73 73 65 3a 20 20 20 20 4e 61 76 6e 3a 20 20 20 20 20 20 ┆INT "Nr: Klasse: Navn: ┆
0x2af20…2af40 20 20 20 20 20 20 20 20 20 20 20 41 64 72 65 73 73 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ Adresse: ┆
0x2af40…2af60 20 20 22 3b 4b 1c 30 38 36 30 20 50 52 49 4e 54 20 22 50 6f 73 74 6e 75 6d 6d 65 72 20 26 20 42 ┆ ";K 0860 PRINT "Postnummer & B┆
0x2af60…2af80 79 22 1c 4d 30 38 37 30 20 50 52 49 4e 54 20 22 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆y" M0870 PRINT "________________┆
0x2af80…2afa0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
0x2afa0…2afc0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 22 3b 4d 1a 30 38 38 30 20 50 52 49 4e 54 20 22 5f ┆_______________";M 0880 PRINT "_┆
0x2afc0…2afe0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 22 1a 0b 30 38 39 30 20 50 52 49 4e 54 20 0b 2f 30 39 30 30 ┆____________" 0890 PRINT /0900┆
0x2afe0…2b000 20 47 45 54 20 46 49 4c 24 3a 4e 55 4d 4d 45 52 2c 4b 4c 41 53 53 45 24 2c 4e 41 56 4e 24 2c 41 ┆ GET FIL$:NUMMER,KLASSE$,NAVN$,A┆
0x2b000…2b020 (21, 1, 1) ExtentHdr {name=»DEMOSEKV«, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 002a,06 (0x02a600)}, nextfile={DA 002b,0a (0x02ba00)}, f99=00 00 00 20 00 00 00 00 00 00 ┆ ┆}
0x2b020…2b040 44 52 24 2c 50 4f 53 54 42 59 24 2f 1c 30 39 31 30 20 57 48 49 4c 45 20 4e 4f 54 20 45 4f 46 28 ┆DR$,POSTBY$/ 0910 WHILE NOT EOF(┆
0x2b040…2b060 46 49 4c 24 29 20 44 4f 20 1c 4b 30 39 32 30 20 50 52 49 4e 54 20 4e 55 4d 4d 45 52 3b 54 41 42 ┆FIL$) DO K0920 PRINT NUMMER;TAB┆
0x2b060…2b080 28 36 29 3b 4b 4c 41 53 53 45 24 3b 54 41 42 28 31 37 29 3b 4e 41 56 4e 24 3b 54 41 42 28 33 39 ┆(6);KLASSE$;TAB(17);NAVN$;TAB(39┆
0x2b080…2b0a0 29 3b 41 44 52 24 3b 54 41 42 28 36 32 29 3b 50 4f 53 54 42 59 24 4b 2f 30 39 33 30 20 47 45 54 ┆);ADR$;TAB(62);POSTBY$K/0930 GET┆
0x2b0a0…2b0c0 20 46 49 4c 24 3a 4e 55 4d 4d 45 52 2c 4b 4c 41 53 53 45 24 2c 4e 41 56 4e 24 2c 41 44 52 24 2c ┆ FIL$:NUMMER,KLASSE$,NAVN$,ADR$,┆
0x2b0c0…2b0e0 50 4f 53 54 42 59 24 2f 0e 30 39 34 30 20 45 4e 44 57 48 49 4c 45 20 0e 0f 30 39 35 30 20 43 4c ┆POSTBY$/ 0940 ENDWHILE 0950 CL┆
0x2b0e0…2b100 4f 53 45 20 46 49 4c 24 0f 11 30 39 36 30 20 43 55 52 53 4f 52 20 36 35 2c 32 32 11 1c 30 39 37 ┆OSE FIL$ 0960 CURSOR 65,22 097┆
0x2b100…2b120 (21, 1, 2) 30 20 49 4e 50 55 54 20 22 54 61 73 74 20 72 65 74 75 72 6e 20 22 3a 53 24 1c 15 30 39 38 30 20 ┆0 INPUT "Tast return ":S$ 0980 ┆
0x2b120…2b140 45 4e 44 50 52 4f 43 20 55 44 53 4b 52 49 46 54 15 08 30 39 39 30 20 2f 2f 20 08 10 31 30 30 30 ┆ENDPROC UDSKRIFT 0990 // 1000┆
0x2b140…2b160 20 50 52 4f 43 20 54 49 4c 46 5c 4a 10 0b 31 30 31 30 20 43 4c 45 41 52 20 0b 11 31 30 32 30 20 ┆ PROC TILFØJ 1010 CLEAR 1020 ┆
0x2b160…2b180 43 55 52 53 4f 52 20 32 35 2c 31 32 11 37 31 30 33 30 20 50 52 49 4e 54 20 22 41 50 50 45 4e 44 ┆CURSOR 25,12 71030 PRINT "APPEND┆
0x2b180…2b1a0 20 66 69 6e 64 65 73 20 69 6b 6b 65 20 70 7d 20 64 65 6e 6e 65 20 43 6f 6d 61 6c 2d 76 65 72 73 ┆ findes ikke på denne Comal-vers┆
0x2b1a0…2b1c0 69 6f 6e 2e 22 37 11 31 30 34 30 20 43 55 52 53 4f 52 20 37 30 2c 32 33 11 17 31 30 35 30 20 49 ┆ion."7 1040 CURSOR 70,23 1050 I┆
0x2b1c0…2b1e0 4e 50 55 54 20 22 52 65 74 75 72 6e 21 22 3a 53 24 17 13 31 30 36 30 20 45 4e 44 50 52 4f 43 20 ┆NPUT "Return!":S$ 1060 ENDPROC ┆
0x2b1e0…2b200 54 49 4c 46 5c 4a 13 08 31 30 37 30 20 2f 2f 20 08 15 31 30 38 30 20 50 52 4f 43 20 45 4f 46 28 ┆TILFØJ 1070 // 1080 PROC EOF(┆
0x2b200…2b220 (21, 1, 3) 46 4e 41 56 4e 24 29 15 46 31 30 39 30 20 45 4f 46 3a 3d 28 53 54 41 54 55 53 28 46 4e 41 56 4e ┆FNAVN$) F1090 EOF:=(STATUS(FNAVN┆
0x2b220…2b240 24 29 3d 31 39 29 20 2f 2f 20 31 39 20 3d 20 44 44 45 2d 63 6f 6d 61 6c 20 45 6e 64 2d 4f 66 2d ┆$)=19) // 19 = DDE-comal End-Of-┆
0x2b240…2b260 46 69 6c 65 20 73 74 61 74 75 73 20 6e 72 2e 46 10 31 31 30 30 20 45 4e 44 50 52 4f 43 20 45 4f ┆File status nr.F 1100 ENDPROC EO┆
0x2b260…2b280 46 10 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆F cccccccccccccccccccccccccccc┆
0x2b280…2b2a0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x3…]
0x2b300…2b400 (21, 1, 4) 0x63[0x100]
[…0x6…]
0x2ba00…2ba20 (21, 1, 11) ExtentHdr {name=»OVERFL2 «, typ=»K«, seg=»A«, next=0x01, basis=0x000a, nextext={DA 002c,04 (0x02c400)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 002c,04 (0x02c400)}, f99=41 2b 00 fe 00 00 00 00 00 00 ┆A+ ┆}
0x2ba20…2ba40 3f 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 ┆?0010 // ---------------------- ┆
0x2ba40…2ba60 6f 76 65 72 66 6c 5f 32 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆overfl_2 -----------------------┆
0x2ba60…2ba80 3f 41 30 30 32 30 20 2f 2f 20 55 64 72 65 67 6e 65 72 20 66 6f 72 73 6b 65 6c 6c 69 67 65 20 6f ┆?A0020 // Udregner forskellige o┆
0x2ba80…2baa0 76 65 72 66 6c 61 64 65 72 20 43 41 53 45 20 2d 20 4f 54 48 45 52 57 49 53 45 20 2d 45 4e 44 43 ┆verflader CASE - OTHERWISE -ENDC┆
0x2baa0…2bac0 41 53 45 41 0b 30 30 33 30 20 43 4c 45 41 52 20 0b 3e 30 30 34 30 20 50 52 49 4e 54 20 22 44 65 ┆ASEA 0030 CLEAR >0040 PRINT "De┆
0x2bac0…2bae0 74 74 65 20 70 72 6f 67 72 61 6d 20 75 64 73 6b 72 69 76 65 72 20 64 65 6e 20 73 61 6d 6c 65 64 ┆tte program udskriver den samled┆
0x2bae0…2bb00 65 20 6f 76 65 72 66 6c 61 64 65 20 61 66 3a 22 3e 3e 30 30 35 30 20 50 52 49 4e 54 20 22 2d 2d ┆e overflade af:">>0050 PRINT "--┆
0x2bb00…2bb20 (21, 1, 12) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2bb20…2bb40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 3e 18 30 30 36 30 20 50 52 49 4e 54 20 22 31 2e ┆---------------"> 0060 PRINT "1.┆
0x2bb40…2bb60 20 20 20 4b 61 73 73 65 2e 22 18 1b 30 30 37 30 20 50 52 49 4e 54 20 22 32 2e 20 20 20 43 79 6c ┆ Kasse." 0070 PRINT "2. Cyl┆
0x2bb60…2bb80 69 6e 64 65 72 2e 22 1b 18 30 30 38 30 20 50 52 49 4e 54 20 22 33 2e 20 20 20 4b 65 67 6c 65 2e ┆inder." 0080 PRINT "3. Kegle.┆
0x2bb80…2bba0 22 18 1c 30 30 39 30 20 50 52 49 4e 54 20 22 34 2e 20 20 20 4b 65 67 6c 65 73 74 75 62 2e 22 1c ┆" 0090 PRINT "4. Keglestub." ┆
0x2bba0…2bbc0 18 30 31 30 30 20 50 52 49 4e 54 20 22 35 2e 20 20 20 4b 75 67 6c 65 2e 22 18 0b 30 31 31 30 20 ┆ 0100 PRINT "5. Kugle." 0110 ┆
0x2bbc0…2bbe0 50 52 49 4e 54 20 0b 0b 30 31 32 30 20 50 52 49 4e 54 20 0b 0b 30 31 33 30 20 50 52 49 4e 54 20 ┆PRINT 0120 PRINT 0130 PRINT ┆
0x2bbe0…2bc00 0b 37 30 31 34 30 20 50 52 49 4e 54 20 22 49 6e 64 74 61 73 74 20 64 65 74 20 7c 6e 73 6b 65 64 ┆ 70140 PRINT "Indtast det ønsked┆
0x2bc00…2bc20 (21, 1, 13) 65 20 6e 75 6d 6d 65 72 20 66 6f 72 20 6f 76 65 72 66 6c 61 64 65 3a 22 3b 37 10 30 31 35 30 20 ┆e nummer for overflade:";7 0150 ┆
0x2bc20…2bc40 49 4e 50 55 54 20 5c 4e 53 4b 45 10 3f 30 31 36 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆INPUT ØNSKE ?0160 // -----------┆
0x2bc40…2bc60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2bc60…2bc80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3f 42 30 31 37 30 20 2f 2f 20 4e 75 20 66 69 6e 64 65 73 20 ┆------------?B0170 // Nu findes ┆
0x2bc80…2bca0 64 65 20 66 6f 72 73 6b 65 6c 6c 69 67 65 20 72 75 6d 66 61 6e 67 20 76 65 64 20 65 6e 20 43 41 ┆de forskellige rumfang ved en CA┆
0x2bca0…2bcc0 53 45 20 2d 20 4f 54 48 45 52 57 49 53 45 20 2d 42 10 30 31 38 30 20 2f 2f 20 45 4e 44 43 41 53 ┆SE - OTHERWISE -B 0180 // ENDCAS┆
0x2bcc0…2bce0 45 2e 10 0b 30 31 39 30 20 43 4c 45 41 52 20 0b 0b 30 31 39 35 20 50 52 49 4e 54 20 0b 13 30 32 ┆E. 0190 CLEAR 0195 PRINT 02┆
0x2bce0…2bd00 30 30 20 43 41 53 45 20 5c 4e 53 4b 45 20 4f 46 20 13 0b 30 32 31 30 20 57 48 45 4e 20 31 0b 0b ┆00 CASE ØNSKE OF 0210 WHEN 1 ┆
0x2bd00…2bd20 (21, 1, 14) 30 32 32 30 20 50 52 49 4e 54 20 0b 2f 30 32 33 30 20 50 52 49 4e 54 20 22 44 65 6e 20 73 61 6d ┆0220 PRINT /0230 PRINT "Den sam┆
0x2bd20…2bd40 6c 65 64 65 20 6f 76 65 72 66 6c 61 64 65 20 61 66 20 65 6e 20 6b 61 73 73 65 3a 22 2f 0b 30 32 ┆lede overflade af en kasse:"/ 02┆
0x2bd40…2bd60 34 30 20 50 52 49 4e 54 20 0b 32 30 32 35 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6c ┆40 PRINT 20250 INPUT "Indtast l┆
0x2bd60…2bd80 7b 6e 67 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 4c 5b 4e 47 44 45 32 32 30 ┆ængde: ":LÆNGDE220┆
0x2bd80…2bda0 32 36 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 62 72 65 64 64 65 3a 20 20 20 20 20 20 ┆260 INPUT "Indtast bredde: ┆
0x2bda0…2bdc0 20 20 20 20 20 20 20 20 20 22 3a 42 52 45 44 44 45 32 31 30 32 37 30 20 49 4e 50 55 54 20 22 49 ┆ ":BREDDE210270 INPUT "I┆
0x2bdc0…2bde0 6e 64 74 61 73 74 20 68 7c 6a 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 48 ┆ndtast højde: ":H┆
0x2bde0…2be00 5c 4a 44 45 31 0b 30 32 38 30 20 50 52 49 4e 54 20 0b 0b 30 32 39 30 20 50 52 49 4e 54 20 0b 3b ┆ØJDE1 0280 PRINT 0290 PRINT ;┆
0x2be00…2be20 (21, 1, 15) 30 33 30 30 20 4f 56 45 52 46 4c 41 44 45 3a 3d 28 4c 5b 4e 47 44 45 2a 42 52 45 44 44 45 2b 42 ┆0300 OVERFLADE:=(LÆNGDE*BREDDE+B┆
0x2be20…2be40 52 45 44 44 45 2a 48 5c 4a 44 45 2b 48 5c 4a 44 45 2a 4c 5b 4e 47 44 45 29 2a 32 3b 39 30 33 31 ┆REDDE*HØJDE+HØJDE*LÆNGDE)*2;9031┆
0x2be40…2be60 30 20 50 52 49 4e 54 20 22 44 65 6e 20 73 61 6d 6c 65 64 65 20 6f 76 65 72 66 6c 61 64 65 20 61 ┆0 PRINT "Den samlede overflade a┆
0x2be60…2be80 66 20 6b 61 73 73 65 6e 3a 20 20 22 2c 4f 56 45 52 46 4c 41 44 45 39 0b 30 33 32 30 20 57 48 45 ┆f kassen: ",OVERFLADE9 0320 WHE┆
0x2be80…2bea0 4e 20 32 0b 32 30 33 33 30 20 50 52 49 4e 54 20 22 44 65 6e 20 73 61 6d 6c 65 64 65 20 6f 76 65 ┆N 2 20330 PRINT "Den samlede ove┆
0x2bea0…2bec0 72 66 6c 61 64 65 20 61 66 20 65 6e 20 63 79 6c 69 6e 64 65 72 3a 22 32 0b 30 33 34 30 20 50 52 ┆rflade af en cylinder:"2 0340 PR┆
0x2bec0…2bee0 49 4e 54 20 0b 0b 30 33 35 30 20 50 52 49 4e 54 20 0b 34 30 33 36 30 20 49 4e 50 55 54 20 22 49 ┆INT 0350 PRINT 40360 INPUT "I┆
0x2bee0…2bf00 6e 64 74 61 73 74 20 63 79 6c 69 6e 64 65 72 65 6e 73 20 72 61 64 69 75 73 3a 20 20 20 20 20 22 ┆ndtast cylinderens radius: "┆
0x2bf00…2bf20 (21, 1, 16) 3a 52 41 44 49 55 53 34 0b 30 33 37 30 20 50 52 49 4e 54 20 0b 33 30 33 38 30 20 49 4e 50 55 54 ┆:RADIUS4 0370 PRINT 30380 INPUT┆
0x2bf20…2bf40 20 22 49 6e 64 74 61 73 74 20 63 79 6c 69 6e 64 65 72 65 6e 73 20 68 7c 6a 64 65 3a 20 20 20 20 ┆ "Indtast cylinderens højde: ┆
0x2bf40…2bf60 20 20 22 3a 48 5c 4a 44 45 33 0b 30 33 39 30 20 50 52 49 4e 54 20 0b 0b 30 34 30 30 20 50 52 49 ┆ ":HØJDE3 0390 PRINT 0400 PRI┆
0x2bf60…2bf80 4e 54 20 0b 2c 30 34 31 30 20 4f 56 45 52 46 4c 41 44 45 3a 3d 32 2a 33 2e 31 34 2a 52 41 44 49 ┆NT ,0410 OVERFLADE:=2*3.14*RADI┆
0x2bf80…2bfa0 55 53 2a 28 48 5c 4a 44 45 2b 52 41 44 49 55 53 29 2c 0b 30 34 32 30 20 50 52 49 4e 54 20 0b 3b ┆US*(HØJDE+RADIUS), 0420 PRINT ;┆
0x2bfa0…2bfc0 30 34 33 30 20 50 52 49 4e 54 20 22 44 65 6e 20 74 6f 74 61 6c 65 20 6f 76 65 72 66 6c 61 64 65 ┆0430 PRINT "Den totale overflade┆
0x2bfc0…2bfe0 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2c 4f 56 45 52 46 4c 41 44 45 3b 0b 30 34 34 ┆: ",OVERFLADE; 044┆
0x2bfe0…2c000 30 20 57 48 45 4e 20 33 0b 29 30 34 35 30 20 50 52 49 4e 54 20 22 54 6f 74 61 6c 6f 76 65 72 66 ┆0 WHEN 3 )0450 PRINT "Totaloverf┆
0x2c000…2c020 (22, 0, 1) 6c 61 64 65 6e 20 61 66 20 65 6e 20 6b 65 67 6c 65 3a 22 29 0b 30 34 36 30 20 50 52 49 4e 54 20 ┆laden af en kegle:") 0460 PRINT ┆
0x2c020…2c040 0b 34 30 34 37 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6b 65 67 6c 65 6e 73 20 72 61 ┆ 40470 INPUT "Indtast keglens ra┆
0x2c040…2c060 64 69 75 73 3a 20 20 20 20 20 20 20 20 20 22 3a 52 41 44 49 55 53 34 33 30 34 38 30 20 49 4e 50 ┆dius: ":RADIUS430480 INP┆
0x2c060…2c080 55 54 20 22 49 6e 64 74 61 73 74 20 6b 65 67 6c 65 6e 73 20 68 7c 6a 64 65 3a 20 20 20 20 20 20 ┆UT "Indtast keglens højde: ┆
0x2c080…2c0a0 20 20 20 20 22 3a 48 5c 4a 44 45 33 23 30 34 39 30 20 53 49 44 45 4e 3a 3d 53 51 52 28 48 5c 4a ┆ ":HØJDE3#0490 SIDEN:=SQR(HØJ┆
0x2c0a0…2c0c0 44 45 2a 2a 32 2b 52 41 44 49 55 53 2a 2a 32 29 23 30 30 35 30 30 20 4f 56 45 52 46 4c 41 44 45 ┆DE**2+RADIUS**2)#00500 OVERFLADE┆
0x2c0c0…2c0e0 3a 3d 33 2e 31 34 2a 52 41 44 49 55 53 2a 2a 32 2b 33 2e 31 34 2a 52 41 44 49 55 53 2a 53 49 44 ┆:=3.14*RADIUS**2+3.14*RADIUS*SID┆
0x2c0e0…2c100 45 4e 30 0b 30 35 31 30 20 50 52 49 4e 54 20 0b 0b 30 35 32 30 20 50 52 49 4e 54 20 0b 2d 30 35 ┆EN0 0510 PRINT 0520 PRINT -05┆
0x2c100…2c120 (22, 0, 2) 33 30 20 50 52 49 4e 54 20 22 54 6f 74 61 6c 6f 76 65 72 66 6c 61 64 65 6e 20 61 66 20 65 6e 20 ┆30 PRINT "Totaloverfladen af en ┆
0x2c120…2c140 6b 65 67 6c 65 3a 20 20 20 20 22 2d 34 30 35 34 30 20 50 52 49 4e 54 20 22 52 61 64 69 75 73 3a ┆kegle: "-40540 PRINT "Radius:┆
0x2c140…2c160 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 22 2c 52 41 44 49 55 ┆ ",RADIU┆
0x2c160…2c180 53 34 33 30 35 35 30 20 50 52 49 4e 54 20 22 48 7c 6a 64 65 6e 3a 20 20 20 20 20 20 20 20 20 20 ┆S430550 PRINT "Højden: ┆
0x2c180…2c1a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2c 48 5c 4a 44 45 33 37 30 35 36 30 20 50 52 49 ┆ ",HØJDE370560 PRI┆
0x2c1a0…2c1c0 4e 54 20 22 4f 76 65 72 66 6c 61 64 65 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆NT "Overfladen: ┆
0x2c1c0…2c1e0 20 20 20 20 22 2c 4f 56 45 52 46 4c 41 44 45 37 0b 30 35 37 30 20 57 48 45 4e 20 34 0b 2d 30 35 ┆ ",OVERFLADE7 0570 WHEN 4 -05┆
0x2c1e0…2c200 38 30 20 50 52 49 4e 54 20 22 54 6f 74 61 6c 6f 76 65 72 66 6c 61 64 65 6e 20 61 66 20 65 6e 20 ┆80 PRINT "Totaloverfladen af en ┆
0x2c200…2c220 (22, 0, 3) 6b 65 67 6c 65 73 74 75 62 3a 22 2d 0b 30 35 39 30 20 50 52 49 4e 54 20 0b 0b 30 36 30 30 20 50 ┆keglestub:"- 0590 PRINT 0600 P┆
0x2c220…2c240 52 49 4e 54 20 0b 39 30 36 31 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6b 65 67 6c 65 ┆RINT 90610 INPUT "Indtast kegle┆
0x2c240…2c260 73 74 75 62 62 65 6e 73 20 6e 65 64 65 72 73 74 65 20 72 61 64 69 75 73 3a 20 20 20 22 3a 52 31 ┆stubbens nederste radius: ":R1┆
0x2c260…2c280 39 39 30 36 32 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6b 65 67 6c 65 73 74 75 62 62 ┆990620 INPUT "Indtast keglestubb┆
0x2c280…2c2a0 65 6e 73 20 7c 76 65 72 73 74 65 20 72 61 64 69 75 73 3a 20 20 20 20 22 3a 52 32 39 3c 30 36 33 ┆ens øverste radius: ":R29<063┆
0x2c2a0…2c2c0 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6b 65 67 6c 65 73 74 75 62 62 65 6e 73 20 68 ┆0 INPUT "Indtast keglestubbens h┆
0x2c2c0…2c2e0 7c 6a 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 48 5c 4a 44 45 3c 0b 30 36 34 30 20 ┆øjde: ":HØJDE< 0640 ┆
0x2c2e0…2c300 50 52 49 4e 54 20 0b 33 30 36 35 30 20 53 49 44 45 4e 3a 3d 49 4e 54 28 28 53 51 52 28 28 52 32 ┆PRINT 30650 SIDEN:=INT((SQR((R2┆
0x2c300…2c320 (22, 0, 4) 2d 52 31 29 2a 2a 32 2b 48 5c 4a 44 45 2a 2a 32 29 2a 31 30 30 29 29 2f 31 30 30 33 43 30 36 36 ┆-R1)**2+HØJDE**2)*100))/1003C066┆
0x2c320…2c340 30 20 4f 56 45 52 46 4c 41 44 45 4e 3a 3d 49 4e 54 28 33 2e 31 34 2a 28 52 31 2a 2a 32 2b 52 32 ┆0 OVERFLADEN:=INT(3.14*(R1**2+R2┆
0x2c340…2c360 2a 2a 32 29 2b 33 2e 31 34 2a 53 49 44 45 4e 2a 28 52 31 2b 52 32 29 2a 31 30 30 29 2f 31 30 30 ┆**2)+3.14*SIDEN*(R1+R2)*100)/100┆
0x2c360…2c380 43 0b 30 36 37 30 20 50 52 49 4e 54 20 0b 3d 30 36 38 30 20 50 52 49 4e 54 20 22 52 61 64 69 75 ┆C 0670 PRINT =0680 PRINT "Radiu┆
0x2c380…2c3a0 73 20 69 20 64 65 6e 20 6e 65 64 65 72 73 74 65 20 67 72 75 6e 64 66 6c 61 64 65 3a 20 20 20 20 ┆s i den nederste grundflade: ┆
0x2c3a0…2c3c0 20 20 20 20 20 20 20 20 22 2c 52 31 3d 3d 30 36 39 30 20 50 52 49 4e 54 20 22 52 61 64 69 75 73 ┆ ",R1==0690 PRINT "Radius┆
0x2c3c0…2c3e0 20 69 20 64 65 6e 20 7c 76 65 72 73 74 65 20 66 6c 61 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 ┆ i den øverste flade: ┆
0x2c3e0…2c400 20 20 20 20 20 20 20 22 2c 52 32 3d 40 30 37 30 30 20 50 52 49 4e 54 20 22 53 69 64 65 6c 69 6e ┆ ",R2=@0700 PRINT "Sidelin┆
0x2c400…2c420 (22, 0, 5) ExtentHdr {name=»OVERFL2 «, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 002b,0a (0x02ba00)}, nextfile={DA 002c,0e (0x02ce00)}, f99=41 2b 00 20 00 00 00 00 00 00 ┆A+ ┆}
0x2c420…2c440 69 65 6e 3a 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 ┆ien: ┆
0x2c440…2c460 20 20 20 20 20 20 22 2c 53 49 44 45 4e 40 40 30 37 31 30 20 50 52 49 4e 54 20 22 4b 65 67 6c 65 ┆ ",SIDEN@@0710 PRINT "Kegle┆
0x2c460…2c480 73 74 75 62 62 65 6e 73 20 68 7c 6a 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆stubbens højde: ┆
0x2c480…2c4a0 20 20 20 20 20 20 20 20 22 2c 48 5c 4a 44 45 40 45 30 37 32 30 20 50 52 49 4e 54 20 22 54 6f 74 ┆ ",HØJDE@E0720 PRINT "Tot┆
0x2c4a0…2c4c0 61 6c 6f 76 65 72 66 6c 61 64 65 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆aloverfladen: ┆
0x2c4c0…2c4e0 20 20 20 20 20 20 20 20 20 20 22 2c 4f 56 45 52 46 4c 41 44 45 4e 45 0b 30 37 33 30 20 50 52 49 ┆ ",OVERFLADENE 0730 PRI┆
0x2c4e0…2c500 4e 54 20 0b 0b 30 37 34 30 20 57 48 45 4e 20 35 0b 24 30 37 35 30 20 50 52 49 4e 54 20 22 4f 76 ┆NT 0740 WHEN 5 $0750 PRINT "Ov┆
0x2c500…2c520 (22, 0, 6) 65 72 66 6c 61 64 65 6e 20 61 66 20 65 6e 20 6b 75 67 6c 65 2e 22 24 0b 30 37 36 30 20 50 52 49 ┆erfladen af en kugle."$ 0760 PRI┆
0x2c520…2c540 4e 54 20 0b 3d 30 37 37 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6b 75 67 6c 65 6e 73 ┆NT =0770 INPUT "Indtast kuglens┆
0x2c540…2c560 20 72 61 64 69 75 73 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 52 41 44 49 ┆ radius: ":RADI┆
0x2c560…2c580 55 53 3d 21 30 37 38 30 20 4f 56 45 52 46 4c 41 44 45 4e 3a 3d 34 2a 52 41 44 49 55 53 2a 2a 32 ┆US=!0780 OVERFLADEN:=4*RADIUS**2┆
0x2c580…2c5a0 2a 33 2e 31 34 21 0b 30 37 39 30 20 50 52 49 4e 54 20 0b 41 30 38 30 30 20 50 52 49 4e 54 20 22 ┆*3.14! 0790 PRINT A0800 PRINT "┆
0x2c5a0…2c5c0 4f 76 65 72 66 6c 61 64 65 6e 20 61 66 20 64 65 6e 6e 65 20 6b 75 67 6c 65 20 65 72 3a 20 20 20 ┆Overfladen af denne kugle er: ┆
0x2c5c0…2c5e0 20 20 20 20 20 20 20 20 20 22 2c 4f 56 45 52 46 4c 41 44 45 4e 41 0b 30 38 31 30 20 50 52 49 4e ┆ ",OVERFLADENA 0810 PRIN┆
0x2c5e0…2c600 54 20 0b 0f 30 38 32 30 20 4f 54 48 45 52 57 49 53 45 20 0f 11 30 38 33 30 20 43 55 52 53 4f 52 ┆T 0820 OTHERWISE 0830 CURSOR┆
0x2c600…2c620 (22, 0, 7) 20 31 30 2c 32 31 11 3b 30 38 34 30 20 50 52 49 4e 54 20 22 44 75 20 68 61 72 20 69 6e 64 74 61 ┆ 10,21 ;0840 PRINT "Du har indta┆
0x2c620…2c640 73 74 65 74 20 65 74 20 66 6f 72 6b 65 72 74 20 6e 75 6d 6d 65 72 2e 20 50 72 7c 76 20 69 67 65 ┆stet et forkert nummer. Prøv ige┆
0x2c640…2c660 6e 2e 22 3b 0d 30 38 35 30 20 45 4e 44 43 41 53 45 20 0d 00 00 63 63 63 63 63 63 63 63 63 63 63 ┆n."; 0850 ENDCASE ccccccccccc┆
0x2c660…2c680 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x4…]
0x2c700…2c800 (22, 0, 8) 0x63[0x100]
[…0x6…]
0x2ce00…2ce20 (22, 0, 15) ExtentHdr {name=»EXAMEN «, typ=»K«, seg=»A«, next=0x00, basis=0x0007, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 002d,05 (0x02d500)}, f99=41 2b 00 fe 00 58 41 4d 45 4e ┆A+ XAMEN┆}
0x2ce20…2ce40 4a 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆J0010 // -----------------------┆
0x2ce40…2ce60 2d 2d 2d 20 65 78 61 6d 65 6e 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--- examen ---------------------┆
0x2ce60…2ce80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4a 3f 30 30 32 30 20 2f 2f 20 50 72 6f 67 72 61 6d 6d 65 74 20 ┆-----------J?0020 // Programmet ┆
0x2ce80…2cea0 75 64 73 6b 72 69 76 65 72 20 6e 61 76 6e 2c 20 6e 75 6d 6d 65 72 2c 31 30 20 65 6b 73 61 6d 65 ┆udskriver navn, nummer,10 eksame┆
0x2cea0…2cec0 6e 73 6b 61 72 61 6b 74 65 72 65 72 3f 18 30 30 33 30 20 2f 2f 20 73 61 6d 74 20 67 65 6e 6e 65 ┆nskarakterer? 0030 // samt genne┆
0x2cec0…2cee0 6d 73 6e 69 74 2e 18 29 30 30 34 30 20 2f 2f 20 44 61 74 61 20 69 6e 64 6c 7b 73 65 73 20 76 65 ┆msnit. )0040 // Data indlæses ve┆
0x2cee0…2cf00 64 20 64 61 74 61 2d 73 7b 74 6e 69 6e 67 65 72 2e 29 2b 30 30 34 35 20 49 4e 54 45 47 45 52 20 ┆d data-sætninger.)+0045 INTEGER ┆
0x2cf00…2cf20 (22, 0, 16) 4b 31 2c 4b 32 2c 4b 33 2c 4b 34 2c 4b 35 2c 4b 36 2c 4b 37 2c 4b 38 2c 4b 39 2c 4b 31 30 2b 27 ┆K1,K2,K3,K4,K5,K6,K7,K8,K9,K10+'┆
0x2cf20…2cf40 30 30 35 30 20 44 49 4d 20 4e 41 56 4e 24 20 4f 46 20 32 35 2c 4e 52 24 20 4f 46 20 31 30 2c 53 ┆0050 DIM NAVN$ OF 25,NR$ OF 10,S┆
0x2cf40…2cf60 56 24 20 4f 46 20 31 27 08 30 30 36 30 20 2f 2f 20 08 16 30 30 37 30 20 46 4f 52 20 49 3a 3d 31 ┆V$ OF 1' 0060 // 0070 FOR I:=1┆
0x2cf60…2cf80 20 54 4f 20 32 20 44 4f 20 16 32 30 30 38 30 20 52 45 41 44 20 4e 41 56 4e 24 2c 4e 52 24 2c 4b ┆ TO 2 DO 20080 READ NAVN$,NR$,K┆
0x2cf80…2cfa0 31 2c 4b 32 2c 4b 33 2c 4b 34 2c 4b 35 2c 4b 36 2c 4b 37 2c 4b 38 2c 4b 39 2c 4b 31 30 32 0b 30 ┆1,K2,K3,K4,K5,K6,K7,K8,K9,K102 0┆
0x2cfa0…2cfc0 30 39 30 20 43 4c 45 41 52 20 0b 10 30 31 30 30 20 43 55 52 53 4f 52 20 31 30 2c 32 10 4d 30 31 ┆090 CLEAR 0100 CURSOR 10,2 M01┆
0x2cfc0…2cfe0 31 30 20 50 52 49 4e 54 20 22 55 20 44 20 53 20 4b 20 52 20 49 20 46 20 54 20 20 20 20 61 20 66 ┆10 PRINT "U D S K R I F T a f┆
0x2cfe0…2d000 20 20 20 45 20 4b 20 53 20 41 20 4d 20 45 20 4e 20 53 20 50 20 52 20 4f 20 54 20 4f 20 4b 20 4f ┆ E K S A M E N S P R O T O K O┆
0x2d000…2d020 (22, 1, 1) 20 4c 20 4c 20 45 20 4e 20 2e 22 4d 10 30 31 32 30 20 43 55 52 53 4f 52 20 31 30 2c 33 10 4d 30 ┆ L L E N ."M 0120 CURSOR 10,3 M0┆
0x2d020…2d040 31 33 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆130 PRINT "---------------------┆
0x2d040…2d060 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2d060…2d080 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 4d 10 30 31 34 30 20 43 55 52 53 4f 52 20 31 30 2c 37 10 2a ┆-----------"M 0140 CURSOR 10,7 *┆
0x2d080…2d0a0 30 31 35 30 20 50 52 49 4e 54 20 22 4e 61 76 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆0150 PRINT "Navn: ┆
0x2d0a0…2d0c0 20 20 20 22 3b 4e 41 56 4e 24 2a 10 30 31 36 30 20 43 55 52 53 4f 52 20 31 30 2c 38 10 28 30 31 ┆ ";NAVN$* 0160 CURSOR 10,8 (01┆
0x2d0c0…2d0e0 37 30 20 50 52 49 4e 54 20 22 4e 75 6d 6d 65 72 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆70 PRINT "Nummer: ┆
0x2d0e0…2d100 20 22 3b 4e 52 24 28 11 30 31 38 30 20 43 55 52 53 4f 52 20 31 30 2c 31 30 11 27 30 31 39 30 20 ┆ ";NR$( 0180 CURSOR 10,10 '0190 ┆
0x2d100…2d120 (22, 1, 2) 50 52 49 4e 54 20 22 44 61 6e 73 6b 2c 20 73 6b 72 3a 20 20 20 20 20 20 20 20 20 20 20 20 22 3b ┆PRINT "Dansk, skr: ";┆
0x2d120…2d140 4b 31 27 11 30 32 30 30 20 43 55 52 53 4f 52 20 31 30 2c 31 31 11 27 30 32 31 30 20 50 52 49 4e ┆K1' 0200 CURSOR 10,11 '0210 PRIN┆
0x2d140…2d160 54 20 22 44 61 6e 73 6b 2c 20 73 6b 72 3a 20 20 20 20 20 20 20 20 20 20 20 20 22 3b 4b 32 27 11 ┆T "Dansk, skr: ";K2' ┆
0x2d160…2d180 30 32 32 30 20 43 55 52 53 4f 52 20 31 30 2c 31 32 11 27 30 32 33 30 20 50 52 49 4e 54 20 22 45 ┆0220 CURSOR 10,12 '0230 PRINT "E┆
0x2d180…2d1a0 6e 67 65 6c 73 6b 2c 20 73 6b 72 3a 20 20 20 20 20 20 20 20 20 20 22 3b 4b 33 27 11 30 32 34 30 ┆ngelsk, skr: ";K3' 0240┆
0x2d1a0…2d1c0 20 43 55 52 53 4f 52 20 31 30 2c 31 33 11 27 30 32 35 30 20 50 52 49 4e 54 20 22 45 6e 67 65 6c ┆ CURSOR 10,13 '0250 PRINT "Engel┆
0x2d1c0…2d1e0 73 6b 2c 20 6d 64 74 3a 20 20 20 20 20 20 20 20 20 20 22 3b 4b 34 27 11 30 32 36 30 20 43 55 52 ┆sk, mdt: ";K4' 0260 CUR┆
0x2d1e0…2d200 53 4f 52 20 31 30 2c 31 34 11 27 30 32 37 30 20 50 52 49 4e 54 20 22 54 79 73 6b 2c 20 73 6b 72 ┆SOR 10,14 '0270 PRINT "Tysk, skr┆
0x2d200…2d220 (22, 1, 3) 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3b 4b 35 27 11 30 32 38 30 20 43 55 52 53 4f 52 20 ┆: ";K5' 0280 CURSOR ┆
0x2d220…2d240 31 30 2c 31 35 11 27 30 32 39 30 20 50 52 49 4e 54 20 22 48 69 73 74 6f 72 69 65 3a 20 20 20 20 ┆10,15 '0290 PRINT "Historie: ┆
0x2d240…2d260 20 20 20 20 20 20 20 20 20 20 22 3b 4b 36 27 11 30 33 30 30 20 43 55 52 53 4f 52 20 31 30 2c 31 ┆ ";K6' 0300 CURSOR 10,1┆
0x2d260…2d280 36 11 27 30 33 31 30 20 50 52 49 4e 54 20 22 4d 61 74 65 6d 61 74 69 6b 2c 20 73 6b 72 3a 20 20 ┆6 '0310 PRINT "Matematik, skr: ┆
0x2d280…2d2a0 20 20 20 20 20 20 22 3b 4b 37 27 11 30 33 32 30 20 43 55 52 53 4f 52 20 31 30 2c 31 37 11 27 30 ┆ ";K7' 0320 CURSOR 10,17 '0┆
0x2d2a0…2d2c0 33 33 30 20 50 52 49 4e 54 20 22 4d 61 74 65 6d 61 74 69 6b 2c 20 6d 64 74 3a 20 20 20 20 20 20 ┆330 PRINT "Matematik, mdt: ┆
0x2d2c0…2d2e0 20 20 22 3b 4b 38 27 11 30 33 34 30 20 43 55 52 53 4f 52 20 31 30 2c 31 38 11 27 30 33 35 30 20 ┆ ";K8' 0340 CURSOR 10,18 '0350 ┆
0x2d2e0…2d300 50 52 49 4e 54 20 22 46 79 73 69 6b 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3b ┆PRINT "Fysik: ";┆
0x2d300…2d320 (22, 1, 4) 4b 39 27 11 30 33 36 30 20 43 55 52 53 4f 52 20 31 30 2c 31 39 11 28 30 33 37 30 20 50 52 49 4e ┆K9' 0360 CURSOR 10,19 (0370 PRIN┆
0x2d320…2d340 54 20 22 4f 72 64 65 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3b 4b 31 30 28 ┆T "Orden: ";K10(┆
0x2d340…2d360 0b 30 33 38 30 20 50 52 49 4e 54 20 0b 34 30 33 39 30 20 47 45 4e 4e 45 4d 53 4e 49 54 3a 3d 28 ┆ 0380 PRINT 40390 GENNEMSNIT:=(┆
0x2d360…2d380 4b 31 2b 4b 32 2b 4b 33 2b 4b 34 2b 4b 35 2b 4b 36 2b 4b 37 2b 4b 38 2b 4b 39 2b 4b 31 30 29 2f ┆K1+K2+K3+K4+K5+K6+K7+K8+K9+K10)/┆
0x2d380…2d3a0 31 30 34 11 30 34 30 30 20 43 55 52 53 4f 52 20 31 30 2c 32 31 11 37 30 34 31 30 20 50 52 49 4e ┆104 0400 CURSOR 10,21 70410 PRIN┆
0x2d3a0…2d3c0 54 20 55 53 49 4e 47 20 22 47 65 6e 6e 65 6d 73 6e 69 74 3a 20 20 20 20 20 20 20 20 20 23 23 23 ┆T USING "Gennemsnit: ###┆
0x2d3c0…2d3e0 2e 23 22 3a 47 45 4e 4e 45 4d 53 4e 49 54 37 11 30 34 33 30 20 43 55 52 53 4f 52 20 37 30 2c 32 ┆.#":GENNEMSNIT7 0430 CURSOR 70,2┆
0x2d3e0…2d400 33 11 18 30 34 34 30 20 49 4e 50 55 54 20 22 52 65 74 75 72 6e 21 22 3a 53 56 24 18 0b 30 34 37 ┆3 0440 INPUT "Return!":SV$ 047┆
0x2d400…2d420 (22, 1, 5) 30 20 4e 45 58 54 20 49 0b 08 30 34 38 30 20 2f 2f 20 08 39 30 34 39 30 20 44 41 54 41 20 22 48 ┆0 NEXT I 0480 // 90490 DATA "H┆
0x2d420…2d440 61 6e 73 20 48 61 6e 73 65 6e 22 2c 22 32 32 30 38 36 35 31 32 30 33 22 2c 38 2c 39 2c 35 2c 36 ┆ans Hansen","2208651203",8,9,5,6┆
0x2d440…2d460 2c 38 2c 39 2c 36 2c 37 2c 31 31 2c 36 39 3b 30 35 30 30 20 44 41 54 41 20 22 4a 65 6e 73 20 4a ┆,8,9,6,7,11,69;0500 DATA "Jens J┆
0x2d460…2d480 65 6e 73 65 6e 22 2c 22 31 32 30 35 36 36 31 31 30 39 22 2c 37 2c 36 2c 39 2c 38 2c 31 30 2c 39 ┆ensen","1205661109",7,6,9,8,10,9┆
0x2d480…2d4a0 2c 38 2c 39 2c 31 31 2c 31 31 3b 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆,8,9,11,11; ccccccccccccccccccc┆
0x2d4a0…2d4c0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x2…]
0x2d500…2d520 (22, 1, 6) ExtentHdr {name=»FORKORT «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 002d,0f (0x02df00)}, f99=41 2b 00 fe 00 58 41 4d 45 4e ┆A+ XAMEN┆}
0x2d520…2d540 3f 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 46 ┆?0010 // --------------------- F┆
0x2d540…2d560 6f 72 6b 6f 72 74 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 ┆orkort -------------------------┆
0x2d560…2d580 3f 1d 30 30 31 35 20 49 4e 54 45 47 45 52 20 44 49 56 49 44 45 4e 44 2c 44 49 56 49 53 4f 52 1d ┆? 0015 INTEGER DIVIDEND,DIVISOR ┆
0x2d580…2d5a0 08 30 30 32 30 20 2f 2f 20 08 14 30 30 33 30 20 50 52 4f 43 20 46 4e 53 46 44 28 4e 2c 4d 29 14 ┆ 0020 // 0030 PROC FNSFD(N,M) ┆
0x2d5a0…2d5c0 12 30 30 34 30 20 57 48 49 4c 45 20 4d 3e 30 20 44 4f 20 12 12 30 30 35 30 20 52 45 53 54 3a 3d ┆ 0040 WHILE M>0 DO 0050 REST:=┆
0x2d5c0…2d5e0 4e 20 4d 4f 44 20 4d 12 11 30 30 36 30 20 4e 3a 3d 4d 3b 4d 3a 3d 52 45 53 54 11 0e 30 30 37 30 ┆N MOD M 0060 N:=M;M:=REST 0070┆
0x2d5e0…2d600 20 45 4e 44 57 48 49 4c 45 20 0e 0d 30 30 38 30 20 46 4e 53 46 44 3a 3d 4e 0d 12 30 30 39 30 20 ┆ ENDWHILE 0080 FNSFD:=N 0090 ┆
0x2d600…2d620 (22, 1, 7) 45 4e 44 50 52 4f 43 20 46 4e 53 46 44 12 08 30 31 30 30 20 2f 2f 20 08 28 30 31 31 30 20 50 52 ┆ENDPROC FNSFD 0100 // (0110 PR┆
0x2d620…2d640 4f 43 20 46 4f 52 4b 4f 52 54 28 52 45 46 20 54 5b 4c 4c 45 52 2c 52 45 46 20 4e 5b 56 4e 45 52 ┆OC FORKORT(REF TÆLLER,REF NÆVNER┆
0x2d640…2d660 29 28 21 30 31 32 30 20 46 41 4b 54 4f 52 3a 3d 46 4e 53 46 44 28 54 5b 4c 4c 45 52 2c 4e 5b 56 ┆)(!0120 FAKTOR:=FNSFD(TÆLLER,NÆV┆
0x2d660…2d680 4e 45 52 29 21 1a 30 31 33 30 20 54 5b 4c 4c 45 52 3a 3d 54 5b 4c 4c 45 52 2f 46 41 4b 54 4f 52 ┆NER)! 0130 TÆLLER:=TÆLLER/FAKTOR┆
0x2d680…2d6a0 1a 1a 30 31 34 30 20 4e 5b 56 4e 45 52 3a 3d 4e 5b 56 4e 45 52 2f 46 41 4b 54 4f 52 1a 14 30 31 ┆ 0140 NÆVNER:=NÆVNER/FAKTOR 01┆
0x2d6a0…2d6c0 35 30 20 45 4e 44 50 52 4f 43 20 46 4f 52 4b 4f 52 54 14 08 30 31 36 30 20 2f 2f 20 08 0b 30 31 ┆50 ENDPROC FORKORT 0160 // 01┆
0x2d6c0…2d6e0 37 30 20 43 4c 45 41 52 20 0b 0b 30 31 37 35 20 50 52 49 4e 54 20 0b 39 30 31 38 30 20 49 4e 50 ┆70 CLEAR 0175 PRINT 90180 INP┆
0x2d6e0…2d700 55 54 20 22 49 6e 64 74 61 73 74 20 74 7b 6c 6c 65 72 20 6f 67 20 6e 7b 76 6e 65 72 3a 20 20 22 ┆UT "Indtast tæller og nævner: "┆
0x2d700…2d720 (22, 1, 8) 3a 44 49 56 49 44 45 4e 44 2c 44 49 56 49 53 4f 52 39 0b 30 31 39 30 20 50 52 49 4e 54 20 0b 20 ┆:DIVIDEND,DIVISOR9 0190 PRINT ┆
0x2d720…2d740 30 32 30 30 20 50 52 49 4e 54 20 44 49 56 49 44 45 4e 44 3b 22 2f 22 3b 44 49 56 49 53 4f 52 3b ┆0200 PRINT DIVIDEND;"/";DIVISOR;┆
0x2d740…2d760 20 23 30 32 31 30 20 45 58 45 43 20 46 4f 52 4b 4f 52 54 28 44 49 56 49 44 45 4e 44 2c 44 49 56 ┆ #0210 EXEC FORKORT(DIVIDEND,DIV┆
0x2d760…2d780 49 53 4f 52 29 23 16 30 32 32 30 20 49 46 20 46 41 4b 54 4f 52 3d 31 20 54 48 45 4e 20 16 1e 30 ┆ISOR)# 0220 IF FAKTOR=1 THEN 0┆
0x2d780…2d7a0 32 33 30 20 50 52 49 4e 54 20 22 20 65 72 20 75 66 6f 72 6b 6f 72 74 65 6c 69 67 2e 22 1e 0a 30 ┆230 PRINT " er uforkortelig." 0┆
0x2d7a0…2d7c0 32 34 30 20 45 4c 53 45 20 0a 21 30 32 35 30 20 50 52 49 4e 54 20 22 20 6b 61 6e 20 66 6f 72 6b ┆240 ELSE !0250 PRINT " kan fork┆
0x2d7c0…2d7e0 6f 72 74 65 73 20 74 69 6c 20 22 3b 21 17 30 32 36 30 20 49 46 20 44 49 56 49 53 4f 52 3d 31 20 ┆ortes til ";! 0260 IF DIVISOR=1 ┆
0x2d7e0…2d800 54 48 45 4e 20 17 13 30 32 37 30 20 50 52 49 4e 54 20 44 49 56 49 44 45 4e 44 13 0a 30 32 38 30 ┆THEN 0270 PRINT DIVIDEND 0280┆
0x2d800…2d820 (22, 1, 9) 20 45 4c 53 45 20 0a 1f 30 32 39 30 20 50 52 49 4e 54 20 44 49 56 49 44 45 4e 44 3b 22 2f 22 3b ┆ ELSE 0290 PRINT DIVIDEND;"/";┆
0x2d820…2d840 44 49 56 49 53 4f 52 1f 0b 30 33 30 30 20 45 4e 44 49 46 20 0b 0b 30 33 31 30 20 45 4e 44 49 46 ┆DIVISOR 0300 ENDIF 0310 ENDIF┆
0x2d840…2d860 20 0b 00 00 31 35 20 49 4e 54 45 47 45 52 20 44 49 56 49 44 45 4e 44 2c 44 49 56 49 53 4f 52 1d ┆ 15 INTEGER DIVIDEND,DIVISOR ┆
0x2d860…2d880 08 30 30 32 30 20 2f 2f 20 08 14 30 30 33 30 20 50 52 4f 43 20 46 4e 53 46 44 28 4e 2c 4d 29 14 ┆ 0020 // 0030 PROC FNSFD(N,M) ┆
0x2d880…2d8a0 12 30 30 34 30 20 57 48 49 4c 45 20 4d 3e 30 20 44 4f 20 12 12 30 30 35 30 20 52 45 53 54 3a 3d ┆ 0040 WHILE M>0 DO 0050 REST:=┆
0x2d8a0…2d8c0 4e 20 4d 4f 44 20 4d 12 11 30 30 36 30 20 4e 3a 3d 4d 3b 4d 3a 3d 52 45 53 54 11 0e 30 30 37 30 ┆N MOD M 0060 N:=M;M:=REST 0070┆
0x2d8c0…2d8e0 20 45 4e 44 57 48 49 4c 45 20 0e 0d 30 30 38 30 20 46 4e 53 46 44 3a 3d 4e 0d 12 30 30 39 30 20 ┆ ENDWHILE 0080 FNSFD:=N 0090 ┆
0x2d8e0…2d900 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
0x2d900…2da00 (22, 1, 10) 0x63[0x100]
[…0x5…]
0x2df00…2df20 (22, 1, 16) ExtentHdr {name=»DIVISORE«, typ=»K«, seg=»A«, next=0x00, basis=0x0002, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 002e,01 (0x02e100)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x2df20…2df40 3b 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 ┆;0010 // ---------------------- ┆
0x2df40…2df60 64 69 76 69 73 6f 72 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3b 31 30 30 ┆divisor --------------------;100┆
0x2df60…2df80 32 30 20 2f 2f 20 46 69 6e 64 65 72 20 73 61 6d 74 6c 69 67 65 20 64 69 76 69 73 6f 72 65 72 20 ┆20 // Finder samtlige divisorer ┆
0x2df80…2dfa0 69 20 65 74 20 67 69 76 65 74 20 74 61 6c 2e 31 12 30 30 32 35 20 49 4e 54 45 47 45 52 20 54 41 ┆i et givet tal.1 0025 INTEGER TA┆
0x2dfa0…2dfc0 4c 2c 44 12 31 30 30 33 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 65 74 20 74 61 6c 20 ┆L,D 10030 INPUT "Indtast et tal ┆
0x2dfc0…2dfe0 28 73 74 7c 72 72 65 20 65 6e 64 20 31 29 3a 20 20 22 3a 54 41 4c 31 09 30 30 34 30 20 44 3a 3d ┆(større end 1): ":TAL1 0040 D:=┆
0x2dfe0…2e000 32 09 2d 30 30 35 30 20 50 52 49 4e 54 20 54 41 4c 3b 22 20 68 61 72 20 66 7c 6c 67 65 6e 64 65 ┆2 -0050 PRINT TAL;" har følgende┆
0x2e000…2e020 (23, 0, 1) 20 64 69 76 69 73 6f 72 65 72 3a 20 20 20 20 22 2d 0c 30 30 36 30 20 52 45 50 45 41 54 20 0c 19 ┆ divisorer: "- 0060 REPEAT ┆
0x2e020…2e040 30 30 37 30 20 49 46 20 54 41 4c 20 4d 4f 44 20 44 3d 30 20 54 48 45 4e 20 19 0d 30 30 38 30 20 ┆0070 IF TAL MOD D=0 THEN 0080 ┆
0x2e040…2e060 50 52 49 4e 54 20 44 3b 0d 29 30 30 39 30 20 49 46 20 44 3c 3e 54 41 4c 2f 44 20 54 48 45 4e 20 ┆PRINT D; )0090 IF D<>TAL/D THEN ┆
0x2e060…2e080 50 52 49 4e 54 20 43 48 52 24 28 54 41 4c 2f 44 2c 35 29 29 0b 30 31 30 30 20 45 4e 44 49 46 20 ┆PRINT CHR$(TAL/D,5)) 0100 ENDIF ┆
0x2e080…2e0a0 0b 0b 30 31 31 30 20 44 3a 3d 44 2b 31 0b 15 30 31 32 30 20 55 4e 54 49 4c 20 44 3e 53 51 52 28 ┆ 0110 D:=D+1 0120 UNTIL D>SQR(┆
0x2e0a0…2e0c0 54 41 4c 29 15 0e 30 31 33 30 20 50 52 49 4e 54 20 54 41 4c 0e 00 00 63 63 63 63 63 63 63 63 63 ┆TAL) 0130 PRINT TAL ccccccccc┆
0x2e0c0…2e0e0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x1…]
0x2e100…2e120 (23, 0, 2) ExtentHdr {name=»PANTEBRE«, typ=»K«, seg=»A«, next=0x01, basis=0x000a, nextext={DA 002e,0b (0x02eb00)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 002e,0b (0x02eb00)}, f99=41 2e 00 fe 00 00 00 00 00 00 ┆A. ┆}
0x2e120…2e140 48 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆H0010 // -----------------------┆
0x2e140…2e160 2d 2d 20 70 61 6e 74 65 62 72 65 76 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆-- pantebrev -------------------┆
0x2e160…2e180 2d 2d 2d 2d 2d 2d 2d 2d 2d 48 0b 30 30 32 30 20 43 4c 45 41 52 20 0b 2a 30 30 33 30 20 44 49 4d ┆---------H 0020 CLEAR *0030 DIM┆
0x2e180…2e1a0 20 53 24 20 4f 46 20 31 34 2c 4d 5d 4e 45 44 24 20 4f 46 20 33 2c 46 4f 52 4d 41 24 20 4f 46 20 ┆ S$ OF 14,MÅNED$ OF 3,FORMA$ OF ┆
0x2e1a0…2e1c0 36 35 2a 4d 30 30 34 30 20 46 4f 52 4d 41 24 3a 3d 22 20 20 20 23 23 23 23 23 23 2e 23 23 20 20 ┆65*M0040 FORMA$:=" ######.## ┆
0x2e1c0…2e1e0 20 20 23 23 23 23 23 23 23 23 23 2e 23 23 20 20 20 20 20 20 20 20 23 23 23 23 23 23 23 23 23 2e ┆ #########.## #########.┆
0x2e1e0…2e200 23 23 20 20 20 23 23 23 23 23 23 23 23 23 2e 23 23 4d 20 30 30 35 30 20 50 52 49 4e 54 20 22 50 ┆## #########.##M 0050 PRINT "P┆
0x2e200…2e220 (23, 0, 3) 20 41 20 4e 20 54 20 45 20 42 20 52 20 45 20 56 20 2e 22 20 20 30 30 36 30 20 50 52 49 4e 54 20 ┆ A N T E B R E V ." 0060 PRINT ┆
0x2e220…2e240 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 20 0b 30 30 37 30 20 50 52 49 4e ┆"-------------------" 0070 PRIN┆
0x2e240…2e260 54 20 0b 0b 30 30 38 30 20 50 52 49 4e 54 20 0b 43 30 30 39 30 20 49 4e 50 55 54 20 22 54 61 73 ┆T 0080 PRINT C0090 INPUT "Tas┆
0x2e260…2e280 74 20 68 6f 76 65 64 73 74 6f 6c 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆t hovedstol: ┆
0x2e280…2e2a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 52 45 53 54 43 0b 30 31 30 30 20 50 52 49 4e 54 ┆ ":RESTC 0100 PRINT┆
0x2e2a0…2e2c0 20 0b 45 30 31 31 30 20 49 4e 50 55 54 20 22 54 61 73 74 20 79 64 65 6c 73 65 20 70 72 2e 20 74 ┆ E0110 INPUT "Tast ydelse pr. t┆
0x2e2c0…2e2e0 65 72 6d 69 6e 3a 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 ┆ermin: ┆
0x2e2e0…2e300 22 3a 59 44 45 4c 53 45 45 0b 30 31 32 30 20 50 52 49 4e 54 20 0b 40 30 31 33 30 20 49 4e 50 55 ┆":YDELSEE 0120 PRINT @0130 INPU┆
0x2e300…2e320 (23, 0, 4) 54 20 22 54 61 73 74 20 72 65 6e 74 65 6e 20 69 20 25 20 70 72 2e 20 74 65 72 6d 69 6e 3a 20 20 ┆T "Tast renten i % pr. termin: ┆
0x2e320…2e340 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 52 40 0b 30 31 34 30 20 50 52 ┆ ":R@ 0140 PR┆
0x2e340…2e360 49 4e 54 20 0b 43 30 31 35 30 20 49 4e 50 55 54 20 22 54 61 73 74 20 61 6e 74 61 6c 20 64 61 67 ┆INT C0150 INPUT "Tast antal dag┆
0x2e360…2e380 65 20 69 20 31 2e 20 74 65 72 6d 69 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆e i 1. termin: ┆
0x2e380…2e3a0 20 20 20 22 3a 44 41 47 45 43 0c 30 31 36 30 20 52 45 50 45 41 54 20 0c 0b 30 31 37 30 20 50 52 ┆ ":DAGEC 0160 REPEAT 0170 PR┆
0x2e3a0…2e3c0 49 4e 54 20 0b 45 30 31 38 30 20 49 4e 50 55 54 20 22 54 61 73 74 20 74 65 72 6d 69 6e 73 6d 7d ┆INT E0180 INPUT "Tast terminsmå┆
0x2e3c0…2e3e0 6e 65 64 65 6e 20 66 6f 72 20 31 2e 20 74 65 72 6d 69 6e 20 20 28 6a 75 6e 2f 64 65 63 29 20 20 ┆neden for 1. termin (jun/dec) ┆
0x2e3e0…2e400 20 20 20 22 3a 4d 5d 4e 45 44 24 45 28 30 31 39 30 20 55 4e 54 49 4c 20 22 27 22 2b 4d 5d 4e 45 ┆ ":MÅNED$E(0190 UNTIL "'"+MÅNE┆
0x2e400…2e420 (23, 0, 5) 44 24 2b 22 27 22 20 49 4e 20 22 27 6a 75 6e 27 64 65 63 27 22 28 0b 30 32 30 30 20 50 52 49 4e ┆D$+"'" IN "'jun'dec'"( 0200 PRIN┆
0x2e420…2e440 54 20 0b 41 30 32 31 30 20 49 4e 50 55 54 20 22 54 61 73 74 20 7d 72 73 74 61 6c 6c 65 74 20 66 ┆T A0210 INPUT "Tast årstallet f┆
0x2e440…2e460 6f 72 20 31 2e 20 74 65 72 6d 69 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆or 1. termin: ┆
0x2e460…2e480 20 22 3a 5d 52 41 1a 30 32 32 30 20 49 46 20 4d 5d 4e 45 44 24 3d 22 6a 75 6e 22 20 54 48 45 4e ┆ ":ÅRA 0220 IF MÅNED$="jun" THEN┆
0x2e480…2e4a0 20 1a 12 30 32 33 30 20 4d 5d 4e 45 44 24 3a 3d 22 4a 55 4e 22 12 0a 30 32 34 30 20 45 4c 53 45 ┆ 0230 MÅNED$:="JUN" 0240 ELSE┆
0x2e4a0…2e4c0 20 0a 12 30 32 35 30 20 4d 5d 4e 45 44 24 3a 3d 22 44 45 43 22 12 0b 30 32 36 30 20 45 4e 44 49 ┆ 0250 MÅNED$:="DEC" 0260 ENDI┆
0x2e4c0…2e4e0 46 20 0b 0b 30 32 37 30 20 43 4c 45 41 52 20 0b 1a 30 32 38 30 20 2f 2f 20 73 65 6c 65 63 74 20 ┆F 0270 CLEAR 0280 // select ┆
0x2e4e0…2e500 6f 75 74 70 75 74 22 4c 50 3a 22 1a 41 30 32 39 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 20 ┆output"LP:" A0290 PRINT USING " ┆
0x2e500…2e520 (23, 0, 6) 20 20 20 20 48 6f 76 65 64 73 74 6f 6c 3a 20 20 20 20 20 20 20 20 20 20 20 23 23 23 23 23 23 23 ┆ Hovedstol: #######┆
0x2e520…2e540 23 23 23 23 23 2e 23 23 22 3a 52 45 53 54 41 43 30 33 30 30 20 50 52 49 4e 54 20 55 53 49 4e 47 ┆#####.##":RESTAC0300 PRINT USING┆
0x2e540…2e560 20 22 20 20 20 20 20 59 64 65 6c 73 65 20 70 72 2e 20 74 65 72 6d 69 6e 3a 20 20 20 23 23 23 23 ┆ " Ydelse pr. termin: ####┆
0x2e560…2e580 23 23 23 23 23 23 23 23 2e 23 23 22 3a 59 44 45 4c 53 45 43 40 30 33 31 30 20 50 52 49 4e 54 20 ┆########.##":YDELSEC@0310 PRINT ┆
0x2e580…2e5a0 55 53 49 4e 47 20 22 20 20 20 20 20 52 65 6e 74 65 20 70 72 2e 20 74 65 72 6d 69 6e 3a 20 20 20 ┆USING " Rente pr. termin: ┆
0x2e5a0…2e5c0 20 20 20 20 20 20 20 20 20 20 23 23 23 2e 23 23 20 25 22 3a 52 40 41 30 33 32 30 20 50 52 49 4e ┆ ###.## %":R@A0320 PRIN┆
0x2e5c0…2e5e0 54 20 55 53 49 4e 47 20 22 20 20 20 20 20 44 61 67 65 20 69 20 31 2e 20 74 65 72 6d 69 6e 3a 20 ┆T USING " Dage i 1. termin: ┆
0x2e5e0…2e600 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 23 23 23 22 3a 44 41 47 45 41 0b 30 33 33 30 20 50 ┆ ####":DAGEA 0330 P┆
0x2e600…2e620 (23, 0, 7) 52 49 4e 54 20 0b 0b 30 33 34 30 20 50 52 49 4e 54 20 0b 4a 30 33 35 30 20 50 52 49 4e 54 20 22 ┆RINT 0340 PRINT J0350 PRINT "┆
0x2e620…2e640 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 2e 20 74 65 72 6d 69 6e 3a 20 20 20 20 20 20 20 ┆ 1. termin: ┆
0x2e640…2e660 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3b 4d 5d 4e 45 44 24 2b 22 20 20 22 3b 4a 1b ┆ ";MÅNED$+" ";J ┆
0x2e660…2e680 30 33 36 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 23 23 23 23 23 22 3a 5d 52 1b 4d 30 33 37 ┆0360 PRINT USING "#####":ÅR M037┆
0x2e680…2e6a0 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆0 PRINT " ----------┆
0x2e6a0…2e6c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2e6c0…2e6e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4d 0b 30 33 38 30 20 50 52 49 4e 54 20 0b 18 30 33 39 30 20 50 52 ┆----------M 0380 PRINT 0390 PR┆
0x2e6e0…2e700 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 22 3b 18 4d 30 34 30 30 20 50 52 49 4e 54 20 22 20 ┆INT " "; M0400 PRINT " ┆
0x2e700…2e720 (23, 0, 8) 20 20 20 20 20 20 20 54 45 52 4d 49 4e 20 20 20 20 20 20 20 20 20 52 45 4e 54 45 20 20 20 20 20 ┆ TERMIN RENTE ┆
0x2e720…2e740 20 20 20 20 20 41 46 44 52 41 47 20 20 20 20 20 20 20 20 20 20 20 20 20 20 59 44 45 4c 53 45 22 ┆ AFDRAG YDELSE"┆
0x2e740…2e760 4d 1d 30 34 30 35 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 52 45 53 54 47 5b 4c 44 22 1d ┆M 0405 PRINT " RESTGÆLD" ┆
0x2e760…2e780 4d 30 34 31 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆M0410 PRINT "-------------------┆
0x2e780…2e7a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2e7a0…2e7c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 3b 4d 1d 30 34 31 35 20 50 52 49 4e 54 20 22 2d 2d 2d 2d ┆------------";M 0415 PRINT "----┆
0x2e7c0…2e7e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 1d 0b 30 34 32 30 20 50 52 49 4e 54 20 0b 30 30 34 33 30 ┆------------" 0420 PRINT 00430┆
0x2e7e0…2e800 20 52 45 4e 54 45 3a 3d 49 4e 54 28 52 45 53 54 2a 52 2f 31 30 30 2a 44 41 47 45 2f 31 38 30 2a ┆ RENTE:=INT(REST*R/100*DAGE/180*┆
0x2e800…2e820 (23, 0, 9) 31 30 30 2b 30 2e 35 29 2f 31 30 30 30 30 30 34 34 30 20 44 45 4c 59 44 45 4c 53 45 3a 3d 49 4e ┆100+0.5)/100000440 DELYDELSE:=IN┆
0x2e820…2e840 54 28 59 44 45 4c 53 45 2a 44 41 47 45 2f 31 38 30 2a 31 30 30 2b 30 2e 35 29 2f 31 30 30 30 1c ┆T(YDELSE*DAGE/180*100+0.5)/1000 ┆
0x2e840…2e860 30 34 35 30 20 41 46 44 52 41 47 3a 3d 44 45 4c 59 44 45 4c 53 45 2d 52 45 4e 54 45 1c 16 30 34 ┆0450 AFDRAG:=DELYDELSE-RENTE 04┆
0x2e860…2e880 36 30 20 49 46 20 41 46 44 52 41 47 3c 30 20 54 48 45 4e 20 16 41 30 34 37 30 20 50 52 49 4e 54 ┆60 IF AFDRAG<0 THEN A0470 PRINT┆
0x2e880…2e8a0 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 66 64 72 61 67 65 74 20 69 20 31 2e 20 74 65 ┆ " Afdraget i 1. te┆
0x2e8a0…2e8c0 72 6d 69 6e 20 65 72 20 6e 65 67 61 74 69 76 74 20 21 21 21 21 21 22 41 0a 30 34 38 30 20 53 54 ┆rmin er negativt !!!!!"A 0480 ST┆
0x2e8c0…2e8e0 4f 50 20 0a 0b 30 34 39 30 20 45 4e 44 49 46 20 0b 16 30 35 30 30 20 52 45 53 54 3a 3d 52 45 53 ┆OP 0490 ENDIF 0500 REST:=RES┆
0x2e8e0…2e900 54 2d 41 46 44 52 41 47 16 21 30 35 31 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 22 3b 4d ┆T-AFDRAG !0510 PRINT " ";M┆
0x2e900…2e920 (23, 0, 10) 5d 4e 45 44 24 3b 22 20 20 22 3b 21 1c 30 35 32 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 23 ┆ÅNED$;" ";! 0520 PRINT USING "#┆
0x2e920…2e940 23 23 23 23 22 3a 5d 52 2c 1c 33 30 35 33 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 46 4f 52 4d ┆####":ÅR, 30530 PRINT USING FORM┆
0x2e940…2e960 41 24 3a 52 45 4e 54 45 2c 41 46 44 52 41 47 2c 44 45 4c 59 44 45 4c 53 45 2c 52 45 53 54 33 0c ┆A$:RENTE,AFDRAG,DELYDELSE,REST3 ┆
0x2e960…2e980 30 35 34 30 20 52 45 50 45 41 54 20 0c 1a 30 35 35 30 20 49 46 20 4d 5d 4e 45 44 24 3d 22 44 45 ┆0540 REPEAT 0550 IF MÅNED$="DE┆
0x2e980…2e9a0 43 22 20 54 48 45 4e 20 1a 0b 30 35 36 30 20 50 52 49 4e 54 20 0b 0d 30 35 37 30 20 5d 52 3a 3d ┆C" THEN 0560 PRINT 0570 ÅR:=┆
0x2e9a0…2e9c0 5d 52 2b 31 0d 12 30 35 38 30 20 4d 5d 4e 45 44 24 3a 3d 22 4a 55 4e 22 12 0a 30 35 39 30 20 45 ┆ÅR+1 0580 MÅNED$:="JUN" 0590 E┆
0x2e9c0…2e9e0 4c 53 45 20 0a 12 30 36 30 30 20 4d 5d 4e 45 44 24 3a 3d 22 44 45 43 22 12 0b 30 36 31 30 20 45 ┆LSE 0600 MÅNED$:="DEC" 0610 E┆
0x2e9e0…2ea00 4e 44 49 46 20 0b 21 30 36 32 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 22 3b 4d 5d 4e 45 ┆NDIF !0620 PRINT " ";MÅNE┆
0x2ea00…2ea20 (23, 0, 11) 44 24 3b 22 20 20 22 3b 21 1c 30 36 33 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 23 23 23 23 ┆D$;" ";! 0630 PRINT USING "####┆
0x2ea20…2ea40 23 22 3a 5d 52 2c 1c 1f 30 36 34 30 20 52 45 4e 54 45 3a 3d 49 4e 54 28 52 45 53 54 2a 52 2b 30 ┆#":ÅR, 0640 RENTE:=INT(REST*R+0┆
0x2ea40…2ea60 2e 35 29 2f 31 30 30 1f 19 30 36 35 30 20 41 46 44 52 41 47 3a 3d 59 44 45 4c 53 45 2d 52 45 4e ┆.5)/100 0650 AFDRAG:=YDELSE-REN┆
0x2ea60…2ea80 54 45 19 27 30 36 36 30 20 49 46 20 52 45 53 54 2d 41 46 44 52 41 47 3c 30 20 54 48 45 4e 20 41 ┆TE '0660 IF REST-AFDRAG<0 THEN A┆
0x2ea80…2eaa0 46 44 52 41 47 3a 3d 52 45 53 54 27 2f 30 36 37 30 20 49 46 20 52 45 53 54 2d 41 46 44 52 41 47 ┆FDRAG:=REST'/0670 IF REST-AFDRAG┆
0x2eaa0…2eac0 3d 30 20 54 48 45 4e 20 59 44 45 4c 53 45 3a 3d 52 45 4e 54 45 2b 41 46 44 52 41 47 2f 16 30 36 ┆=0 THEN YDELSE:=RENTE+AFDRAG/ 06┆
0x2eac0…2eae0 38 30 20 52 45 53 54 3a 3d 52 45 53 54 2d 41 46 44 52 41 47 16 30 30 36 39 30 20 50 52 49 4e 54 ┆80 REST:=REST-AFDRAG 00690 PRINT┆
0x2eae0…2eb00 20 55 53 49 4e 47 20 46 4f 52 4d 41 24 3a 52 45 4e 54 45 2c 41 46 44 52 41 47 2c 59 44 45 4c 53 ┆ USING FORMA$:RENTE,AFDRAG,YDELS┆
0x2eb00…2eb20 (23, 0, 12) ExtentHdr {name=»PANTEBRE«, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 002e,01 (0x02e100)}, nextfile={DA 002f,05 (0x02f500)}, f99=41 2e 00 20 00 00 00 00 00 00 ┆A. ┆}
0x2eb20…2eb40 45 2c 52 45 53 54 30 11 30 37 30 30 20 55 4e 54 49 4c 20 52 45 53 54 3d 30 11 00 00 63 63 63 63 ┆E,REST0 0700 UNTIL REST=0 cccc┆
0x2eb40…2eb60 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x5…]
0x2ec00…2ed00 (23, 0, 13) 0x63[0x100]
[…0x8…]
0x2f500…2f520 (23, 1, 6) ExtentHdr {name=»REJSEBUR«, typ=»K«, seg=»A«, next=0x01, basis=0x000a, nextext={DA 002f,0f (0x02ff00)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 002f,0f (0x02ff00)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x2f520…2f540 41 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆A0010 // -----------------------┆
0x2f540…2f560 20 52 65 6a 73 65 62 75 72 65 61 75 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ Rejsebureau -------------------┆
0x2f560…2f580 2d 2d 41 42 30 30 32 30 20 2f 2f 20 50 72 6f 67 72 61 6d 6d 65 74 20 75 64 73 6b 72 69 76 65 72 ┆--AB0020 // Programmet udskriver┆
0x2f580…2f5a0 20 70 72 69 73 20 6f 67 20 72 65 73 74 61 6e 74 61 6c 20 66 6f 72 20 64 65 73 74 69 6e 61 74 69 ┆ pris og restantal for destinati┆
0x2f5a0…2f5c0 6f 6e 65 72 20 69 42 0f 30 30 33 30 20 2f 2f 20 45 75 72 6f 70 61 2e 0f 08 30 30 34 30 20 2f 2f ┆oner iB 0030 // Europa. 0040 //┆
0x2f5c0…2f5e0 20 08 2d 30 30 34 32 20 49 4e 54 45 47 45 52 20 54 52 55 45 2c 46 41 4c 53 45 2c 41 4e 54 41 4c ┆ -0042 INTEGER TRUE,FALSE,ANTAL┆
0x2f5e0…2f600 52 45 4a 53 45 4d 5d 4c 2c 49 2c 41 4e 54 41 4c 2d 15 30 30 34 33 20 46 41 4c 53 45 3a 3d 30 3b ┆REJSEMÅL,I,ANTAL- 0043 FALSE:=0;┆
0x2f600…2f620 (23, 1, 7) 54 52 55 45 3a 3d 31 15 3f 30 30 35 30 20 44 49 4d 20 52 45 4a 53 45 4d 5d 4c 24 20 4f 46 20 33 ┆TRUE:=1 ?0050 DIM REJSEMÅL$ OF 3┆
0x2f620…2f640 30 2c 44 45 53 54 49 4e 41 54 49 4f 4e 24 20 4f 46 20 33 30 2c 5c 4e 53 4b 45 24 20 4f 46 20 33 ┆0,DESTINATION$ OF 30,ØNSKE$ OF 3┆
0x2f640…2f660 2c 53 24 20 4f 46 20 31 3f 0e 30 30 36 30 20 45 58 45 43 20 4d 45 4e 55 0e 08 30 30 37 30 20 2f ┆,S$ OF 1? 0060 EXEC MENU 0070 /┆
0x2f660…2f680 2f 20 08 0e 30 30 38 30 20 50 52 4f 43 20 4d 45 4e 55 0e 0d 30 30 39 30 20 52 45 53 54 4f 52 45 ┆/ 0080 PROC MENU 0090 RESTORE┆
0x2f680…2f6a0 20 0d 0b 30 31 31 30 20 43 4c 45 41 52 20 0b 0f 30 31 32 30 20 43 55 52 53 4f 52 20 31 2c 33 0f ┆ 0110 CLEAR 0120 CURSOR 1,3 ┆
0x2f6a0…2f6c0 3e 30 31 33 30 20 50 52 49 4e 54 20 22 20 20 52 20 45 20 4a 20 53 20 45 20 42 20 55 20 52 20 45 ┆>0130 PRINT " R E J S E B U R E┆
0x2f6c0…2f6e0 20 41 20 55 20 20 20 20 20 27 44 65 6e 20 67 79 6c 64 6e 65 20 73 6f 6c 27 20 20 20 20 20 22 3e ┆ A U 'Den gyldne sol' ">┆
0x2f6e0…2f700 0f 30 31 34 30 20 43 55 52 53 4f 52 20 31 2c 34 0f 3e 30 31 35 30 20 50 52 49 4e 54 20 22 2d 2d ┆ 0140 CURSOR 1,4 >0150 PRINT "--┆
0x2f700…2f720 (23, 1, 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 ┆--------------------------------┆
0x2f720…2f740 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 3e 10 30 31 36 30 20 43 55 52 53 4f 52 20 31 2c ┆---------------"> 0160 CURSOR 1,┆
0x2f740…2f760 31 30 10 30 30 31 37 30 20 50 52 49 4e 54 20 22 56 69 20 68 61 72 20 66 7c 6c 67 65 6e 64 65 20 ┆10 00170 PRINT "Vi har følgende ┆
0x2f760…2f780 64 65 73 74 69 6e 61 74 69 6f 6e 65 72 3a 20 20 20 20 20 22 30 10 30 31 38 30 20 43 55 52 53 4f ┆destinationer: "0 0180 CURSO┆
0x2f780…2f7a0 52 20 31 2c 31 31 10 30 30 31 39 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆R 1,11 00190 PRINT "------------┆
0x2f7a0…2f7c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 20 20 20 22 30 10 30 32 30 30 20 43 ┆------------------ "0 0200 C┆
0x2f7c0…2f7e0 55 52 53 4f 52 20 31 2c 31 33 10 45 30 32 31 30 20 50 52 49 4e 54 20 22 4c 6f 6e 64 6f 6e 20 2d ┆URSOR 1,13 E0210 PRINT "London -┆
0x2f7e0…2f800 20 50 61 72 69 73 20 2d 20 4f 73 6c 6f 20 2d 20 53 74 6f 63 6b 68 6f 6c 6d 20 2d 20 4d 61 64 72 ┆ Paris - Oslo - Stockholm - Madr┆
0x2f800…2f820 (23, 1, 9) 69 64 20 2d 20 48 65 6c 73 69 6e 67 66 6f 72 73 22 45 44 30 32 32 30 20 50 52 49 4e 54 20 22 52 ┆id - Helsingfors"ED0220 PRINT "R┆
0x2f820…2f840 6f 6d 20 2d 20 4d 6f 73 6b 76 61 20 2d 20 42 65 72 6e 20 2d 20 41 6d 73 74 65 72 64 61 6d 20 2d ┆om - Moskva - Bern - Amsterdam -┆
0x2f840…2f860 20 42 72 75 78 65 6c 6c 65 73 20 2d 20 4c 69 73 73 61 62 6f 6e 20 22 44 10 30 32 33 30 20 43 55 ┆ Bruxelles - Lissabon "D 0230 CU┆
0x2f860…2f880 52 53 4f 52 20 31 2c 31 38 10 35 30 32 34 30 20 49 4e 50 55 54 20 22 48 76 6f 72 68 65 6e 20 7c ┆RSOR 1,18 50240 INPUT "Hvorhen ø┆
0x2f880…2f8a0 6e 73 6b 65 72 20 44 65 20 61 74 20 72 65 6a 73 65 3f 20 20 20 22 3a 52 45 4a 53 45 4d 5d 4c 24 ┆nsker De at rejse? ":REJSEMÅL$┆
0x2f8a0…2f8c0 35 08 30 32 35 30 20 2f 2f 20 08 12 30 32 36 30 20 46 55 4e 44 45 54 3a 3d 46 41 4c 53 45 12 0d ┆5 0250 // 0260 FUNDET:=FALSE ┆
0x2f8c0…2f8e0 30 32 37 30 20 52 45 53 54 4f 52 45 20 0d 17 30 32 38 30 20 52 45 41 44 20 41 4e 54 41 4c 52 45 ┆0270 RESTORE 0280 READ ANTALRE┆
0x2f8e0…2f900 4a 53 45 4d 5d 4c 17 09 30 32 39 30 20 49 3a 3d 31 09 1f 30 32 39 31 20 57 48 49 4c 45 20 49 3c ┆JSEMÅL 0290 I:=1 0291 WHILE I<┆
0x2f900…2f920 (23, 1, 10) 3d 41 4e 54 41 4c 52 45 4a 53 45 4d 5d 4c 20 44 4f 20 1f 21 30 33 30 30 20 52 45 41 44 20 44 45 ┆=ANTALREJSEMÅL DO !0300 READ DE┆
0x2f920…2f940 53 54 49 4e 41 54 49 4f 4e 24 2c 50 52 49 53 2c 41 4e 54 41 4c 21 24 30 33 31 30 20 49 46 20 44 ┆STINATION$,PRIS,ANTAL!$0310 IF D┆
0x2f940…2f960 45 53 54 49 4e 41 54 49 4f 4e 24 3d 52 45 4a 53 45 4d 5d 4c 24 20 54 48 45 4e 20 24 0b 30 33 32 ┆ESTINATION$=REJSEMÅL$ THEN $ 032┆
0x2f960…2f980 30 20 43 4c 45 41 52 20 0b 12 30 33 33 30 20 45 58 45 43 20 55 44 53 4b 52 49 46 54 12 11 30 33 ┆0 CLEAR 0330 EXEC UDSKRIFT 03┆
0x2f980…2f9a0 34 30 20 45 58 45 43 20 50 52 49 4e 54 45 52 11 11 30 33 35 30 20 46 55 4e 44 45 54 3a 3d 54 52 ┆40 EXEC PRINTER 0350 FUNDET:=TR┆
0x2f9a0…2f9c0 55 45 11 0b 30 33 36 30 20 45 4e 44 49 46 20 0b 0b 30 33 37 30 20 49 3a 3d 49 2b 31 0b 0e 30 33 ┆UE 0360 ENDIF 0370 I:=I+1 03┆
0x2f9c0…2f9e0 38 30 20 45 4e 44 57 48 49 4c 45 20 0e 27 30 34 30 30 20 49 46 20 4e 4f 54 20 46 55 4e 44 45 54 ┆80 ENDWHILE '0400 IF NOT FUNDET┆
0x2f9e0…2fa00 20 54 48 45 4e 20 45 58 45 43 20 46 45 4a 4c 53 4b 52 49 46 54 27 11 30 34 32 30 20 45 4e 44 50 ┆ THEN EXEC FEJLSKRIFT' 0420 ENDP┆
0x2fa00…2fa20 (23, 1, 11) 52 4f 43 20 4d 45 4e 55 11 08 30 34 33 30 20 2f 2f 20 08 14 30 34 34 30 20 50 52 4f 43 20 46 45 ┆ROC MENU 0430 // 0440 PROC FE┆
0x2fa20…2fa40 4a 4c 53 4b 52 49 46 54 14 0b 30 34 35 30 20 43 4c 45 41 52 20 0b 10 30 34 36 30 20 43 55 52 53 ┆JLSKRIFT 0450 CLEAR 0460 CURS┆
0x2fa40…2fa60 4f 52 20 31 2c 31 30 10 3a 30 34 37 30 20 50 52 49 4e 54 20 22 56 69 20 68 61 72 20 64 65 73 76 ┆OR 1,10 :0470 PRINT "Vi har desv┆
0x2fa60…2fa80 7b 72 72 65 20 69 6e 67 65 6e 20 72 65 6a 73 65 72 20 74 69 6c 3a 20 20 22 3b 52 45 4a 53 45 4d ┆ærre ingen rejser til: ";REJSEM┆
0x2fa80…2faa0 5d 4c 24 3a 10 30 34 38 30 20 43 55 52 53 4f 52 20 31 2c 32 30 10 45 30 34 39 30 20 49 4e 50 55 ┆ÅL$: 0480 CURSOR 1,20 E0490 INPU┆
0x2faa0…2fac0 54 20 22 48 61 72 20 44 65 20 69 6b 6b 65 20 6c 79 73 74 20 74 69 6c 20 61 74 20 72 65 6a 73 65 ┆T "Har De ikke lyst til at rejse┆
0x2fac0…2fae0 20 65 74 20 61 6e 64 65 74 20 73 74 65 64 20 68 65 6e 3f 20 22 3a 5c 4e 53 4b 45 24 45 1f 30 35 ┆ et andet sted hen? ":ØNSKE$E 05┆
0x2fae0…2fb00 30 30 20 49 46 20 5c 4e 53 4b 45 24 20 49 4e 20 22 4a 41 2c 6a 61 22 20 54 48 45 4e 20 1f 0e 30 ┆00 IF ØNSKE$ IN "JA,ja" THEN 0┆
0x2fb00…2fb20 (23, 1, 12) 35 31 30 20 45 58 45 43 20 4d 45 4e 55 0e 0a 30 35 32 30 20 45 4c 53 45 20 0a 09 30 35 33 30 20 ┆510 EXEC MENU 0520 ELSE 0530 ┆
0x2fb20…2fb40 45 4e 44 20 09 0b 30 35 34 30 20 45 4e 44 49 46 20 0b 17 30 35 35 30 20 45 4e 44 50 52 4f 43 20 ┆END 0540 ENDIF 0550 ENDPROC ┆
0x2fb40…2fb60 46 45 4a 4c 53 4b 52 49 46 54 17 08 30 35 36 30 20 2f 2f 20 08 12 30 35 37 30 20 50 52 4f 43 20 ┆FEJLSKRIFT 0560 // 0570 PROC ┆
0x2fb60…2fb80 55 44 53 4b 52 49 46 54 12 0f 30 35 38 30 20 43 55 52 53 4f 52 20 31 2c 36 0f 3c 30 35 39 30 20 ┆UDSKRIFT 0580 CURSOR 1,6 <0590 ┆
0x2fb80…2fba0 50 52 49 4e 54 20 22 20 20 52 20 65 20 6a 20 64 20 65 20 62 20 75 20 72 20 65 20 61 20 75 20 20 ┆PRINT " R e j d e b u r e a u ┆
0x2fba0…2fbc0 20 20 27 44 65 6e 20 67 79 6c 64 6e 65 20 73 6f 6c 27 20 20 20 20 22 3c 0f 30 36 30 30 20 43 55 ┆ 'Den gyldne sol' "< 0600 CU┆
0x2fbc0…2fbe0 52 53 4f 52 20 31 2c 37 0f 3c 30 36 31 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆RSOR 1,7 <0610 PRINT "----------┆
0x2fbe0…2fc00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2fc00…2fc20 (23, 1, 13) 2d 2d 2d 2d 2d 22 3c 10 30 36 32 30 20 43 55 52 53 4f 52 20 31 2c 31 30 10 3c 30 36 33 30 20 50 ┆-----"< 0620 CURSOR 1,10 <0630 P┆
0x2fc20…2fc40 52 49 4e 54 20 22 56 69 20 6b 61 6e 20 74 69 6c 62 79 64 65 20 44 65 6d 20 65 6e 20 72 65 6a 73 ┆RINT "Vi kan tilbyde Dem en rejs┆
0x2fc40…2fc60 65 20 74 69 6c 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3c 10 30 36 34 30 20 43 55 52 ┆e til: "< 0640 CUR┆
0x2fc60…2fc80 53 4f 52 20 31 2c 31 32 10 3b 30 36 35 30 20 50 52 49 4e 54 20 22 52 65 6a 73 65 6d 7d 6c 3a 20 ┆SOR 1,12 ;0650 PRINT "Rejsemål: ┆
0x2fc80…2fca0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3b 44 45 53 54 49 4e 41 ┆ ";DESTINA┆
0x2fca0…2fcc0 54 49 4f 4e 24 3b 10 30 36 36 30 20 43 55 52 53 4f 52 20 31 2c 31 33 10 44 30 36 37 30 20 50 52 ┆TION$; 0660 CURSOR 1,13 D0670 PR┆
0x2fcc0…2fce0 49 4e 54 20 55 53 49 4e 47 20 22 50 72 69 73 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆INT USING "Pris: ┆
0x2fce0…2fd00 20 20 20 20 20 20 20 20 23 23 23 23 23 23 23 23 2e 23 23 20 6b 72 2e 22 3a 50 52 49 53 44 10 30 ┆ ########.## kr.":PRISD 0┆
0x2fd00…2fd20 (23, 1, 14) 36 38 30 20 43 55 52 53 4f 52 20 31 2c 31 34 10 34 30 36 39 30 20 50 52 49 4e 54 20 22 52 65 73 ┆680 CURSOR 1,14 40690 PRINT "Res┆
0x2fd20…2fd40 74 70 6c 61 64 73 65 72 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3b ┆tpladser: ";┆
0x2fd40…2fd60 41 4e 54 41 4c 34 15 30 37 30 30 20 45 4e 44 50 52 4f 43 20 55 44 53 4b 52 49 46 54 15 08 30 37 ┆ANTAL4 0700 ENDPROC UDSKRIFT 07┆
0x2fd60…2fd80 31 30 20 2f 2f 20 08 11 30 37 32 30 20 50 52 4f 43 20 50 52 49 4e 54 45 52 11 16 30 37 33 30 20 ┆10 // 0720 PROC PRINTER 0730 ┆
0x2fd80…2fda0 53 45 4c 45 43 54 20 4f 55 54 50 55 54 20 22 54 22 16 0c 30 37 34 30 20 52 45 50 45 41 54 20 0c ┆SELECT OUTPUT "T" 0740 REPEAT ┆
0x2fda0…2fdc0 10 30 37 35 30 20 43 55 52 53 4f 52 20 31 2c 32 32 10 36 30 37 36 30 20 49 4e 50 55 54 20 22 5c ┆ 0750 CURSOR 1,22 60760 INPUT "Ø┆
0x2fdc0…2fde0 6e 73 6b 65 73 20 75 64 73 6b 72 69 66 74 20 70 7d 20 70 72 69 6e 74 65 72 3f 20 20 20 28 6a 2f ┆nskes udskrift på printer? (j/┆
0x2fde0…2fe00 6e 29 20 20 20 22 3a 53 24 36 1e 30 38 30 30 20 49 46 20 53 24 3d 22 4a 22 20 4f 52 20 53 24 3d ┆n) ":S$6 0800 IF S$="J" OR S$=┆
0x2fe00…2fe20 (23, 1, 15) 22 6a 22 20 54 48 45 4e 20 1e 16 30 38 31 30 20 53 45 4c 45 43 54 20 4f 55 54 50 55 54 20 22 50 ┆"j" THEN 0810 SELECT OUTPUT "P┆
0x2fe20…2fe40 22 16 1b 30 38 31 31 20 49 46 20 53 54 41 54 55 53 28 22 50 22 29 3d 31 20 54 48 45 4e 20 1b 10 ┆" 0811 IF STATUS("P")=1 THEN ┆
0x2fe40…2fe60 30 38 31 32 20 43 55 52 53 4f 52 20 31 2c 32 32 10 36 30 38 31 33 20 50 52 49 4e 54 20 22 3c 5a ┆0812 CURSOR 1,22 60813 PRINT "<Z┆
0x2fe60…2fe80 3e 50 72 69 6e 74 65 72 20 65 72 20 72 65 73 65 72 76 65 72 65 74 20 61 66 20 61 6e 64 65 6e 20 ┆>Printer er reserveret af anden ┆
0x2fe80…2fea0 62 72 75 67 65 72 2c 22 36 41 30 38 31 34 20 49 4e 50 55 54 20 22 20 53 6b 61 6c 20 64 65 72 20 ┆bruger,"6A0814 INPUT " Skal der ┆
0x2fea0…2fec0 76 65 6e 74 65 73 20 70 7d 20 61 74 20 64 65 6e 20 62 6c 69 76 65 72 20 6c 65 64 69 67 3f 20 20 ┆ventes på at den bliver ledig? ┆
0x2fec0…2fee0 28 6a 2f 6e 29 20 20 22 3a 53 24 41 1e 30 38 31 35 20 49 46 20 53 24 3d 22 4a 22 20 4f 52 20 53 ┆(j/n) ":S$A 0815 IF S$="J" OR S┆
0x2fee0…2ff00 24 3d 22 6a 22 20 54 48 45 4e 20 1e 10 30 38 31 36 20 43 55 52 53 4f 52 20 31 2c 32 33 10 37 30 ┆$="j" THEN 0816 CURSOR 1,23 70┆
0x2ff00…2ff20 (23, 1, 16) ExtentHdr {name=»REJSEBUR«, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 002f,05 (0x02f500)}, nextfile={DA 0030,09 (0x030900)}, f99=00 00 00 20 00 00 00 00 00 00 ┆ ┆}
0x2ff20…2ff40 38 31 37 20 50 52 49 4e 54 20 22 3c 5a 3e 44 65 72 20 76 65 6e 74 65 73 20 70 7d 20 61 74 20 70 ┆817 PRINT "<Z>Der ventes på at p┆
0x2ff40…2ff60 72 69 6e 74 65 72 65 6e 20 62 6c 69 76 65 72 20 6c 65 64 69 67 22 37 2d 30 38 31 38 20 57 48 49 ┆rinteren bliver ledig"7-0818 WHI┆
0x2ff60…2ff80 4c 45 20 53 54 41 54 55 53 28 22 50 22 29 3d 31 20 44 4f 20 53 45 4c 45 43 54 20 4f 55 54 50 55 ┆LE STATUS("P")=1 DO SELECT OUTPU┆
0x2ff80…2ffa0 54 20 22 50 22 2d 0a 30 38 31 39 20 45 4c 53 45 20 0a 16 30 38 32 30 20 53 45 4c 45 43 54 20 4f ┆T "P"- 0819 ELSE 0820 SELECT O┆
0x2ffa0…2ffc0 55 54 50 55 54 20 22 54 22 16 0b 30 38 32 31 20 45 4e 44 49 46 20 0b 0b 30 38 32 32 20 45 4e 44 ┆UTPUT "T" 0821 ENDIF 0822 END┆
0x2ffc0…2ffe0 49 46 20 0b 12 30 38 32 33 20 45 58 45 43 20 55 44 53 4b 52 49 46 54 12 0b 30 38 32 35 20 45 4e ┆IF 0823 EXEC UDSKRIFT 0825 EN┆
0x2ffe0…30000 44 49 46 20 0b 16 30 38 33 30 20 53 45 4c 45 43 54 20 4f 55 54 50 55 54 20 22 54 22 16 10 30 38 ┆DIF 0830 SELECT OUTPUT "T" 08┆
0x30000…30020 (24, 0, 1) 34 30 20 43 55 52 53 4f 52 20 31 2c 32 31 10 34 30 38 35 30 20 50 52 49 4e 54 20 22 20 20 20 20 ┆40 CURSOR 1,21 40850 PRINT " ┆
0x30020…30040 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 ┆ ┆
0x30040…30060 20 20 20 22 34 3c 30 38 36 30 20 50 52 49 4e 54 20 22 53 7d 20 73 6c 75 74 74 65 72 20 76 69 20 ┆ "4<0860 PRINT "Så slutter vi ┆
0x30060…30080 66 6f 72 20 69 20 64 61 67 20 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆for i dag . ┆
0x30080…300a0 20 22 3c 09 30 38 37 30 20 45 4e 44 20 09 15 30 38 39 30 20 55 4e 54 49 4c 20 53 24 20 49 4e 20 ┆ "< 0870 END 0890 UNTIL S$ IN ┆
0x300a0…300c0 22 6e 4e 22 15 16 30 39 30 30 20 53 45 4c 45 43 54 20 4f 55 54 50 55 54 20 22 54 22 16 14 30 39 ┆"nN" 0900 SELECT OUTPUT "T" 09┆
0x300c0…300e0 31 30 20 45 4e 44 50 52 4f 43 20 50 52 49 4e 54 45 52 14 08 30 39 32 30 20 2f 2f 20 08 1a 30 39 ┆10 ENDPROC PRINTER 0920 // 09┆
0x300e0…30100 32 35 20 2f 2f 20 61 6e 74 61 6c 72 65 6a 73 65 6d 7d 6c 20 3d 20 31 32 1a 0c 30 39 33 30 20 44 ┆25 // antalrejsemål = 12 0930 D┆
0x30100…30120 (24, 0, 2) 41 54 41 20 31 32 0c 19 30 39 34 30 20 44 41 54 41 20 22 4c 6f 6e 64 6f 6e 22 2c 32 32 33 33 2c ┆ATA 12 0940 DATA "London",2233,┆
0x30120…30140 36 19 19 30 39 35 30 20 44 41 54 41 20 22 50 61 72 69 73 22 2c 32 30 30 30 2c 31 32 19 17 30 39 ┆6 0950 DATA "Paris",2000,12 09┆
0x30140…30160 36 30 20 44 41 54 41 20 22 4f 73 6c 6f 22 2c 31 32 30 30 2c 35 17 1c 30 39 37 30 20 44 41 54 41 ┆60 DATA "Oslo",1200,5 0970 DATA┆
0x30160…30180 20 22 53 74 6f 63 6b 68 6f 6c 6d 22 2c 31 34 30 30 2c 37 1c 19 30 39 38 30 20 44 41 54 41 20 22 ┆ "Stockholm",1400,7 0980 DATA "┆
0x30180…301a0 4d 61 64 72 69 64 22 2c 33 30 30 30 2c 38 19 1f 30 39 39 30 20 44 41 54 41 20 22 48 65 6c 73 69 ┆Madrid",3000,8 0990 DATA "Helsi┆
0x301a0…301c0 6e 67 66 6f 72 73 22 2c 31 36 30 30 2c 31 34 1f 17 31 30 30 30 20 44 41 54 41 20 22 52 6f 6d 22 ┆ngfors",1600,14 1000 DATA "Rom"┆
0x301c0…301e0 2c 33 30 30 30 2c 31 35 17 19 31 30 31 30 20 44 41 54 41 20 22 4d 6f 73 6b 76 61 22 2c 32 36 30 ┆,3000,15 1010 DATA "Moskva",260┆
0x301e0…30200 30 2c 38 19 17 31 30 32 30 20 44 41 54 41 20 22 42 65 72 6e 22 2c 31 36 34 30 2c 35 17 1b 31 30 ┆0,8 1020 DATA "Bern",1640,5 10┆
0x30200…30220 (24, 0, 3) 33 30 20 44 41 54 41 20 22 41 6d 73 74 65 72 64 61 6d 22 2c 37 30 30 2c 34 1b 1b 31 30 34 30 20 ┆30 DATA "Amsterdam",700,4 1040 ┆
0x30220…30240 44 41 54 41 20 22 42 72 75 78 65 6c 6c 65 73 22 2c 39 30 30 2c 35 1b 1b 31 30 35 30 20 44 41 54 ┆DATA "Bruxelles",900,5 1050 DAT┆
0x30240…30260 41 20 22 4c 69 73 73 61 62 6f 6e 22 2c 33 34 30 30 2c 36 1b 00 00 00 00 63 63 63 63 63 63 63 63 ┆A "Lissabon",3400,6 cccccccc┆
0x30260…30280 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x4…]
0x30300…30400 (24, 0, 4) 0x63[0x100]
[…0x5…]
0x30900…30920 (24, 0, 10) ExtentHdr {name=»AFSTAND «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0031,03 (0x031300)}, f99=41 30 00 fe 00 00 00 00 00 00 ┆A0 ┆}
0x30920…30940 41 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆A0010 // -----------------------┆
0x30940…30960 2d 2d 20 41 46 53 54 41 4e 44 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆-- AFSTAND ---------------------┆
0x30960…30980 2d 2d 41 08 30 30 32 30 20 2f 2f 20 08 40 30 30 33 30 20 2f 2f 20 55 64 72 65 67 6e 65 72 20 61 ┆--A 0020 // @0030 // Udregner a┆
0x30980…309a0 66 73 74 61 6e 64 65 6e 20 6d 65 6c 6c 65 6d 20 74 6f 20 70 75 6e 6b 74 65 72 20 69 20 6b 6f 6f ┆fstanden mellem to punkter i koo┆
0x309a0…309c0 72 64 69 6e 61 74 73 79 73 74 65 6d 65 74 40 35 30 30 34 30 20 2f 2f 20 6e 7d 72 20 6d 61 6e 20 ┆rdinatsystemet@50040 // når man ┆
0x309c0…309e0 69 6e 64 74 61 73 74 65 72 20 64 65 20 74 6f 20 70 75 6e 6b 74 65 72 73 20 6b 6f 6f 72 64 69 6e ┆indtaster de to punkters koordin┆
0x309e0…30a00 61 74 65 72 2e 35 08 30 30 35 30 20 2f 2f 20 08 08 30 30 36 30 20 2f 2f 20 08 10 30 30 36 35 20 ┆ater.5 0050 // 0060 // 0065 ┆
0x30a00…30a20 (24, 0, 11) 44 49 4d 20 53 24 20 4f 46 20 31 10 18 30 30 36 36 20 49 4e 54 45 47 45 52 20 58 31 2c 59 31 2c ┆DIM S$ OF 1 0066 INTEGER X1,Y1,┆
0x30a20…30a40 58 32 2c 59 32 18 0c 30 30 37 30 20 52 45 50 45 41 54 20 0c 0b 30 30 38 30 20 43 4c 45 41 52 20 ┆X2,Y2 0070 REPEAT 0080 CLEAR ┆
0x30a40…30a60 0b 10 30 30 39 30 20 43 55 52 53 4f 52 20 32 30 2c 32 10 2d 30 31 30 30 20 50 52 49 4e 54 20 22 ┆ 0090 CURSOR 20,2 -0100 PRINT "┆
0x30a60…30a80 20 41 20 46 20 53 20 54 20 41 20 4e 20 44 20 53 20 46 20 4f 20 52 20 4d 20 4c 20 45 20 4e 20 2e ┆ A F S T A N D S F O R M L E N .┆
0x30a80…30aa0 22 2d 10 30 31 31 30 20 43 55 52 53 4f 52 20 32 30 2c 33 10 2d 30 31 32 30 20 50 52 49 4e 54 20 ┆"- 0110 CURSOR 20,3 -0120 PRINT ┆
0x30aa0…30ac0 22 20 20 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆" _____________________________┆
0x30ac0…30ae0 5f 22 2d 0f 30 31 33 30 20 43 55 52 53 4f 52 20 31 2c 36 0f 4a 30 31 34 30 20 50 52 49 4e 54 20 ┆_"- 0130 CURSOR 1,6 J0140 PRINT ┆
0x30ae0…30b00 22 44 75 20 73 6b 61 6c 20 66 69 6e 64 65 20 61 66 73 74 61 6e 64 65 6e 20 6d 65 6c 6c 65 6d 20 ┆"Du skal finde afstanden mellem ┆
0x30b00…30b20 (24, 0, 12) 74 6f 20 70 75 6e 6b 74 65 72 20 41 20 6f 67 20 42 20 69 20 6b 6f 6f 72 64 69 6e 61 74 2d 22 4a ┆to punkter A og B i koordinat-"J┆
0x30b20…30b40 4a 30 31 35 30 20 50 52 49 4e 54 20 22 73 79 73 74 65 6d 65 74 2c 20 6e 7d 72 20 64 75 20 69 6e ┆J0150 PRINT "systemet, når du in┆
0x30b40…30b60 64 74 61 73 74 65 72 20 64 65 20 74 6f 20 70 75 6e 6b 74 65 72 73 20 6b 6f 6f 72 64 69 6e 61 74 ┆dtaster de to punkters koordinat┆
0x30b60…30b80 65 72 2e 20 20 20 20 20 20 20 22 4a 0f 30 31 36 30 20 43 55 52 53 4f 52 20 31 2c 39 0f 1f 30 31 ┆er. "J 0160 CURSOR 1,9 01┆
0x30b80…30ba0 37 30 20 50 52 49 4e 54 20 22 44 45 46 49 4e 49 54 49 4f 4e 53 4f 4d 52 5d 44 45 3a 22 1f 10 30 ┆70 PRINT "DEFINITIONSOMRÅDE:" 0┆
0x30ba0…30bc0 31 38 30 20 43 55 52 53 4f 52 20 31 2c 31 30 10 4b 30 31 39 30 20 50 52 49 4e 54 20 22 2d 31 38 ┆180 CURSOR 1,10 K0190 PRINT "-18┆
0x30bc0…30be0 20 3c 3d 20 78 20 3c 3d 20 31 38 20 20 20 26 20 20 20 2d 31 30 20 3c 3d 20 79 20 3c 3d 20 31 30 ┆ <= x <= 18 & -10 <= y <= 10┆
0x30be0…30c00 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 22 4b 0c 30 32 ┆ "K 02┆
0x30c00…30c20 (24, 0, 13) 30 30 20 52 45 50 45 41 54 20 0c 10 30 32 31 30 20 43 55 52 53 4f 52 20 31 2c 31 34 10 44 30 32 ┆00 REPEAT 0210 CURSOR 1,14 D02┆
0x30c20…30c40 32 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 70 75 6e 6b 74 65 74 20 41 27 73 20 6b 6f ┆20 INPUT "Indtast punktet A's ko┆
0x30c40…30c60 6f 72 64 69 6e 61 74 65 72 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 58 31 2c ┆ordinater: ":X1,┆
0x30c60…30c80 59 31 44 34 30 32 33 30 20 55 4e 54 49 4c 20 58 31 3d 3e 2d 31 39 20 41 4e 44 20 58 31 3c 3d 31 ┆Y1D40230 UNTIL X1=>-19 AND X1<=1┆
0x30c80…30ca0 39 20 41 4e 44 20 59 31 3d 3e 2d 31 30 20 41 4e 44 20 59 31 3c 3d 31 30 34 0c 30 32 34 30 20 52 ┆9 AND Y1=>-10 AND Y1<=104 0240 R┆
0x30ca0…30cc0 45 50 45 41 54 20 0c 10 30 32 35 30 20 43 55 52 53 4f 52 20 31 2c 31 36 10 44 30 32 36 30 20 49 ┆EPEAT 0250 CURSOR 1,16 D0260 I┆
0x30cc0…30ce0 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 70 75 6e 6b 74 65 74 20 42 27 73 20 6b 6f 6f 72 64 69 ┆NPUT "Indtast punktet B's koordi┆
0x30ce0…30d00 6e 61 74 65 72 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 58 32 2c 59 32 44 34 ┆nater: ":X2,Y2D4┆
0x30d00…30d20 (24, 0, 14) 30 32 37 30 20 55 4e 54 49 4c 20 58 32 3d 3e 2d 31 39 20 41 4e 44 20 58 32 3c 3d 31 39 20 41 4e ┆0270 UNTIL X2=>-19 AND X2<=19 AN┆
0x30d20…30d40 44 20 59 32 3d 3e 2d 31 30 20 41 4e 44 20 59 32 3c 3d 31 30 34 13 30 32 38 30 20 45 58 45 43 20 ┆D Y2=>-10 AND Y2<=104 0280 EXEC ┆
0x30d40…30d60 4b 4f 4f 52 44 49 4e 41 54 13 2a 30 32 39 30 20 41 46 53 54 41 4e 44 45 4e 3a 3d 53 51 52 28 28 ┆KOORDINAT *0290 AFSTANDEN:=SQR((┆
0x30d60…30d80 58 32 2d 58 31 29 2a 2a 32 2b 28 59 32 2d 59 31 29 2a 2a 32 29 2a 10 30 33 30 30 20 43 55 52 53 ┆X2-X1)**2+(Y2-Y1)**2)* 0300 CURS┆
0x30d80…30da0 4f 52 20 31 2c 32 33 10 4d 30 33 31 30 20 50 52 49 4e 54 20 22 3c 5a 53 3e 41 66 73 74 61 6e 64 ┆OR 1,23 M0310 PRINT "<ZS>Afstand┆
0x30da0…30dc0 65 6e 20 6d 65 6c 6c 65 6d 20 41 3a 28 22 3b 58 31 3b 22 2c 22 3b 59 31 3b 22 29 20 6f 67 20 42 ┆en mellem A:(";X1;",";Y1;") og B┆
0x30dc0…30de0 3a 28 22 3b 58 32 3b 22 2c 22 3b 59 32 3b 22 29 20 65 72 3a 20 22 4d 2d 30 33 32 30 20 50 52 49 ┆:(";X2;",";Y2;") er: "M-0320 PRI┆
0x30de0…30e00 4e 54 20 55 53 49 4e 47 20 22 23 23 23 23 2e 23 23 20 20 20 20 20 20 20 20 20 22 3a 41 46 53 54 ┆NT USING "####.## ":AFST┆
0x30e00…30e20 (24, 0, 15) 41 4e 44 45 4e 2d 18 30 33 33 30 20 46 4f 52 20 41 3a 3d 31 20 54 4f 20 34 30 30 20 44 4f 20 18 ┆ANDEN- 0330 FOR A:=1 TO 400 DO ┆
0x30e20…30e40 0b 30 33 34 30 20 4e 45 58 54 20 41 0b 0c 30 33 35 30 20 52 45 50 45 41 54 20 0c 10 30 33 36 30 ┆ 0340 NEXT A 0350 REPEAT 0360┆
0x30e40…30e60 20 43 55 52 53 4f 52 20 31 2c 32 34 10 32 30 33 37 30 20 49 4e 50 55 54 20 22 5c 6e 73 6b 65 72 ┆ CURSOR 1,24 20370 INPUT "Ønsker┆
0x30e60…30e80 20 64 75 20 61 74 20 66 6f 72 74 73 7b 74 74 65 3f 20 20 20 28 6a 2f 6e 29 20 20 20 22 3a 53 24 ┆ du at fortsætte? (j/n) ":S$┆
0x30e80…30ea0 32 25 30 33 38 30 20 55 4e 54 49 4c 20 53 24 20 49 4e 20 22 4a 6a 4e 6e 22 20 41 4e 44 20 4c 45 ┆2%0380 UNTIL S$ IN "JjNn" AND LE┆
0x30ea0…30ec0 4e 28 53 24 29 3e 30 25 12 30 33 39 30 20 56 45 4e 54 3a 3d 4f 52 44 28 53 24 29 12 13 30 34 31 ┆N(S$)>0% 0390 VENT:=ORD(S$) 041┆
0x30ec0…30ee0 30 20 55 4e 54 49 4c 20 56 45 4e 54 3d 31 31 30 13 40 30 34 32 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d ┆0 UNTIL VENT=110 @0420 // ------┆
0x30ee0…30f00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x30f00…30f20 (24, 0, 16) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 40 13 30 34 33 30 20 50 52 4f 43 20 4b 4f ┆------------------@ 0430 PROC KO┆
0x30f20…30f40 4f 52 44 49 4e 41 54 13 0b 30 34 34 30 20 43 4c 45 41 52 20 0b 0f 30 34 35 30 20 43 55 52 53 4f ┆ORDINAT 0440 CLEAR 0450 CURSO┆
0x30f40…30f60 52 20 33 2c 32 0f 1e 30 34 36 30 20 50 52 49 4e 54 20 22 41 46 53 54 41 4e 44 53 46 4f 52 4d 45 ┆R 3,2 0460 PRINT "AFSTANDSFORME┆
0x30f60…30f80 4c 45 4e 20 22 1e 1f 30 34 37 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆LEN " 0470 PRINT "-------------┆
0x30f80…30fa0 2d 2d 2d 2d 2d 22 1f 1e 30 34 38 30 20 46 4f 52 20 5a 3a 3d 32 20 54 4f 20 37 39 20 53 54 45 50 ┆-----" 0480 FOR Z:=2 TO 79 STEP┆
0x30fa0…30fc0 20 32 20 44 4f 20 1e 10 30 34 39 30 20 43 55 52 53 4f 52 20 5a 2c 31 31 10 0f 30 35 30 30 20 50 ┆ 2 DO 0490 CURSOR Z,11 0500 P┆
0x30fc0…30fe0 52 49 4e 54 20 22 2b 20 22 0f 0b 30 35 31 30 20 4e 45 58 54 20 5a 0b 17 30 35 32 30 20 46 4f 52 ┆RINT "+ " 0510 NEXT Z 0520 FOR┆
0x30fe0…31000 20 41 3a 3d 31 20 54 4f 20 32 31 20 44 4f 20 17 13 30 35 33 30 20 49 46 20 41 3c 3e 31 31 20 54 ┆ A:=1 TO 21 DO 0530 IF A<>11 T┆
0x31000…31020 (24, 1, 1) 48 45 4e 20 13 10 30 35 34 30 20 43 55 52 53 4f 52 20 34 30 2c 41 10 0e 30 35 35 30 20 50 52 49 ┆HEN 0540 CURSOR 40,A 0550 PRI┆
0x31020…31040 4e 54 20 22 2b 22 0e 0b 30 35 35 35 20 45 4e 44 49 46 20 0b 0b 30 35 36 30 20 4e 45 58 54 20 41 ┆NT "+" 0555 ENDIF 0560 NEXT A┆
0x31040…31060 0b 19 30 35 37 30 20 43 55 52 53 4f 52 20 33 39 2b 32 2a 58 31 2c 31 31 2d 59 31 19 20 30 35 38 ┆ 0570 CURSOR 39+2*X1,11-Y1 058┆
0x31060…31080 30 20 50 52 49 4e 54 20 22 2a 20 41 20 28 22 3b 58 31 3b 22 2c 22 3b 59 31 3b 22 29 22 20 19 30 ┆0 PRINT "* A (";X1;",";Y1;")" 0┆
0x31080…310a0 35 39 30 20 43 55 52 53 4f 52 20 33 39 2b 32 2a 58 32 2c 31 31 2d 59 32 19 20 30 36 30 30 20 50 ┆590 CURSOR 39+2*X2,11-Y2 0600 P┆
0x310a0…310c0 52 49 4e 54 20 22 2a 20 42 20 28 22 3b 58 32 3b 22 2c 22 3b 59 32 3b 22 29 22 20 11 30 36 32 30 ┆RINT "* B (";X2;",";Y2;")" 0620┆
0x310c0…310e0 20 43 55 52 53 4f 52 20 37 30 2c 32 33 11 17 30 36 33 30 20 49 4e 50 55 54 20 22 52 65 74 75 72 ┆ CURSOR 70,23 0630 INPUT "Retur┆
0x310e0…31100 6e 21 22 3a 53 24 17 11 30 36 36 30 20 43 55 52 53 4f 52 20 37 30 2c 32 33 11 13 30 36 37 30 20 ┆n!":S$ 0660 CURSOR 70,23 0670 ┆
0x31100…31120 (24, 1, 2) 50 52 49 4e 54 20 43 48 52 24 28 33 30 29 13 16 30 36 38 30 20 45 4e 44 50 52 4f 43 20 4b 4f 4f ┆PRINT CHR$(30) 0680 ENDPROC KOO┆
0x31120…31140 52 44 49 4e 41 54 16 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆RDINAT ccccccccccccccccccccccc┆
0x31140…31160 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x5…]
0x31200…31300 (24, 1, 3) 0x63[0x100]
0x31300…31320 (24, 1, 4) ExtentHdr {name=»ANDENGR2«, typ=»K«, seg=»A«, next=0x00, basis=0x0006, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0031,09 (0x031900)}, f99=41 30 00 fe 00 4e 44 45 4e 47 ┆A0 NDENG┆}
0x31320…31340 42 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆B0010 // -----------------------┆
0x31340…31360 2d 2d 2d 20 61 6e 64 65 6e 67 72 32 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--- andengr2 -------------------┆
0x31360…31380 2d 2d 2d 42 2e 30 30 32 30 20 2f 2f 20 41 6e 64 65 6e 67 72 61 64 73 6c 69 67 6e 69 6e 67 65 6e ┆---B.0020 // Andengradsligningen┆
0x31380…313a0 20 6d 65 64 20 43 41 53 45 20 2d 20 45 4e 44 43 41 53 45 2e 17 30 30 32 35 20 49 4e 54 45 47 45 ┆ med CASE - ENDCASE. 0025 INTEGE┆
0x313a0…313c0 52 20 54 52 55 45 2c 46 41 4c 53 45 17 15 30 30 32 36 20 54 52 55 45 3a 3d 31 3b 46 41 4c 53 45 ┆R TRUE,FALSE 0026 TRUE:=1;FALSE┆
0x313c0…313e0 3a 3d 30 15 0b 30 30 33 30 20 43 4c 45 41 52 20 0b 0f 30 30 34 30 20 43 55 52 53 4f 52 20 31 2c ┆:=0 0030 CLEAR 0040 CURSOR 1,┆
0x313e0…31400 36 0f 35 30 30 35 30 20 50 52 49 4e 54 20 22 20 41 6e 64 65 6e 67 72 61 64 73 6c 69 67 6e 69 6e ┆6 50050 PRINT " Andengradslignin┆
0x31400…31420 (24, 1, 5) 67 65 6e 20 20 20 41 78 32 20 2b 20 42 78 20 2b 20 43 20 3d 20 30 20 22 35 39 30 30 36 30 20 50 ┆gen Ax2 + Bx + C = 0 "590060 P┆
0x31420…31440 52 49 4e 54 20 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 ┆RINT "--------------------------┆
0x31440…31460 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 39 32 30 30 37 30 20 49 4e 50 55 54 20 ┆------------------"920070 INPUT ┆
0x31460…31480 22 20 49 6e 64 74 61 73 74 20 41 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆" Indtast A: ┆
0x31480…314a0 20 20 20 20 22 3a 41 32 32 30 30 38 30 20 49 4e 50 55 54 20 22 20 49 6e 64 74 61 73 74 20 42 3a ┆ ":A220080 INPUT " Indtast B:┆
0x314a0…314c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 42 32 32 30 30 39 ┆ ":B22009┆
0x314c0…314e0 30 20 49 4e 50 55 54 20 22 20 49 6e 64 74 61 73 74 20 43 3a 20 20 20 20 20 20 20 20 20 20 20 20 ┆0 INPUT " Indtast C: ┆
0x314e0…31500 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 43 32 4a 30 31 30 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d ┆ ":C2J0100 // -------┆
0x31500…31520 (24, 1, 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 ┆--------------------------------┆
0x31520…31540 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4a 19 30 31 31 ┆---------------------------J 011┆
0x31540…31560 30 20 44 49 53 4b 52 49 4d 49 3a 3d 42 2a 2a 32 2d 34 2a 41 2a 43 19 4a 30 31 32 30 20 2f 2f 20 ┆0 DISKRIMI:=B**2-4*A*C J0120 // ┆
0x31560…31580 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
[…0x1…]
0x315a0…315c0 2d 2d 4a 12 30 31 33 30 20 43 41 53 45 20 54 52 55 45 20 4f 46 20 12 14 30 31 34 30 20 57 48 45 ┆--J 0130 CASE TRUE OF 0140 WHE┆
0x315c0…315e0 4e 20 44 49 53 4b 52 49 4d 49 3c 30 14 0b 30 31 35 30 20 50 52 49 4e 54 20 0b 30 30 31 36 30 20 ┆N DISKRIMI<0 0150 PRINT 00160 ┆
0x315e0…31600 50 52 49 4e 54 20 22 20 4c 69 67 6e 69 6e 67 65 6e 20 68 61 72 20 69 6e 67 65 6e 20 72 65 65 6c ┆PRINT " Ligningen har ingen reel┆
0x31600…31620 (24, 1, 7) 6c 65 20 72 7c 64 64 65 72 2e 22 30 14 30 31 37 30 20 57 48 45 4e 20 44 49 53 4b 52 49 4d 49 3d ┆le rødder."0 0170 WHEN DISKRIMI=┆
0x31620…31640 30 14 0e 30 31 38 30 20 58 3a 3d 2d 42 2f 32 2f 41 0e 0b 30 31 39 30 20 50 52 49 4e 54 20 0b 3d ┆0 0180 X:=-B/2/A 0190 PRINT =┆
0x31640…31660 30 32 30 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 20 4c 69 67 6e 69 6e 67 65 6e 20 68 61 72 ┆0200 PRINT USING " Ligningen har┆
0x31660…31680 20 64 6f 62 62 65 6c 74 72 6f 64 65 6e 3a 20 20 20 20 20 23 23 23 2e 23 23 20 22 3a 58 3d 0b 30 ┆ dobbeltroden: ###.## ":X= 0┆
0x31680…316a0 32 31 30 20 50 52 49 4e 54 20 0b 14 30 32 32 30 20 57 48 45 4e 20 44 49 53 4b 52 49 4d 49 3e 30 ┆210 PRINT 0220 WHEN DISKRIMI>0┆
0x316a0…316c0 14 27 30 32 33 30 20 50 52 49 4e 54 20 22 20 4c 69 67 6e 69 6e 67 65 6e 20 68 61 72 20 74 6f 20 ┆ '0230 PRINT " Ligningen har to ┆
0x316c0…316e0 72 7c 64 64 65 72 3a 20 22 27 0b 30 32 34 30 20 50 52 49 4e 54 20 0b 1f 30 32 35 30 20 58 31 3a ┆rødder: "' 0240 PRINT 0250 X1:┆
0x316e0…31700 3d 28 2d 42 2b 53 51 52 28 44 49 53 4b 52 49 4d 49 29 29 2f 32 2f 41 1f 3e 30 32 36 30 20 50 52 ┆=(-B+SQR(DISKRIMI))/2/A >0260 PR┆
0x31700…31720 (24, 1, 8) 49 4e 54 20 55 53 49 4e 47 20 22 20 78 6c 20 3d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆INT USING " xl = ┆
0x31720…31740 20 20 20 20 20 20 20 20 20 20 20 20 23 23 23 2e 23 23 20 22 3a 58 31 3e 1f 30 32 37 30 20 58 32 ┆ ###.## ":X1> 0270 X2┆
0x31740…31760 3a 3d 28 2d 42 2d 53 51 52 28 44 49 53 4b 52 49 4d 49 29 29 2f 32 2f 41 1f 3e 30 32 38 30 20 50 ┆:=(-B-SQR(DISKRIMI))/2/A >0280 P┆
0x31760…31780 52 49 4e 54 20 55 53 49 4e 47 20 22 20 78 32 20 3d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RINT USING " x2 = ┆
0x31780…317a0 20 20 20 20 20 20 20 20 20 20 20 20 20 23 23 23 2e 23 23 20 22 3a 58 32 3e 0d 30 32 39 30 20 45 ┆ ###.## ":X2> 0290 E┆
0x317a0…317c0 4e 44 43 41 53 45 20 0d 10 30 33 30 30 20 43 55 52 53 4f 52 20 31 2c 32 31 10 00 00 63 63 63 63 ┆NDCASE 0300 CURSOR 1,21 cccc┆
0x317c0…317e0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x1…]
0x31800…31900 (24, 1, 9) 0x63[0x100]
0x31900…31920 (24, 1, 10) ExtentHdr {name=»ISENKRAM«, typ=»K«, seg=»A«, next=0x01, basis=0x000a, nextext={DA 0032,03 (0x032300)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0032,03 (0x032300)}, f99=41 30 00 fe 00 4e 44 45 4e 47 ┆A0 NDENG┆}
0x31920…31940 34 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 69 73 65 6e 6b 72 7b ┆40010 // --------------- isenkræ┆
0x31940…31960 6d 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 34 34 30 30 32 30 20 2f 2f 20 55 ┆m -------------------440020 // U┆
0x31960…31980 64 73 6b 72 69 76 6e 65 72 20 72 65 67 6e 69 6e 67 20 70 7d 20 64 65 20 76 61 72 65 72 2c 20 73 ┆dskrivner regning på de varer, s┆
0x31980…319a0 6f 6d 20 6c 69 67 67 65 72 20 69 34 19 30 30 33 30 20 2f 2f 20 64 61 74 61 66 69 6c 65 6e 20 27 ┆om ligger i4 0030 // datafilen '┆
0x319a0…319c0 6c 61 67 65 72 27 19 3c 30 30 34 30 20 44 49 4d 20 55 28 31 30 29 2c 4e 24 28 31 30 29 20 4f 46 ┆lager' <0040 DIM U(10),N$(10) OF┆
0x319c0…319e0 20 32 30 2c 41 28 31 30 29 2c 53 28 31 30 29 2c 4e 41 56 4e 24 20 4f 46 20 33 30 2c 53 56 24 20 ┆ 20,A(10),S(10),NAVN$ OF 30,SV$ ┆
0x319e0…31a00 4f 46 20 31 3c 0e 30 30 35 30 20 53 41 4d 4c 45 54 3a 3d 30 0e 08 30 30 36 30 20 2f 2f 20 08 08 ┆OF 1< 0050 SAMLET:=0 0060 // ┆
0x31a00…31a20 (24, 1, 11) 30 30 37 30 20 2f 2f 20 08 0d 30 30 38 30 20 45 58 45 43 20 4c 5b 53 0d 0d 30 30 39 30 20 45 58 ┆0070 // 0080 EXEC LÆS 0090 EX┆
0x31a20…31a40 45 43 20 4b 5c 42 0d 08 30 31 30 30 20 2f 2f 20 08 0d 30 31 31 30 20 50 52 4f 43 20 4b 5c 42 0d ┆EC KØB 0100 // 0110 PROC KØB ┆
0x31a40…31a60 0c 30 31 32 30 20 52 45 50 45 41 54 20 0c 0b 30 31 33 30 20 43 4c 45 41 52 20 0b 0f 30 31 34 30 ┆ 0120 REPEAT 0130 CLEAR 0140┆
0x31a60…31a80 20 43 55 52 53 4f 52 20 35 2c 32 0f 30 30 31 35 30 20 50 52 49 4e 54 20 22 49 6e 64 74 61 73 74 ┆ CURSOR 5,2 00150 PRINT "Indtast┆
0x31a80…31aa0 6e 69 6e 67 20 61 66 20 76 61 72 65 6e 75 6d 6d 65 72 20 6f 67 20 61 6e 74 61 6c 2e 22 30 0f 30 ┆ning af varenummer og antal."0 0┆
0x31aa0…31ac0 31 36 30 20 43 55 52 53 4f 52 20 35 2c 33 0f 30 30 31 37 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d ┆160 CURSOR 5,3 00170 PRINT "----┆
0x31ac0…31ae0 2d 2d 2d 2d 2d 2d 2d 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 ┆-------------------------------"┆
0x31ae0…31b00 30 0f 30 31 38 30 20 43 55 52 53 4f 52 20 35 2c 36 0f 38 30 31 39 30 20 49 4e 50 55 54 20 22 48 ┆0 0180 CURSOR 5,6 80190 INPUT "H┆
0x31b00…31b20 (24, 1, 12) 76 61 64 20 65 72 20 76 61 72 65 6e 73 20 6e 75 6d 6d 65 72 3a 20 20 20 20 20 20 20 20 20 20 20 ┆vad er varens nummer: ┆
0x31b20…31b40 20 20 20 22 3a 4e 55 4d 4d 45 52 38 0f 30 32 30 30 20 43 55 52 53 4f 52 20 35 2c 38 0f 37 30 32 ┆ ":NUMMER8 0200 CURSOR 5,8 702┆
0x31b40…31b60 31 30 20 49 4e 50 55 54 20 22 41 6e 74 61 6c 20 61 66 20 76 61 72 65 6e 3a 20 20 20 20 20 20 20 ┆10 INPUT "Antal af varen: ┆
0x31b60…31b80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 41 4e 54 41 4c 37 09 30 32 32 30 20 58 3a 3d 31 ┆ ":ANTAL7 0220 X:=1┆
0x31b80…31ba0 09 1b 30 32 33 30 20 4f 50 45 4e 20 22 53 59 53 54 49 4d 45 3a 4c 41 47 45 52 22 2c 52 1b 27 30 ┆ 0230 OPEN "SYSTIME:LAGER",R '0┆
0x31ba0…31bc0 32 34 30 20 57 48 49 4c 45 20 4e 4f 54 20 45 4f 46 28 22 53 59 53 54 49 4d 45 3a 4c 41 47 45 52 ┆240 WHILE NOT EOF("SYSTIME:LAGER┆
0x31bc0…31be0 22 29 20 44 4f 20 27 2a 30 32 35 30 20 47 45 54 20 22 53 59 53 54 49 4d 45 3a 4c 41 47 45 52 22 ┆") DO '*0250 GET "SYSTIME:LAGER"┆
0x31be0…31c00 3a 4e 52 2c 4e 41 56 4e 24 2c 53 54 59 4b 50 52 49 53 2a 17 30 32 36 30 20 49 46 20 4e 52 3d 4e ┆:NR,NAVN$,STYKPRIS* 0260 IF NR=N┆
0x31c00…31c20 (24, 1, 13) 55 4d 4d 45 52 20 54 48 45 4e 20 17 35 30 32 37 30 20 55 28 58 29 3a 3d 4e 52 3b 4e 24 28 58 29 ┆UMMER THEN 50270 U(X):=NR;N$(X)┆
0x31c20…31c40 3a 3d 4e 41 56 4e 24 3b 41 28 58 29 3a 3d 41 4e 54 41 4c 3b 53 28 58 29 3a 3d 53 54 59 4b 50 52 ┆:=NAVN$;A(X):=ANTAL;S(X):=STYKPR┆
0x31c40…31c60 49 53 35 10 30 32 38 30 20 43 55 52 53 4f 52 20 31 2c 31 36 10 39 30 32 39 30 20 50 52 49 4e 54 ┆IS5 0280 CURSOR 1,16 90290 PRINT┆
0x31c60…31c80 20 43 48 52 24 28 55 28 58 29 2c 33 29 2c 4e 24 28 58 29 2c 43 48 52 24 28 41 28 58 29 2c 33 29 ┆ CHR$(U(X),3),N$(X),CHR$(A(X),3)┆
0x31c80…31ca0 2c 43 48 52 24 28 53 28 58 29 2c 34 2c 32 29 39 0b 30 33 30 30 20 45 4e 44 49 46 20 0b 0b 30 33 ┆,CHR$(S(X),4,2)9 0300 ENDIF 03┆
0x31ca0…31cc0 31 30 20 58 3a 3d 58 2b 31 0b 0e 30 33 32 30 20 45 4e 44 57 48 49 4c 45 20 0e 0b 30 33 33 30 20 ┆10 X:=X+1 0320 ENDWHILE 0330 ┆
0x31cc0…31ce0 43 4c 4f 53 45 20 0b 10 30 33 35 30 20 43 55 52 53 4f 52 20 35 2c 32 32 10 2e 30 33 36 30 20 49 ┆CLOSE 0350 CURSOR 5,22 .0360 I┆
0x31ce0…31d00 4e 50 55 54 20 22 5c 6e 73 6b 65 73 20 66 6c 65 72 65 20 76 61 72 65 72 3f 20 20 20 20 28 6a 2f ┆NPUT "Ønskes flere varer? (j/┆
0x31d00…31d20 (24, 1, 14) 6e 29 3a 22 3a 53 56 24 2e 12 30 33 39 30 20 55 4e 54 49 4c 20 53 56 24 3d 22 6e 22 12 12 30 34 ┆n):":SV$. 0390 UNTIL SV$="n" 04┆
0x31d20…31d40 30 30 20 45 58 45 43 20 55 44 53 4b 52 49 46 54 12 10 30 34 31 30 20 45 4e 44 50 52 4f 43 20 4b ┆00 EXEC UDSKRIFT 0410 ENDPROC K┆
0x31d40…31d60 5c 42 10 33 30 34 32 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ØB 30420 // --------------------┆
0x31d60…31d80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 33 12 30 34 33 30 20 50 52 ┆-----------------------3 0430 PR┆
0x31d80…31da0 4f 43 20 55 44 53 4b 52 49 46 54 12 10 30 34 35 30 20 43 55 52 53 4f 52 20 35 2c 32 34 10 35 30 ┆OC UDSKRIFT 0450 CURSOR 5,24 50┆
0x31da0…31dc0 34 36 30 20 49 4e 50 55 54 20 22 5c 6e 73 6b 65 73 20 75 64 73 6b 72 69 66 74 20 70 7d 20 70 72 ┆460 INPUT "Ønskes udskrift på pr┆
0x31dc0…31de0 69 6e 74 65 72 3f 20 20 20 28 6a 2f 6e 29 20 22 3a 53 56 24 35 15 30 34 39 30 20 49 46 20 53 56 ┆inter? (j/n) ":SV$5 0490 IF SV┆
0x31de0…31e00 24 3d 22 6a 22 20 54 48 45 4e 20 15 16 30 34 39 31 20 53 45 4c 45 43 54 20 4f 55 54 50 55 54 20 ┆$="j" THEN 0491 SELECT OUTPUT ┆
0x31e00…31e20 (24, 1, 15) 22 50 22 16 1b 30 34 39 32 20 49 46 20 53 54 41 54 55 53 28 22 50 22 29 3d 31 20 54 48 45 4e 20 ┆"P" 0492 IF STATUS("P")=1 THEN ┆
0x31e20…31e40 1b 3d 30 34 39 33 20 50 52 49 4e 54 20 22 50 72 69 6e 74 65 72 65 6e 20 65 72 20 72 65 73 65 72 ┆ =0493 PRINT "Printeren er reser┆
0x31e40…31e60 76 65 72 65 74 20 61 66 20 65 6e 20 61 6e 64 65 6e 20 62 72 75 67 65 72 2c 20 73 6b 61 6c 22 3d ┆veret af en anden bruger, skal"=┆
0x31e60…31e80 3b 30 34 39 34 20 49 4e 50 55 54 20 22 64 65 72 20 76 65 6e 74 65 73 20 70 7d 20 61 74 20 64 65 ┆;0494 INPUT "der ventes på at de┆
0x31e80…31ea0 6e 20 62 6c 69 76 65 72 20 6c 65 64 69 67 20 3f 20 28 6a 2f 6e 29 20 22 3a 53 56 24 3b 20 30 34 ┆n bliver ledig ? (j/n) ":SV$; 04┆
0x31ea0…31ec0 39 35 20 49 46 20 53 56 24 3d 22 4a 22 20 4f 52 20 53 56 24 3d 22 6a 22 20 54 48 45 4e 20 20 2d ┆95 IF SV$="J" OR SV$="j" THEN -┆
0x31ec0…31ee0 30 34 39 36 20 57 48 49 4c 45 20 53 54 41 54 55 53 28 22 50 22 29 3d 31 20 44 4f 20 53 45 4c 45 ┆0496 WHILE STATUS("P")=1 DO SELE┆
0x31ee0…31f00 43 54 20 4f 55 54 50 55 54 20 22 50 22 2d 0b 30 34 39 37 20 45 4e 44 49 46 20 0b 0b 30 34 39 38 ┆CT OUTPUT "P"- 0497 ENDIF 0498┆
0x31f00…31f20 (24, 1, 16) 20 45 4e 44 49 46 20 0b 0b 30 34 39 39 20 45 4e 44 49 46 20 0b 0b 30 35 30 30 20 43 4c 45 41 52 ┆ ENDIF 0499 ENDIF 0500 CLEAR┆
0x31f20…31f40 20 0b 0c 30 35 31 30 20 54 41 42 3a 3d 31 35 0c 10 30 35 32 30 20 43 55 52 53 4f 52 20 33 30 2c ┆ 0510 TAB:=15 0520 CURSOR 30,┆
0x31f40…31f60 35 10 1d 30 35 33 30 20 50 52 49 4e 54 20 22 20 46 20 41 20 4b 20 54 20 55 20 52 20 41 20 3a 22 ┆5 0530 PRINT " F A K T U R A :"┆
0x31f60…31f80 1d 10 30 35 34 30 20 43 55 52 53 4f 52 20 33 30 2c 36 10 1d 30 35 35 30 20 50 52 49 4e 54 20 22 ┆ 0540 CURSOR 30,6 0550 PRINT "┆
0x31f80…31fa0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 1d 10 30 35 36 30 20 43 55 52 53 4f 52 20 31 ┆----------------" 0560 CURSOR 1┆
0x31fa0…31fc0 2c 31 30 10 29 30 35 37 30 20 50 52 49 4e 54 20 22 56 61 72 65 6e 75 6d 6d 65 72 3a 20 20 20 56 ┆,10 )0570 PRINT "Varenummer: V┆
0x31fc0…31fe0 61 72 65 6e 61 76 6e 3a 20 20 20 20 22 3b 29 36 30 35 37 35 20 50 52 49 4e 54 20 22 20 20 41 6e ┆arenavn: ";)60575 PRINT " An┆
0x31fe0…32000 74 61 6c 3a 20 20 20 20 20 53 74 79 6b 70 72 69 73 3a 20 20 20 20 20 20 20 53 61 6d 6c 65 74 20 ┆tal: Stykpris: Samlet ┆
0x32000…32020 (25, 0, 1) 70 72 69 73 3a 22 36 4d 30 35 38 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆pris:"6M0580 PRINT "------------┆
0x32020…32040 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x32040…32060 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 3b 4d 16 30 35 38 35 20 50 52 49 4e ┆-------------------";M 0585 PRIN┆
0x32060…32080 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 16 17 30 35 39 30 20 46 4f 52 20 58 3a 3d 31 20 54 4f 20 ┆T "---------" 0590 FOR X:=1 TO ┆
0x32080…320a0 31 30 20 44 4f 20 17 15 30 36 30 30 20 49 46 20 55 28 58 29 3c 3e 30 20 54 48 45 4e 20 15 14 30 ┆10 DO 0600 IF U(X)<>0 THEN 0┆
0x320a0…320c0 36 31 30 20 50 52 49 53 3a 3d 41 28 58 29 2a 53 28 58 29 14 43 30 36 32 30 20 50 52 49 4e 54 20 ┆610 PRIS:=A(X)*S(X) C0620 PRINT ┆
0x320c0…320e0 43 48 52 24 28 55 28 58 29 2c 34 29 3b 54 41 42 28 31 35 29 3b 4e 24 28 58 29 3b 54 41 42 28 33 ┆CHR$(U(X),4);TAB(15);N$(X);TAB(3┆
0x320e0…32100 30 29 3b 43 48 52 24 28 41 28 58 29 2c 34 29 3b 54 41 42 28 34 36 29 3b 43 30 30 36 33 30 20 50 ┆0);CHR$(A(X),4);TAB(46);C00630 P┆
0x32100…32120 (25, 0, 2) 52 49 4e 54 20 55 53 49 4e 47 20 22 23 23 23 23 23 20 20 20 20 20 20 20 20 20 23 23 23 23 23 22 ┆RINT USING "##### #####"┆
0x32120…32140 3a 53 28 58 29 2c 50 52 49 53 30 18 30 36 34 30 20 53 41 4d 4c 45 54 3a 3d 53 41 4d 4c 45 54 2b ┆:S(X),PRIS0 0640 SAMLET:=SAMLET+┆
0x32140…32160 50 52 49 53 18 0b 30 36 35 30 20 45 4e 44 49 46 20 0b 0b 30 36 36 30 20 4e 45 58 54 20 58 0b 4d ┆PRIS 0650 ENDIF 0660 NEXT X M┆
0x32160…32180 30 36 37 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆0670 PRINT "--------------------┆
0x32180…321a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x321a0…321c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 3b 4d 16 30 36 37 35 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d ┆-----------";M 0675 PRINT "-----┆
0x321c0…321e0 2d 2d 2d 2d 22 16 28 30 36 38 30 20 50 52 49 4e 54 20 22 53 61 6d 6c 65 64 65 20 75 64 67 69 66 ┆----" (0680 PRINT "Samlede udgif┆
0x321e0…32200 74 65 72 3a 20 22 3b 54 41 42 28 36 30 29 3b 28 1f 30 36 39 30 20 50 52 49 4e 54 20 55 53 49 4e ┆ter: ";TAB(60);( 0690 PRINT USIN┆
0x32200…32220 (25, 0, 3) 47 20 22 23 23 23 23 23 22 3a 53 41 4d 4c 45 54 1f 4d 30 37 30 30 20 50 52 49 4e 54 20 22 3d 3d ┆G "#####":SAMLET M0700 PRINT "==┆
0x32220…32240 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆================================┆
0x32240…32260 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 22 3b 4d ┆=============================";M┆
0x32260…32280 16 30 37 30 35 20 50 52 49 4e 54 20 22 3d 3d 3d 3d 3d 3d 3d 3d 3d 22 16 15 30 37 31 30 20 45 4e ┆ 0705 PRINT "=========" 0710 EN┆
0x32280…322a0 44 50 52 4f 43 20 55 44 53 4b 52 49 46 54 15 08 30 37 32 30 20 2f 2f 20 08 0d 30 37 33 30 20 50 ┆DPROC UDSKRIFT 0720 // 0730 P┆
0x322a0…322c0 52 4f 43 20 4c 5b 53 0d 0b 30 37 34 30 20 43 4c 45 41 52 20 0b 0f 30 37 35 30 20 43 55 52 53 4f ┆ROC LÆS 0740 CLEAR 0750 CURSO┆
0x322c0…322e0 52 20 31 2c 35 0f 23 30 37 36 30 20 50 52 49 4e 54 20 22 20 4c 20 41 20 47 20 45 20 52 20 4c 20 ┆R 1,5 #0760 PRINT " L A G E R L ┆
0x322e0…32300 49 20 53 20 54 20 45 20 2e 22 23 0f 30 37 37 30 20 43 55 52 53 4f 52 20 31 2c 36 0f 42 30 37 38 ┆I S T E ."# 0770 CURSOR 1,6 B078┆
0x32300…32320 (25, 0, 4) ExtentHdr {name=»ISENKRAM«, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0031,09 (0x031900)}, nextfile={DA 0032,0d (0x032d00)}, f99=41 30 00 20 00 4e 44 45 4e 47 ┆A0 NDENG┆}
0x32320…32340 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆0 PRINT "-----------------------┆
0x32340…32360 2d 2d 2d 2d 2d 2d 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 42 ┆------------------------------"B┆
0x32360…32380 0b 30 37 39 30 20 50 52 49 4e 54 20 0b 0f 30 38 30 30 20 43 55 52 53 4f 52 20 31 2c 38 0f 2c 30 ┆ 0790 PRINT 0800 CURSOR 1,8 ,0┆
0x32380…323a0 38 31 30 20 50 52 49 4e 54 20 22 4e 75 6d 6d 65 72 3a 22 2c 22 56 61 72 65 6e 61 76 6e 3a 22 2c ┆810 PRINT "Nummer:","Varenavn:",┆
0x323a0…323c0 22 53 74 79 6b 70 72 69 73 3a 22 2c 1b 30 38 32 30 20 4f 50 45 4e 20 22 53 59 53 54 49 4d 45 3a ┆"Stykpris:", 0820 OPEN "SYSTIME:┆
0x323c0…323e0 4c 41 47 45 52 22 2c 52 1b 27 30 38 33 30 20 57 48 49 4c 45 20 4e 4f 54 20 45 4f 46 28 22 53 59 ┆LAGER",R '0830 WHILE NOT EOF("SY┆
0x323e0…32400 53 54 49 4d 45 3a 4c 41 47 45 52 22 29 20 44 4f 20 27 2a 30 38 34 30 20 47 45 54 20 22 53 59 53 ┆STIME:LAGER") DO '*0840 GET "SYS┆
0x32400…32420 (25, 0, 5) 54 49 4d 45 3a 4c 41 47 45 52 22 3a 4e 52 2c 4e 41 56 4e 24 2c 53 54 59 4b 50 52 49 53 2a 2e 30 ┆TIME:LAGER":NR,NAVN$,STYKPRIS*.0┆
0x32420…32440 38 35 30 20 50 52 49 4e 54 20 43 48 52 24 28 4e 52 2c 33 29 2c 4e 41 56 4e 24 2c 43 48 52 24 28 ┆850 PRINT CHR$(NR,3),NAVN$,CHR$(┆
0x32440…32460 53 54 59 4b 50 52 49 53 2c 34 2c 32 29 2e 0e 30 38 36 30 20 45 4e 44 57 48 49 4c 45 20 0e 0b 30 ┆STYKPRIS,4,2). 0860 ENDWHILE 0┆
0x32460…32480 38 37 30 20 43 4c 4f 53 45 20 0b 11 30 38 39 30 20 43 55 52 53 4f 52 20 34 39 2c 32 32 11 2d 30 ┆870 CLOSE 0890 CURSOR 49,22 -0┆
0x32480…324a0 39 30 30 20 49 4e 50 55 54 20 22 48 76 69 73 20 64 75 20 65 72 20 66 7b 72 64 69 67 2c 20 74 61 ┆900 INPUT "Hvis du er færdig, ta┆
0x324a0…324c0 73 74 20 27 66 27 20 22 3a 53 56 24 2d 10 30 39 33 30 20 45 4e 44 50 52 4f 43 20 4c 5b 53 10 4c ┆st 'f' ":SV$- 0930 ENDPROC LÆS L┆
0x324c0…324e0 30 39 34 30 20 2f 2f 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 ┆0940 // ------------------------┆
0x324e0…32500 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x32500…32520 (25, 0, 6) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4c 15 30 39 35 30 20 50 52 4f 43 20 45 4f 46 28 46 4e 41 56 ┆------------L 0950 PROC EOF(FNAV┆
0x32520…32540 4e 24 29 15 1d 30 39 36 30 20 45 4f 46 3a 3d 28 31 39 3d 53 54 41 54 55 53 28 46 4e 41 56 4e 24 ┆N$) 0960 EOF:=(19=STATUS(FNAVN$┆
0x32540…32560 29 29 1d 10 30 39 37 30 20 45 4e 44 50 52 4f 43 20 45 4f 46 10 00 00 63 63 63 63 63 63 63 63 63 ┆)) 0970 ENDPROC EOF ccccccccc┆
0x32560…32580 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x4…]
0x32600…32700 (25, 0, 7) 0x63[0x100]
[…0x6…]
0x32d00…32d20 (25, 0, 14) ExtentHdr {name=»LØNSEDDE«, typ=»K«, seg=»A«, next=0x01, basis=0x000a, nextext={DA 0033,07 (0x033700)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0033,07 (0x033700)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x32d20…32d40 49 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆I0010 // -----------------------┆
0x32d40…32d60 2d 2d 2d 2d 2d 2d 2d 2d 20 6c 7c 6e 73 65 64 64 65 6c 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆-------- lønseddel -------------┆
0x32d60…32d80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 0b 30 30 32 30 20 43 4c 45 41 52 20 0b 41 30 30 33 30 20 44 49 ┆----------I 0020 CLEAR A0030 DI┆
0x32d80…32da0 4d 20 41 4e 53 24 20 4f 46 20 32 30 2c 4e 41 56 4e 24 20 4f 46 20 32 30 2c 41 44 52 24 20 4f 46 ┆M ANS$ OF 20,NAVN$ OF 20,ADR$ OF┆
0x32da0…32dc0 20 32 30 2c 50 4f 53 54 42 59 24 20 4f 46 20 32 30 2c 53 56 24 20 4f 46 20 31 41 20 30 30 33 35 ┆ 20,POSTBY$ OF 20,SV$ OF 1A 0035┆
0x32dc0…32de0 20 49 4e 54 45 47 45 52 20 41 46 44 45 4c 49 4e 47 2c 41 4e 54 41 4c 54 49 4d 45 52 20 0c 30 30 ┆ INTEGER AFDELING,ANTALTIMER 00┆
0x32de0…32e00 34 30 20 52 45 50 45 41 54 20 0c 0f 30 30 35 30 20 45 58 45 43 20 48 4f 56 45 44 0f 12 30 30 36 ┆40 REPEAT 0050 EXEC HOVED 006┆
0x32e00…32e20 (25, 0, 15) 30 20 45 58 45 43 20 55 44 53 4b 52 49 46 54 12 10 30 30 37 30 20 43 55 52 53 4f 52 20 31 2c 32 ┆0 EXEC UDSKRIFT 0070 CURSOR 1,2┆
0x32e20…32e40 33 10 31 30 30 38 30 20 49 4e 50 55 54 20 22 5c 6e 73 6b 65 72 20 64 75 20 61 74 20 66 6f 72 74 ┆3 10080 INPUT "Ønsker du at fort┆
0x32e40…32e60 73 7b 74 74 65 3f 20 20 28 6a 2f 6e 29 20 20 22 3a 53 56 24 31 10 30 31 31 30 20 43 55 52 53 4f ┆sætte? (j/n) ":SV$1 0110 CURSO┆
0x32e60…32e80 52 20 31 2c 32 34 10 16 30 31 32 30 20 55 4e 54 49 4c 20 53 56 24 20 49 4e 20 22 4e 6e 22 16 25 ┆R 1,24 0120 UNTIL SV$ IN "Nn" %┆
0x32e80…32ea0 30 31 33 30 20 50 52 49 4e 54 20 22 53 7d 20 73 6c 75 74 74 65 72 20 76 69 20 66 6f 72 20 69 20 ┆0130 PRINT "Så slutter vi for i ┆
0x32ea0…32ec0 64 61 67 2e 22 25 48 30 31 34 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆dag."%H0140 // -----------------┆
0x32ec0…32ee0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x32ee0…32f00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 48 12 30 31 35 30 20 50 52 4f 43 20 55 44 53 4b 52 ┆---------------H 0150 PROC UDSKR┆
0x32f00…32f20 (25, 0, 16) 49 46 54 12 0b 30 31 36 30 20 43 4c 45 41 52 20 0b 20 30 31 37 30 20 50 52 49 4e 54 20 22 55 20 ┆IFT 0160 CLEAR 0170 PRINT "U ┆
0x32f20…32f40 47 20 45 20 53 20 45 20 44 20 44 20 45 20 4c 20 2e 22 20 4d 30 31 38 30 20 50 52 49 4e 54 20 22 ┆G E S E D D E L ." M0180 PRINT "┆
0x32f40…32f60 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
[…0x1…]
0x32f80…32fa0 22 4d 0b 30 31 39 30 20 50 52 49 4e 54 20 0b 37 30 32 30 30 20 50 52 49 4e 54 20 22 41 6e 73 7b ┆"M 0190 PRINT 70200 PRINT "Ansæ┆
0x32fa0…32fc0 74 74 65 6c 73 65 73 73 74 65 64 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ttelsessted: ┆
0x32fc0…32fe0 20 22 3b 41 4e 53 24 37 38 30 32 31 30 20 50 52 49 4e 54 20 22 4e 61 76 6e 3a 20 20 20 20 20 20 ┆ ";ANS$780210 PRINT "Navn: ┆
0x32fe0…33000 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 22 3b 4e 41 56 4e ┆ ";NAVN┆
0x33000…33020 (25, 1, 1) 24 38 37 30 32 32 30 20 50 52 49 4e 54 20 22 41 64 72 65 73 73 65 3a 20 20 20 20 20 20 20 20 20 ┆$870220 PRINT "Adresse: ┆
0x33020…33040 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3b 41 44 52 24 37 3a 30 32 33 30 ┆ ";ADR$7:0230┆
0x33040…33060 20 50 52 49 4e 54 20 22 50 6f 73 74 6e 75 6d 6d 65 72 20 26 20 62 79 3a 20 20 20 20 20 20 20 20 ┆ PRINT "Postnummer & by: ┆
0x33060…33080 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3b 50 4f 53 54 42 59 24 3a 4d 30 32 34 30 20 50 52 49 ┆ ";POSTBY$:M0240 PRI┆
0x33080…330a0 4e 54 20 22 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆NT "____________________________┆
0x330a0…330c0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
0x330c0…330e0 5f 5f 5f 5f 22 4d 3b 30 32 35 30 20 50 52 49 4e 54 20 22 41 66 64 65 6c 69 6e 67 3a 20 20 20 20 ┆____"M;0250 PRINT "Afdeling: ┆
0x330e0…33100 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3b 41 46 44 45 4c 49 ┆ ";AFDELI┆
0x33100…33120 (25, 1, 2) 4e 47 3b 3d 30 32 36 30 20 50 52 49 4e 54 20 22 41 6e 74 61 6c 20 74 69 6d 65 72 3a 20 20 20 20 ┆NG;=0260 PRINT "Antal timer: ┆
0x33120…33140 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3b 41 4e 54 41 4c 54 49 4d 45 ┆ ";ANTALTIME┆
0x33140…33160 52 3d 45 30 32 37 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 54 69 6d 65 6c 7c 6e 3a 20 20 20 ┆R=E0270 PRINT USING "Timeløn: ┆
0x33160…33180 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 23 23 23 2e 23 23 22 ┆ ####.##"┆
0x33180…331a0 3a 54 49 4d 45 4c 5c 4e 45 4d 30 32 38 30 20 50 52 49 4e 54 20 22 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆:TIMELØNEM0280 PRINT "__________┆
0x331a0…331c0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
0x331c0…331e0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 22 4d 0b 30 32 39 30 20 50 52 ┆______________________"M 0290 PR┆
0x331e0…33200 49 4e 54 20 0b 4b 30 33 30 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 42 72 75 74 74 6f 6c 7c ┆INT K0300 PRINT USING "Bruttolø┆
0x33200…33220 (25, 1, 3) 6e 3a 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 23 23 23 23 ┆n: ####┆
0x33220…33240 23 23 23 23 2e 23 23 20 6b 72 2e 20 22 3a 4c 5c 4e 4b 4d 30 33 31 30 20 50 52 49 4e 54 20 55 53 ┆####.## kr. ":LØNKM0310 PRINT US┆
0x33240…33260 49 4e 47 20 22 46 72 61 64 72 61 67 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ING "Fradrag: ┆
0x33260…33280 20 20 20 20 20 20 20 20 20 23 23 23 23 23 23 23 23 2e 23 23 20 6b 72 2e 20 22 3a 46 52 41 44 52 ┆ ########.## kr. ":FRADR┆
0x33280…332a0 4d 4d 30 33 32 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 53 6b 61 74 74 65 70 6c 69 67 74 69 ┆MM0320 PRINT USING "Skattepligti┆
0x332a0…332c0 67 20 69 6e 64 6b 6f 6d 73 74 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 23 23 23 23 23 23 23 23 ┆g indkomst: ########┆
0x332c0…332e0 2e 23 23 20 6b 72 2e 20 22 3a 53 4b 41 54 50 4d 2f 30 33 33 30 20 50 52 49 4e 54 20 55 53 49 4e ┆.## kr. ":SKATPM/0330 PRINT USIN┆
0x332e0…33300 47 20 22 54 72 7b 6b 70 72 6f 63 65 6e 74 3a 20 20 23 23 23 20 20 20 20 20 22 3a 54 52 5b 4b 3b ┆G "Trækprocent: ### ":TRÆK;┆
0x33300…33320 (25, 1, 4) 2f 36 30 33 34 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 53 6b 61 74 3a 20 20 20 20 20 20 20 ┆/60340 PRINT USING "Skat: ┆
0x33320…33340 20 20 23 23 23 23 23 23 23 23 2e 23 23 20 6b 72 2e 20 22 3a 53 4b 41 54 36 4d 30 33 35 30 20 50 ┆ ########.## kr. ":SKAT6M0350 P┆
0x33340…33360 52 49 4e 54 20 55 53 49 4e 47 20 22 41 74 20 75 64 62 65 74 61 6c 65 3a 20 20 20 20 20 20 20 20 ┆RINT USING "At udbetale: ┆
0x33360…33380 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 23 23 23 23 23 23 23 2e 23 23 20 6b 72 2e 20 ┆ ########.## kr. ┆
0x33380…333a0 22 3a 4e 45 54 54 4f 4d 4d 30 33 36 30 20 50 52 49 4e 54 20 22 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆":NETTOMM0360 PRINT "___________┆
0x333a0…333c0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
0x333c0…333e0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 22 4d 15 30 33 36 31 20 45 4e 44 ┆_____________________"M 0361 END┆
0x333e0…33400 50 52 4f 43 20 55 44 53 4b 52 49 46 54 15 4d 30 33 37 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆PROC UDSKRIFT M0370 // ---------┆
0x33400…33420 (25, 1, 5) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x33420…33440 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4d 0f 30 33 ┆----------------------------M 03┆
0x33440…33460 38 30 20 50 52 4f 43 20 48 4f 56 45 44 0f 0b 30 33 39 30 20 43 4c 45 41 52 20 0b 0f 30 34 30 30 ┆80 PROC HOVED 0390 CLEAR 0400┆
0x33460…33480 20 43 55 52 53 4f 52 20 31 2c 36 0f 3f 30 34 31 30 20 50 52 49 4e 54 20 22 44 75 20 73 6b 61 6c ┆ CURSOR 1,6 ?0410 PRINT "Du skal┆
0x33480…334a0 20 6e 75 20 69 6e 64 74 61 73 74 65 20 64 65 20 6e 7c 64 76 65 6e 64 69 67 65 20 6f 70 6c 79 73 ┆ nu indtaste de nødvendige oplys┆
0x334a0…334c0 6e 69 6e 67 65 72 20 66 6f 72 20 22 3f 3f 30 34 32 30 20 50 52 49 4e 54 20 22 61 74 20 66 7d 20 ┆ninger for "??0420 PRINT "at få ┆
0x334c0…334e0 6c 7c 6e 73 65 64 64 65 6c 65 6e 20 66 72 61 20 62 6f 67 65 6e 20 75 64 66 79 6c 64 74 20 6b 6f ┆lønseddelen fra bogen udfyldt ko┆
0x334e0…33500 72 72 65 6b 74 2e 20 20 20 20 20 20 22 3f 3f 30 34 33 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d ┆rrekt. "??0430 PRINT "-----┆
0x33500…33520 (25, 1, 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 ┆--------------------------------┆
0x33520…33540 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 3f 10 30 34 34 30 20 43 55 52 53 4f 52 20 31 2c 31 30 ┆-------------"? 0440 CURSOR 1,10┆
0x33540…33560 10 40 30 34 35 30 20 49 4e 50 55 54 20 22 41 6e 73 7b 74 74 65 6c 73 65 73 73 74 65 64 3a 20 20 ┆ @0450 INPUT "Ansættelsessted: ┆
0x33560…33580 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 22 3a 41 4e ┆ ":AN┆
0x33580…335a0 53 24 40 41 30 34 36 30 20 49 4e 50 55 54 20 22 4e 61 76 6e 3a 20 20 20 20 20 20 20 20 20 20 20 ┆S$@A0460 INPUT "Navn: ┆
0x335a0…335c0 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 22 3a ┆ ":┆
0x335c0…335e0 4e 41 56 4e 24 41 40 30 34 37 30 20 49 4e 50 55 54 20 22 41 64 72 65 73 73 65 3a 20 20 20 20 20 ┆NAVN$A@0470 INPUT "Adresse: ┆
0x335e0…33600 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 ┆ ┆
0x33600…33620 (25, 1, 7) 20 22 3a 41 44 52 24 40 43 30 34 38 30 20 49 4e 50 55 54 20 22 50 6f 73 74 6e 75 6d 6d 65 72 20 ┆ ":ADR$@C0480 INPUT "Postnummer ┆
0x33620…33640 26 20 62 79 3a 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 ┆& by: ┆
0x33640…33660 20 20 20 22 3a 50 4f 53 54 42 59 24 43 44 30 34 39 30 20 49 4e 50 55 54 20 22 41 66 64 65 6c 69 ┆ ":POSTBY$CD0490 INPUT "Afdeli┆
0x33660…33680 6e 67 3a 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 ┆ng: ┆
0x33680…336a0 20 20 20 20 20 20 20 20 22 3a 41 46 44 45 4c 49 4e 47 44 46 30 35 30 30 20 49 4e 50 55 54 20 22 ┆ ":AFDELINGDF0500 INPUT "┆
0x336a0…336c0 41 6e 74 61 6c 20 74 69 6d 65 72 3a 20 28 70 72 2e 20 75 67 65 29 20 20 20 20 20 20 20 20 20 20 ┆Antal timer: (pr. uge) ┆
0x336c0…336e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 41 4e 54 41 4c 54 49 4d 45 52 46 43 30 35 31 30 ┆ ":ANTALTIMERFC0510┆
0x336e0…33700 20 49 4e 50 55 54 20 22 54 69 6d 65 6c 7c 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ INPUT "Timeløn: ┆
0x33700…33720 (25, 1, 8) ExtentHdr {name=»LØNSEDDE«, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0032,0d (0x032d00)}, nextfile={DA 0034,01 (0x034100)}, f99=00 00 00 20 00 00 00 00 00 00 ┆ ┆}
0x33720…33740 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 54 49 4d 45 4c 5c 4e 43 ┆ ":TIMELØNC┆
0x33740…33760 41 30 35 32 30 20 49 4e 50 55 54 20 22 46 72 61 64 72 61 67 3a 20 28 70 72 2e 20 75 67 65 29 20 ┆A0520 INPUT "Fradrag: (pr. uge) ┆
0x33760…33780 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 22 3a 46 52 41 ┆ ":FRA┆
0x33780…337a0 44 52 41 40 30 35 33 30 20 49 4e 50 55 54 20 22 54 72 7b 6b 70 72 6f 63 65 6e 74 3a 20 20 20 20 ┆DRA@0530 INPUT "Trækprocent: ┆
0x337a0…337c0 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 22 3a ┆ ":┆
0x337c0…337e0 54 52 5b 4b 40 1c 30 35 34 30 20 4c 5c 4e 3a 3d 41 4e 54 41 4c 54 49 4d 45 52 2a 54 49 4d 45 4c ┆TRÆK@ 0540 LØN:=ANTALTIMER*TIMEL┆
0x337e0…33800 5c 4e 1c 15 30 35 35 30 20 53 4b 41 54 50 3a 3d 4c 5c 4e 2d 46 52 41 44 52 15 19 30 35 36 30 20 ┆ØN 0550 SKATP:=LØN-FRADR 0560 ┆
0x33800…33820 (25, 1, 9) 53 4b 41 54 3a 3d 53 4b 41 54 50 2a 54 52 5b 4b 2f 31 30 30 19 14 30 35 37 30 20 4e 45 54 54 4f ┆SKAT:=SKATP*TRÆK/100 0570 NETTO┆
0x33820…33840 3a 3d 4c 5c 4e 2d 53 4b 41 54 14 12 30 35 38 30 20 45 4e 44 50 52 4f 43 20 48 4f 56 45 44 12 00 ┆:=LØN-SKAT 0580 ENDPROC HOVED ┆
0x33840…33860 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ ccccccccccccccccccccccccccccccc┆
0x33860…33880 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x4…]
0x33900…33a00 (25, 1, 10) 0x63[0x100]
[…0x7…]
0x34100…34120 (26, 0, 2) ExtentHdr {name=»SPARTXT «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0034,0b (0x034b00)}, f99=41 34 00 ff 00 00 00 00 00 00 ┆A4 ┆}
0x34120…34140 36 31 2e 20 20 48 76 69 6c 6b 65 6e 20 6f 72 64 72 65 20 62 65 6e 79 74 74 65 73 20 76 65 64 20 ┆61. Hvilken ordre benyttes ved ┆
0x34140…34160 73 6b 72 69 76 6e 69 6e 67 20 69 20 65 6e 20 64 61 74 61 66 69 6c 3f 36 08 41 2e 20 20 52 45 41 ┆skrivning i en datafil?6 A. REA┆
0x34160…34180 44 08 07 42 2e 20 20 47 45 54 07 07 43 2e 20 20 50 55 54 07 01 43 01 3c 32 2e 20 20 48 76 69 6c ┆D B. GET C. PUT C <2. Hvil┆
0x34180…341a0 6b 65 6e 20 76 7b 72 64 69 20 68 61 72 20 53 54 41 54 55 53 28 66 69 6c 6e 61 76 6e 29 20 6e 7d ┆ken værdi har STATUS(filnavn) nå┆
0x341a0…341c0 72 20 73 6c 75 74 6d 7b 72 6b 65 20 65 72 20 6c 7b 73 74 3f 3c 05 41 2e 20 20 30 05 06 42 2e 20 ┆r slutmærke er læst?< A. 0 B. ┆
0x341c0…341e0 20 31 20 06 06 43 2e 20 20 31 39 06 01 43 01 37 33 2e 20 20 50 6f 73 74 73 74 7c 72 72 65 6c 73 ┆ 1 C. 19 C 73. Poststørrels┆
0x341e0…34200 65 20 61 66 20 3a 20 41 24 20 6f 66 20 34 30 2c 20 42 24 20 6f 66 20 35 30 2c 20 74 61 6c 2c 20 ┆e af : A$ of 40, B$ of 50, tal, ┆
0x34200…34220 (26, 0, 3) 61 6e 74 61 6c 20 3f 37 06 41 2e 20 20 39 30 06 07 42 2e 20 20 31 31 30 07 07 43 2e 20 20 31 33 ┆antal ?7 A. 90 B. 110 C. 13┆
0x34220…34240 30 07 01 42 01 44 34 2e 20 20 53 79 73 74 65 6d 6b 6f 6d 6d 61 6e 64 6f 20 64 65 72 20 6f 70 72 ┆0 B D4. Systemkommando der opr┆
0x34240…34260 65 74 74 65 72 20 65 6e 20 66 69 6c 20 70 7d 20 34 30 20 70 6f 73 74 65 72 2c 20 70 6f 73 74 6c ┆etter en fil på 40 poster, postl┆
0x34260…34280 7b 6e 67 64 65 20 31 31 30 3f 44 21 41 2e 20 20 43 52 45 41 54 45 20 53 59 53 54 49 4d 45 3a 53 ┆ængde 110?D!A. CREATE SYSTIME:S┆
0x34280…342a0 54 4f 52 46 49 4c 2c 34 30 2c 31 31 30 21 20 42 2e 20 20 4f 50 52 45 54 20 53 59 53 54 49 4d 45 ┆TORFIL,40,110! B. OPRET SYSTIME┆
0x342a0…342c0 3a 53 54 4f 52 46 49 4c 2c 34 30 2a 31 31 30 20 1b 43 2e 20 20 43 52 45 41 54 45 20 53 54 4f 52 ┆:STORFIL,40*110 C. CREATE STOR┆
0x342c0…342e0 46 49 4c 2c 34 30 20 2d 20 31 31 30 1b 01 41 01 3d 35 2e 20 20 48 76 69 6c 6b 65 6e 20 6c 69 6e ┆FIL,40 - 110 A =5. Hvilken lin┆
0x342e0…34300 69 65 20 6b 61 6e 20 6b 75 6e 20 62 65 6e 79 74 74 65 73 20 76 65 64 20 64 69 72 65 6b 74 65 28 ┆ie kan kun benyttes ved direkte(┆
0x34300…34320 (26, 0, 4) 72 61 6e 64 6f 6d 29 20 66 69 6c 65 72 3f 3d 16 41 2e 20 20 30 30 33 30 20 47 45 54 20 46 49 4c ┆random) filer?= A. 0030 GET FIL┆
0x34320…34340 24 2c 33 3a 41 24 16 17 42 2e 20 20 30 30 33 30 20 52 45 41 44 20 46 49 4c 24 2c 33 3a 41 24 17 ┆$,3:A$ B. 0030 READ FIL$,3:A$ ┆
0x34340…34360 14 43 2e 20 20 30 30 33 30 20 47 45 54 20 46 49 4c 24 3a 41 24 14 02 41 2e 02 28 36 2e 20 20 48 ┆ C. 0030 GET FIL$:A$ A. (6. H┆
0x34360…34380 76 69 6c 6b 65 6e 20 6f 72 64 72 65 20 6c 75 6b 6b 65 72 20 73 61 6d 74 6c 69 67 65 20 66 69 6c ┆vilken ordre lukker samtlige fil┆
0x34380…343a0 65 72 3f 28 09 41 2e 20 20 43 4c 4f 53 45 09 0e 42 2e 20 20 43 4c 4f 53 45 20 46 49 4c 24 0e 08 ┆er?( A. CLOSE B. CLOSE FIL$ ┆
0x343a0…343c0 43 2e 20 20 53 54 4f 50 08 01 41 01 40 37 2e 20 20 48 76 69 6c 6b 65 6e 20 6f 72 64 72 65 20 62 ┆C. STOP A @7. Hvilken ordre b┆
0x343c0…343e0 65 6e 79 74 74 65 73 20 74 69 6c 20 61 74 20 6b 61 6c 64 65 20 65 74 20 70 72 6f 67 72 61 6d 20 ┆enyttes til at kalde et program ┆
0x343e0…34400 66 72 61 20 65 74 20 61 6e 64 65 74 3f 40 08 41 2e 20 20 4c 4f 41 44 08 09 42 2e 20 20 47 45 54 ┆fra et andet?@ A. LOAD B. GET┆
0x34400…34420 (26, 0, 5) 20 20 09 09 43 2e 20 20 43 48 41 49 4e 09 01 43 01 41 38 2e 20 20 48 76 69 6c 6b 65 28 6e 29 20 ┆ C. CHAIN C A8. Hvilke(n) ┆
0x34420…34440 6f 72 64 72 65 28 72 29 20 62 65 6e 79 74 74 65 73 20 74 69 6c 20 73 61 6d 6d 65 6e 66 6c 65 74 ┆ordre(r) benyttes til sammenflet┆
0x34440…34460 6e 69 6e 67 20 61 66 20 70 72 6f 67 72 61 6d 6d 65 72 3f 41 11 41 2e 20 20 47 45 54 20 2d 20 4d ┆ning af programmer?A A. GET - M┆
0x34460…34480 45 52 47 45 20 20 11 0d 42 2e 20 20 50 55 54 20 2d 20 47 45 54 0d 0f 43 2e 20 20 53 41 56 45 20 ┆ERGE B. PUT - GET C. SAVE ┆
0x34480…344a0 2d 20 4c 4f 41 44 0f 01 41 01 1d 39 2e 20 20 48 76 69 6c 6b 65 6e 20 6c 69 6e 69 65 20 65 72 20 ┆- LOAD A 9. Hvilken linie er ┆
0x344a0…344c0 66 6f 72 6b 65 72 74 3f 1d 0e 41 2e 20 20 50 32 3a 43 4f 4d 41 4c 38 30 0e 0e 42 2e 20 20 43 4f ┆forkert? A. P2:COMAL80 B. CO┆
0x344c0…344e0 4d 41 4c 38 30 3a 50 33 0e 0b 43 2e 20 20 43 4f 4d 41 4c 38 30 0b 01 41 01 3f 31 30 2e 20 56 65 ┆MAL80:P3 C. COMAL80 A ?10. Ve┆
0x344e0…34500 64 20 47 4f 54 4f 20 73 70 72 69 6e 67 65 73 20 74 69 6c 20 65 74 69 6b 65 74 74 65 2e 20 48 76 ┆d GOTO springes til etikette. Hv┆
0x34500…34520 (26, 0, 6) 69 6c 6b 65 6e 20 6c 69 6e 69 65 20 6b 61 6e 20 62 65 6e 79 74 74 65 73 3f 3f 11 41 2e 20 20 30 ┆ilken linie kan benyttes?? A. 0┆
0x34520…34540 31 30 30 20 66 6f 72 74 73 7b 74 3a 11 16 42 2e 20 20 30 31 30 30 20 6c 61 62 65 6c 20 66 6f 72 ┆100 fortsæt: B. 0100 label for┆
0x34540…34560 74 73 7b 74 16 17 43 2e 20 20 30 31 30 30 20 66 6f 72 74 73 7b 74 2c 20 6c 61 62 65 6c 17 01 41 ┆tsæt C. 0100 fortsæt, label A┆
0x34560…34580 01 00 00 41 01 00 00 3a 20 00 d2 13 9e 00 ea d2 04 9e 00 d5 4f eb b9 54 d5 50 ea a6 0d 53 50 43 ┆ A : O T P SPC┆
0x34580…345a0 2f 31 20 6d 6f 64 65 6c 20 31 00 d2 13 9e 00 ea d2 04 9e 00 b9 5c d5 51 ea a6 0d 53 50 43 2f 31 ┆/1 model 1 Ø Q SPC/1┆
0x345a0…345c0 20 6d 6f 64 65 6c 20 32 00 d2 13 9e 00 ea d2 04 9e 00 b9 3e d5 52 ea a6 07 49 44 2d 37 30 30 30 ┆ model 2 > R ID-7000┆
0x345c0…345e0 00 d2 13 9e 00 ea d2 04 9e 00 b9 26 ac d5 49 00 57 00 b9 1e 20 00 04 00 06 00 08 00 0a 00 48 00 ┆ & I W H ┆
0x345e0…34600 0e 00 10 00 12 00 14 00 70 00 18 00 1a 00 1c 00 5a 00 d5 54 ea a6 06 20 77 69 74 68 20 00 d2 13 ┆ p Z T with ┆
0x34600…34620 (26, 0, 7) 9e 00 ea ec 00 d2 11 9e 00 ea a6 0f 20 4d 48 5a 20 70 72 6f 63 65 73 73 6f 72 2e 00 d2 13 9e 00 ┆ MHZ processor. ┆
0x34620…34640 ea d2 16 9e 00 d5 55 f4 a1 5e d5 56 f5 93 a1 2a d5 57 ea a6 19 53 79 73 74 65 6d 20 77 69 74 68 ┆ U ^ V * W System with┆
0x34640…34660 20 62 61 6e 6b 73 77 69 74 63 68 69 6e 67 00 d2 13 9e 00 ea d2 16 9e 00 b9 2c d5 59 ea a6 1d 53 ┆ bankswitching , Y S┆
0x34660…34680 79 73 74 65 6d 20 77 69 74 68 20 6e 65 77 20 62 61 6e 6b 73 77 69 74 63 68 69 6e 67 00 d2 13 9e ┆ystem with new bankswitching ┆
0x34680…346a0 00 ea d2 16 9e 00 b9 2b d5 5b ea a6 1c 53 79 73 74 65 6d 20 77 69 74 68 6f 75 74 20 62 61 6e 6b ┆ + Æ System without bank┆
0x346a0…346c0 73 77 69 74 63 68 69 6e 67 00 d2 13 9e 00 ea d2 16 9e 00 d5 5c f6 a1 28 d5 5d ea a6 17 4d 69 6b ┆switching Ø ( Å Mik┆
0x346c0…346e0 61 64 6f 73 20 62 61 6e 6b 20 69 6e 73 74 61 6c 6c 65 64 2e 00 d2 13 9e 00 ea d2 16 9e 00 b9 2a ┆ados bank installed. *┆
0x346e0…34700 d5 5f ea a6 1b 4d 69 6b 61 64 6f 73 20 62 61 6e 6b 20 6e 6f 74 20 69 6e 73 74 61 6c 6c 65 64 2e ┆ _ Mikados bank not installed.┆
0x34700…34720 (26, 0, 8) 00 d2 13 9e 00 ea d2 16 9e 00 d5 60 f7 a1 28 d5 61 ea a6 17 44 6d 61 20 69 6e 74 65 72 66 61 63 ┆ ` ( a Dma interfac┆
0x34720…34740 65 20 69 6e 20 73 79 73 74 65 6d 00 d2 13 9e 00 ea d2 16 9e 00 b9 2a d5 63 ea a6 1b 4e 6f 20 64 ┆e in system * c No d┆
0x34740…34760 6d 61 20 69 6e 74 65 72 66 61 63 65 20 69 6e 20 73 79 73 74 65 6d 2e 00 d2 13 9e 00 ea d2 16 9e ┆ma interface in system. ┆
0x34760…34780 00 d5 64 d5 65 ad 00 ff 00 00 00 00 07 00 24 02 04 01 d5 6d d5 6e d5 6f ea a6 25 44 69 73 6b 20 ┆ d e $ m n o %Disk ┆
0x34780…347a0 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 2d 20 64 69 73 63 20 69 64 20 20 20 20 20 74 79 70 65 ┆configuration - disc id type┆
0x347a0…347c0 00 d2 13 9e 00 ea d2 04 9e 00 d5 70 ea a6 1a 20 20 20 20 20 20 20 23 74 72 61 63 6b 73 20 20 73 ┆ p #tracks s┆
0x347c0…347e0 65 63 74 2f 74 72 61 63 6b 00 d2 13 9e 00 ea d2 16 9e 00 d5 71 01 cc 01 a5 06 be cc 04 d8 db c8 ┆ect/track q ┆
0x347e0…34800 a1 ee d5 72 a5 06 d8 9b be 20 cb a1 f2 d5 73 d5 74 d8 09 c8 a1 20 d5 75 ea 50 18 d2 11 9e 00 ea ┆ r s t u P ┆
0x34800…34820 (26, 0, 9) d8 30 82 00 d2 11 9e 00 ea 20 06 d2 11 9e 00 ea d2 04 9e 00 b9 20 d5 77 ea 50 18 d2 11 9e 00 ea ┆ 0 w P ┆
0x34820…34840 d8 0a 95 41 82 00 d2 11 9e 00 ea 20 06 d2 11 9e 00 ea d2 04 9e 00 d5 78 a5 06 d8 9b be b9 f6 d5 ┆ A x ┆
0x34840…34860 79 ea a6 1b 4d 65 67 61 66 6c 6f 70 20 20 20 20 20 20 31 35 34 20 20 20 20 20 20 20 20 32 36 00 ┆y Megaflop 154 26 ┆
0x34860…34880 d2 13 9e 00 ea d2 16 9e 00 b9 f4 d5 7a ea a6 1b 32 38 30 4b 20 6d 69 6e 69 20 20 20 20 20 20 37 ┆ z 280K mini 7┆
0x34880…348a0 30 20 20 20 20 20 20 20 20 31 36 00 d2 13 9e 00 ea d2 16 9e 00 b9 f4 d5 7b ea a6 1b 31 34 30 4b ┆0 16 æ 140K┆
0x348a0…348c0 20 6d 69 6e 69 20 20 20 20 20 20 33 35 20 20 20 20 20 20 20 20 31 36 00 d2 13 9e 00 ea d2 16 9e ┆ mini 35 16 ┆
0x348c0…348e0 00 b9 f4 d5 7c ea a6 1b 49 62 6d 20 31 64 31 73 20 38 22 20 20 20 20 33 38 20 20 20 20 20 20 20 ┆ ø Ibm 1d1s 8" 38 ┆
0x348e0…34900 20 32 36 00 d2 13 9e 00 ea d2 16 9e 00 b9 f4 d5 7d ea a6 1b 39 30 4b 20 6d 69 6e 69 20 20 20 20 ┆ 26 å 90K mini ┆
0x34900…34920 (26, 0, 10) 20 20 20 33 39 20 20 20 20 20 20 20 20 20 39 00 d2 13 9e 00 ea d2 16 9e 00 b9 f4 d5 7e ea a6 1b ┆ 39 9 ü ┆
0x34920…34940 36 20 4d 62 20 57 69 6e 63 68 20 20 20 20 37 35 30 20 20 20 20 20 20 20 20 33 32 00 d2 13 9e 00 ┆6 Mb Winch 750 32 ┆
0x34940…34960 ea d2 16 9e 00 b9 f4 d5 7f ea a6 1b 31 32 20 4d 62 20 57 69 6e 63 68 20 20 31 35 30 30 20 20 20 ┆ 12 Mb Winch 1500 ┆
0x34960…34980 20 20 20 20 20 33 32 00 d2 13 9e 00 ea d2 16 9e 00 b9 f4 d5 80 80 ea a6 1b 50 65 72 74 65 63 20 ┆ 32 Pertec ┆
0x34980…349a0 20 20 20 20 20 20 20 34 30 30 20 20 20 20 20 20 20 20 34 38 00 d2 13 9e 00 ea d2 16 9e 00 b9 f4 ┆ 400 48 ┆
0x349a0…349c0 d5 80 81 ea a6 1b 35 4d 20 6e 65 77 20 6d 69 6e 2d 57 20 20 36 30 30 20 20 20 20 20 20 20 20 33 ┆ 5M new min-W 600 3┆
0x349c0…349e0 32 00 d2 13 9e 00 ea d2 16 9e 00 b9 f4 d5 80 82 ea a6 1b 39 30 4b 20 52 61 6d 64 69 73 6b 20 20 ┆2 90K Ramdisk ┆
0x349e0…34a00 20 20 33 39 20 20 20 20 20 20 20 20 20 39 00 d2 13 9e 00 ea d2 16 9e 00 b9 f4 d5 80 83 ea a6 1b ┆ 39 9 ┆
0x34a00…34a20 (26, 0, 11) 53 79 6b 65 73 20 20 20 20 20 20 20 20 20 20 33 38 20 20 20 20 20 20 20 20 32 36 00 d2 13 9e 00 ┆Sykes 38 26 ┆
0x34a20…34a40 ea d2 16 9e 00 b9 f4 d5 80 84 ea a6 1b 35 36 30 4b 20 6d 69 6e 69 20 20 20 20 20 31 34 30 20 20 ┆ 560K mini 140 ┆
0x34a40…34a60 20 20 20 20 20 20 31 36 00 d2 13 9e 00 ea d2 16 9e 00 b9 f4 d5 80 85 ea a6 1b 32 2e 35 4d 20 6e ┆ 16 2.5M n┆
0x34a60…34a80 65 77 20 6d 2d 57 20 20 33 30 30 20 20 20 20 20 20 20 20 33 32 00 d2 13 9e 00 ea d2 16 9e 00 b9 ┆ew m-W 300 32 ┆
0x34a80…34aa0 f4 d5 80 86 ea a6 1b 35 4d 20 6f 6c 64 20 57 69 6e 63 68 20 20 34 30 30 20 20 20 20 20 20 20 20 ┆ 5M old Winch 400 ┆
0x34aa0…34ac0 34 38 00 d2 13 9e 00 ea d2 16 9e 00 b9 f4 d5 80 87 ea a6 1b 32 2e 35 4d 20 6f 6c 64 20 6d 2d 57 ┆48 2.5M old m-W┆
0x34ac0…34ae0 20 20 32 30 30 20 20 20 20 20 20 20 20 34 38 00 d2 13 9e 00 ea d2 16 9e 00 b9 f4 d5 80 88 ea a6 ┆ 200 48 ┆
0x34ae0…34b00 1b 31 32 2e 35 4d 20 57 69 6e 63 68 20 20 31 31 37 36 20 20 20 20 20 20 20 20 34 32 00 d2 13 63 ┆ 12.5M Winch 1176 42 c┆
0x34b00…34b20 (26, 0, 12) 00 50 41 52 54 58 54 20 4b 41 00 0a 00 00 00 00 00 00 00 00 00 00 41 34 00 ff 00 00 00 00 00 00 ┆ PARTXT KA A4 ┆
0x34b20…34b40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x6…]
0x34c00…34d00 (26, 0, 13) 0x63[0x100]
[…0x1b3…]