|
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 C D E F I K L M O P R S T V
Length: 327424 (0x4ff00)
Description: Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
Types: 5¼" Floppy Disk, ImdContainer
| basis | type | name | artifact |
|---|---|---|---|
| mangled | AFBET_RE | «none» | |
| 10 | K | AFSTAND | ⟦1ffd9f40e⟧ Mikados TextFile, Mikados_K |
| mangled | ANDENGR1 | «none» | |
| 6 | K | ANDENGR2 | ⟦c92396c22⟧ Mikados TextFile, Mikados_K |
| mangled | ANTILOG | «none» | |
| mangled | BIBLIOTE | «none» | |
| mangled | BINÆR_2 | «none» | |
| mangled | BISECTIO | «none» | |
| 3 | K | CIRKEL | ⟦573ce99fb⟧ Mikados TextFile, Mikados_K |
| mangled | COS_RELA | «none» | |
| mangled | DEMOFIL | «none» | |
| 10 | K | DEMOSEKV | ⟦6c944eab7⟧ Mikados TextFile, Mikados_K |
| mangled | DEMO_4 | «none» | |
| 2 | K | DIVISORE | ⟦a3bf3bdd9⟧ Mikados TextFile, Mikados_K |
| 3 | K | EKSMD1 | ⟦be3a9267f⟧ Mikados TextFile, Mikados_K |
| mangled | ETOILES | «none» | |
| 7 | K | EXAMEN | ⟦794ba7460⟧ Mikados TextFile, Mikados_K |
| mangled | FLETNING | «none» | |
| 10 | K | FORKORT | ⟦3156ea4fd⟧ Mikados TextFile, Mikados_K |
| mangled | FREKVENS | «none» | |
| mangled | FUNC_HER | «none» | |
| 10 | K | FÆLLESDI | ⟦813c35866⟧ Mikados TextFile, Mikados_K |
| mangled | HERON3 | «none» | |
| mangled | HUNDREDE | «none» | |
| mangled | INFO | «none» | |
| 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 |
| mangled | KOPIDIR | «none» | |
| mangled | KORRELAT | «none» | |
| 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 |
| mangled | MAX_MIN | «none» | |
| mangled | OVERFL1 | «none» | |
| 10 | K | OVERFL2 | ⟦dcef3666b⟧ Mikados TextFile, Mikados_K |
| 3 | K | OVERFLAD | ⟦775114d95⟧ Mikados TextFile, Mikados_K |
| mangled | PAKKEPOS | «none» | |
| 10 | K | PANTEBRE | ⟦a0f366185⟧ Mikados TextFile, Mikados_K |
| mangled | PERSONNU | «none» | |
| 4 | K | POSTTAK2 | ⟦0f641f472⟧ Mikados TextFile, Mikados_K |
| mangled | RAMME | «none» | |
| mangled | REJSEB2 | «none» | |
| 10 | K | REJSEBUR | ⟦5e6a6056a⟧ Mikados TextFile, Mikados_K |
| 4 | K | RENTE | ⟦5f1914ce3⟧ Mikados TextFile, Mikados_K |
| mangled | RENTEFOD | «none» | |
| mangled | RETTEFIL | «none» | |
| mangled | RUMFANG3 | «none» | |
| mangled | SCORE | «none» | |
| mangled | SFD | «none» | |
| 10 | K | SPARTXT | ⟦8ff75b693⟧ Mikados TextFile, Mikados_K |
| mangled | SPIL1_KO | «none» | |
| 10 | K | STJERN2 | ⟦77a3aa57d⟧ Mikados TextFile, Mikados_K |
| 10 | K | STJERNER | ⟦04e94a683⟧ Mikados TextFile, Mikados_K |
| mangled | STOPUR | «none» | |
| mangled | STYRTLØB | «none» | |
| 27 | K | SYSBÅND | ⟦4a4f5bfed⟧ Mikados TextFile, Mikados_K |
| mangled | SYSBÅND2 | «none» | |
| mangled | TELEFON | «none» | |
| 10 | K | TESTFIL | ⟦81fb204df⟧ Mikados TextFile, Mikados_K |
| mangled | TESTFIL2 | «none» | |
| mangled | TOPPKT1 | «none» | |
| 2 | K | TREKANT1 | ⟦39304046e⟧ Mikados TextFile, Mikados_K |
| mangled | TREKANT3 | «none» | |
| 3 | K | TRIGONOM | ⟦1f5d15d7f⟧ Mikados TextFile, Mikados_K |
| mangled | UDLAND | «none» | |
| 19 | K | VESTER | ⟦5fa9b20ab⟧ Mikados TextFile, Mikados_K |
0x00000…00030 (0, 0, 1) DiskLabel {plidn=»PLADELAGER«, ledig={DA 0034,0b (0x034a00)}, 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 (0x004000)}}
0x00900…00a00 [0x01]: DirEnt {name=»COS_RELA«, typ=»K«, seg=»A«, seg0={DA 0004,0b (0x004a00)}}
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 (0x005200)}}
0x00b00…00c00 [0x01]: DirEnt {name=»RETTEFIL«, typ=»K«, seg=»A«, seg0={DA 0005,0d (0x005c00)}}
0x00b00…00c00 [0x02]: DirEnt {name=»KOPIDIR «, typ=»K«, seg=»A«, seg0={DA 0006,05 (0x006400)}}
0x00b00…00c00 [0x03]: DirEnt {name=»TREKANT3«, typ=»K«, seg=»A«, seg0={DA 0006,0f (0x006e00)}}
0x00b00…00c00 [0x04]: DirEnt {name=»HUNDREDE«, typ=»K«, seg=»A«, seg0={DA 0007,02 (0x007100)}}
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 (0x007400)}}
0x00d00…00e00 [0x01]: DirEnt {name=»FREKVENS«, typ=»K«, seg=»A«, seg0={DA 0007,0f (0x007e00)}}
0x00d00…00e00 [0x02]: DirEnt {name=»HERON3 «, typ=»K«, seg=»A«, seg0={DA 0008,09 (0x008800)}}
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 (0x009800)}}
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 (0x009d00)}}
0x01300…01400 [0x01]: DirEnt {name=»TOPPKT1 «, typ=»K«, seg=»A«, seg0={DA 000b,09 (0x00b800)}}
0x01300…01400 [0x02]: DirEnt {name=»SPIL1_KO«, typ=»K«, seg=»A«, seg0={DA 000b,0c (0x00bb00)}}
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 (0x00c300)}}
0x01500…01600 [0x01]: DirEnt {name=»TESTFIL2«, typ=»K«, seg=»A«, seg0={DA 000c,0a (0x00c900)}}
0x01500…01600 [0x02]: DirEnt {name=»UDLAND «, typ=»K«, seg=»A«, seg0={DA 000d,0d (0x00dc00)}}
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 (0x00ec00)}}
0x01700…01800 [0x01]: DirEnt {name=»FLETNING«, typ=»K«, seg=»A«, seg0={DA 000f,07 (0x00f600)}}
0x01700…01800 [0x02]: DirEnt {name=»RAMME «, typ=»K«, seg=»A«, seg0={DA 0010,01 (0x010000)}}
0x01700…01800 [0x03]: DirEnt {name=»OVERFL1 «, typ=»K«, seg=»A«, seg0={DA 0010,03 (0x010200)}}
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 (0x011600)}}
0x01900…01a00 [0x01]: DirEnt {name=»STYRTLØB«, typ=»K«, seg=»A«, seg0={DA 0012,01 (0x012000)}}
0x01900…01a00 [0x02]: DirEnt {name=»MAX_MIN «, typ=»K«, seg=»A«, seg0={DA 0012,0b (0x012a00)}}
0x01900…01a00 [0x03]: DirEnt {name=»PAKKEPOS«, typ=»K«, seg=»A«, seg0={DA 0012,0f (0x012e00)}}
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 (0x013800)}}
0x01b00…01c00 [0x01]: DirEnt {name=»STOPUR «, typ=»K«, seg=»A«, seg0={DA 0014,0d (0x014c00)}}
0x01b00…01c00 [0x02]: DirEnt {name=»RENTEFOD«, typ=»K«, seg=»A«, seg0={DA 0015,07 (0x015600)}}
0x01b00…01c00 [0x03]: DirEnt {name=»BINÆR_2 «, typ=»K«, seg=»A«, seg0={DA 0015,0a (0x015900)}}
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 (0x016300)}}
0x01d00…01e00 [0x01]: DirEnt {name=»INFO «, typ=»K«, seg=»A«, seg0={DA 0017,08 (0x017700)}}
0x01d00…01e00 [0x02]: DirEnt {name=»SFD «, typ=»K«, seg=»A«, seg0={DA 0018,02 (0x018100)}}
0x01d00…01e00 [0x03]: DirEnt {name=»ETOILES «, typ=»K«, seg=»A«, seg0={DA 0018,03 (0x018200)}}
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 (0x018c00)}}
0x01f00…02000 [0x01]: DirEnt {name=»ANTILOG «, typ=»K«, seg=»A«, seg0={DA 0019,07 (0x019600)}}
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 (0x019800)}}
0x02100…02200 [0x01]: DirEnt {name=»PERSONNU«, typ=»K«, seg=»A«, seg0={DA 001b,0b (0x01ba00)}}
0x02100…02200 [0x02]: DirEnt {name=»RUMFANG3«, typ=»K«, seg=»A«, seg0={DA 001c,05 (0x01c400)}}
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 (0x01e200)}}
0x02300…02400 [0x01]: DirEnt {name=»POSTTAK2«, typ=»K«, seg=»A«, seg0={DA 001f,07 (0x01f600)}}
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 (0x01fe00)}}
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 (0x021900)}}
0x02900…02a00 [0x01]: DirEnt {name=»FÆLLESDI«, typ=»K«, seg=»A«, seg0={DA 0022,04 (0x022300)}}
0x02900…02a00 [0x02]: DirEnt {name=»LAGER «, typ=»K«, seg=»A«, seg0={DA 0022,0e (0x022d00)}}
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 (0x023700)}}
0x02d00…02e00 [0x01]: DirEnt {name=»LIGE_ULI«, typ=»K«, seg=»A«, seg0={DA 0023,0a (0x023900)}}
0x02d00…02e00 [0x02]: DirEnt {name=»CIRKEL «, typ=»K«, seg=»A«, seg0={DA 0023,0d (0x023c00)}}
0x02d00…02e00 [0x03]: DirEnt {name=»STJERN2 «, typ=»K«, seg=»A«, seg0={DA 0024,00 (0x023f00)}}
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 (0x024900)}}
0x02f00…03000 [0x01]: DirEnt {name=»VESTER «, typ=»K«, seg=»A«, seg0={DA 0025,04 (0x025300)}}
0x02f00…03000 [0x02]: DirEnt {name=»INFOTXT «, typ=»K«, seg=»A«, seg0={DA 0026,07 (0x026600)}}
0x02f00…03000 [0x03]: DirEnt {name=»OVERFLAD«, typ=»K«, seg=»A«, seg0={DA 0028,05 (0x028400)}}
0x02f00…03000 [0x04]: DirEnt {name=»TREKANT1«, typ=»K«, seg=»A«, seg0={DA 0028,08 (0x028700)}}
0x02f00…03000 [0x05]: DirEnt {name=»STJERNER«, typ=»K«, seg=»A«, seg0={DA 0028,0c (0x028b00)}}
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 (0x029500)}}
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 (0x029b00)}}
0x03300…03400 [0x01]: DirEnt {name=»MAX «, typ=»K«, seg=»A«, seg0={DA 002a,00 (0x029f00)}}
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 (0x02a200)}}
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 (0x02a500)}}
0x03900…03a00 [0x01]: DirEnt {name=»OVERFL2 «, typ=»K«, seg=»A«, seg0={DA 002b,0a (0x02b900)}}
0x03900…03a00 [0x02]: DirEnt {name=»EXAMEN «, typ=»K«, seg=»A«, seg0={DA 002c,0e (0x02cd00)}}
0x03900…03a00 [0x03]: DirEnt {name=»FORKORT «, typ=»K«, seg=»A«, seg0={DA 002d,05 (0x02d400)}}
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 (0x02de00)}}
0x03b00…03c00 [0x01]: DirEnt {name=»PANTEBRE«, typ=»K«, seg=»A«, seg0={DA 002e,01 (0x02e000)}}
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 (0x02f400)}}
0x03d00…03e00 [0x01]: DirEnt {name=»AFSTAND «, typ=»K«, seg=»A«, seg0={DA 0030,09 (0x030800)}}
0x03d00…03e00 [0x02]: DirEnt {name=»ANDENGR2«, typ=»K«, seg=»A«, seg0={DA 0031,03 (0x031200)}}
0x03d00…03e00 [0x03]: DirEnt {name=»ISENKRAM«, typ=»K«, seg=»A«, seg0={DA 0031,09 (0x031800)}}
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 (0x032c00)}}
0x03f00…04000 [0x01]: DirEnt {name=»SPARTXT «, typ=»K«, seg=»A«, seg0={DA 0034,01 (0x034000)}}
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) 42 49 42 4c 49 4f 54 45 4b 41 01 05 00 04 00 06 00 00 00 04 00 06 00 00 00 fe 00 00 00 00 00 00 ┆BIBLIOTEKA ┆
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) 42 49 42 4c 49 4f 54 45 4b 42 01 05 00 00 00 00 04 00 01 04 00 0b 00 00 00 20 00 00 00 00 00 00 ┆BIBLIOTEKB ┆
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) 43 4f 53 5f 52 45 4c 41 4b 41 01 04 00 04 00 0f 00 00 00 04 00 0f 41 04 00 fe 00 00 00 00 00 00 ┆COS_RELAKA 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) 43 4f 53 5f 52 45 4c 41 4b 42 01 04 00 00 00 00 04 00 0b 05 00 03 41 04 00 20 00 00 00 00 00 00 ┆COS_RELAKB 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]
0x05100…1d200 (2, 1, 2) […elided…]
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) 52 55 4d 46 41 4e 47 33 4b 43 02 0a 00 00 00 00 1c 00 0f 1e 00 03 41 1b 00 20 00 55 4d 46 41 4e ┆RUMFANG3KC 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, 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┆
0x1da20…1da40 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 // -----------┆
0x1da40…1da60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x1da60…1da80 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┆
0x1da80…1daa0 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┆
0x1daa0…1dac0 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 " ┆
0x1dac0…1dae0 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┆
0x1dae0…1db00 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 "____________________┆
0x1db00…1db20 (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 ┆________________________________┆
0x1db20…1db40 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 ┆
0x1db40…1db60 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┆
0x1db60…1db80 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┆
0x1db80…1dba0 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┆
0x1dba0…1dbc0 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┆
0x1dbc0…1dbe0 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┆
0x1dbe0…1dc00 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┆
0x1dc00…1dc20 (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┆
0x1dc20…1dc40 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 // ------┆
0x1dc40…1dc60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x1dc60…1dc80 2d 2d 2d 2d 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┆
0x1dc80…1dca0 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 ┆
0x1dca0…1dcc0 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┆
0x1dcc0…1dce0 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┆
0x1dce0…1dd00 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┆
0x1dd00…1dd20 (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┆
0x1dd20…1dd40 63 63 63 63 63 63 63 63 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…]
0x1de00…1df00 (14, 1, 16) 0x63[0x100]
[…0x3…]
0x1e200…1e220 (15, 0, 4) ExtentHdr {name=»KARTOTEK«, typ=»K«, seg=»A«, next=0x01, basis=0x000a, nextext={DA 001e,0d (0x01ec00)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 001e,0d (0x01ec00)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x1e220…1e240 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 // -----------------------┆
0x1e240…1e260 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 --------------------┆
0x1e260…1e280 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┆
0x1e280…1e2a0 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┆
0x1e2a0…1e2c0 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┆
0x1e2c0…1e2e0 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 ┆
0x1e2e0…1e300 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┆
0x1e300…1e320 (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┆
0x1e320…1e340 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┆
0x1e340…1e360 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,Ø┆
0x1e360…1e380 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$ ┆
0x1e380…1e3a0 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┆
0x1e3a0…1e3c0 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┆
0x1e3c0…1e3e0 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┆
0x1e3e0…1e400 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┆
0x1e400…1e420 (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┆
0x1e420…1e440 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 "┆
0x1e440…1e460 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 ."+┆
0x1e460…1e480 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 " --------------┆
0x1e480…1e4a0 2d 2d 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┆
0x1e4a0…1e4c0 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┆
0x1e4c0…1e4e0 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┆
0x1e4e0…1e500 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 " ----------------------┆
0x1e500…1e520 (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 ┆
0x1e520…1e540 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....┆
0x1e540…1e560 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┆
0x1e560…1e580 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┆
0x1e580…1e5a0 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┆
0x1e5a0…1e5c0 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┆
0x1e5c0…1e5e0 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┆
0x1e5e0…1e600 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 " ┆
0x1e600…1e620 (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............┆
0x1e620…1e640 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┆
0x1e640…1e660 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┆
0x1e660…1e680 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┆
0x1e680…1e6a0 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┆
0x1e6a0…1e6c0 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 ┆
0x1e6c0…1e6e0 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┆
0x1e6e0…1e700 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┆
0x1e700…1e720 (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┆
0x1e720…1e740 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┆
0x1e740…1e760 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 // ┆
0x1e760…1e780 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┆
0x1e780…1e7a0 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┆
0x1e7a0…1e7c0 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$┆
0x1e7c0…1e7e0 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┆
0x1e7e0…1e800 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 ┆
0x1e800…1e820 (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 ┆
0x1e820…1e840 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┆
0x1e840…1e860 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┆
0x1e860…1e880 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 "-------------┆
0x1e880…1e8a0 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┆
0x1e8a0…1e8c0 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┆
0x1e8c0…1e8e0 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┆
0x1e8e0…1e900 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┆
0x1e900…1e920 (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┆
0x1e920…1e940 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: ┆
0x1e940…1e960 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┆
0x1e960…1e980 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: ┆
0x1e980…1e9a0 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┆
0x1e9a0…1e9c0 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┆
0x1e9c0…1e9e0 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┆
0x1e9e0…1ea00 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┆
0x1ea00…1ea20 (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┆
0x1ea20…1ea40 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┆
0x1ea40…1ea60 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┆
0x1ea60…1ea80 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 ┆
0x1ea80…1eaa0 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┆
0x1eaa0…1eac0 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┆
0x1eac0…1eae0 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: ┆
0x1eae0…1eb00 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┆
0x1eb00…1eb20 (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┆
0x1eb20…1eb40 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?┆
0x1eb40…1eb60 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┆
0x1eb60…1eb80 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┆
0x1eb80…1eba0 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┆
0x1eba0…1ebc0 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 ┆
0x1ebc0…1ebe0 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 "_________________________┆
0x1ebe0…1ec00 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 ┆________________________________┆
0x1ec00…1ec20 (15, 0, 14) ExtentHdr {name=»KARTOTEK«, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0000,00 (0x-00100)}, prevext={DA 001e,03 (0x01e200)}, nextfile={DA 001f,07 (0x01f600)}, f99=00 00 00 20 00 00 00 00 00 00 ┆ ┆}
0x1ec20…1ec40 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 "__________┆
0x1ec40…1ec60 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:┆
0x1ec60…1ec80 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┆
0x1ec80…1eca0 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┆
0x1eca0…1ecc0 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┆
0x1ecc0…1ece0 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┆
0x1ece0…1ed00 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┆
0x1ed00…1ed20 (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 ┆
0x1ed20…1ed40 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┆
0x1ed40…1ed60 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 // ┆
0x1ed60…1ed80 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┆
0x1ed80…1eda0 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┆
0x1eda0…1edc0 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 : ┆
0x1edc0…1ede0 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┆
0x1ede0…1ee00 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┆
0x1ee00…1ee20 (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 ┆
0x1ee20…1ee40 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┆
0x1ee40…1ee60 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 "┆
0x1ee60…1ee80 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┆
0x1ee80…1eea0 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┆
0x1eea0…1eec0 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┆
0x1eec0…1eee0 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┆
0x1eee0…1ef00 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: ┆
0x1ef00…1ef20 (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┆
0x1ef20…1ef40 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: ┆
0x1ef40…1ef60 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┆
0x1ef60…1ef80 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$┆
0x1ef80…1efa0 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┆
0x1efa0…1efc0 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┆
0x1efc0…1efe0 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┆
0x1efe0…1f000 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,┆
0x1f000…1f020 (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┆
0x1f020…1f040 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$┆
0x1f040…1f060 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$ ┆
0x1f060…1f080 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┆
0x1f080…1f0a0 63 63 63 63 63 63 63 63 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…]
0x1f100…1f200 (15, 1, 3) 0x63[0x100]
[…0x4…]
0x1f600…1f620 (15, 1, 8) ExtentHdr {name=»POSTTAK2«, typ=»K«, seg=»A«, next=0x01, basis=0x0004, nextext={DA 001f,0b (0x01fa00)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 001f,0b (0x01fa00)}, f99=41 1f 00 fe 00 00 00 00 00 00 ┆A ┆}
0x1f620…1f640 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 // ---------------------- ┆
0x1f640…1f660 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 ---------------------┆
0x1f660…1f680 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 ┆
0x1f680…1f6a0 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┆
0x1f6a0…1f6c0 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┆
0x1f6c0…1f6e0 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 "----------------┆
0x1f6e0…1f700 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x1f700…1f720 (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 ┆
0x1f720…1f740 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)┆
0x1f740…1f760 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 ┆
0x1f760…1f780 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 // -----------------------┆
0x1f780…1f7a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x1f7a0…1f7c0 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 ┆
0x1f7c0…1f7e0 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┆
0x1f7e0…1f800 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┆
0x1f800…1f820 (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┆
0x1f820…1f840 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┆
0x1f840…1f860 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┆
0x1f860…1f880 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┆
0x1f880…1f8a0 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<┆
0x1f8a0…1f8c0 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┆
0x1f8c0…1f8e0 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┆
0x1f8e0…1f900 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┆
0x1f900…1f920 (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┆
0x1f920…1f940 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┆
0x1f940…1f960 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┆
0x1f960…1f980 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: ┆
0x1f980…1f9a0 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. ┆
0x1f9a0…1f9c0 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 ┆
0x1f9c0…1f9e0 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: ┆
0x1f9e0…1fa00 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┆
0x1fa00…1fa20 (15, 1, 12) ExtentHdr {name=»POSTTAK2«, typ=»K«, seg=»B«, next=0x01, basis=0x0004, nextext={DA 0000,00 (0x-00100)}, prevext={DA 001f,07 (0x01f600)}, nextfile={DA 001f,0f (0x01fe00)}, f99=41 1f 00 20 00 00 00 00 00 00 ┆A ┆}
0x1fa20…1fa40 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 // ---------------------- ┆
0x1fa40…1fa60 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 ---------------------┆
0x1fa60…1fa80 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 ┆
0x1fa80…1faa0 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┆
0x1faa0…1fac0 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┆
0x1fac0…1fae0 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 "----------------┆
0x1fae0…1fb00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x1fb00…1fc00 (15, 1, 13) 0x63[0x100]
[…0x2…]
0x1fe00…1fe20 (15, 1, 16) ExtentHdr {name=»SYSBÅND «, typ=»K«, seg=»A«, next=0x00, basis=0x001b, nextext={DA 0000,00 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0021,0a (0x021900)}, f99=00 00 00 a8 00 00 00 00 00 00 ┆ ┆}
0x1fe20…1fe40 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┆
0x1fe40…1fe60 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 ┆
0x1fe60…1fe80 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 ┆ ┆
0x1fe80…1fea0 00 00 00 00 00 00 00 00 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…]
0x1fec0…1fee0 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┆
0x1fee0…1ff00 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 : ┆
0x1ff00…1ff20 (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 ┆ ┆
0x1ff20…1ff40 00 00 00 00 00 00 00 00 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…]
0x1ff60…1ff80 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 ┆ ┆
0x1ff80…1ffa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1ffa0…1ffc0 20 20 20 20 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 ┆ ┆
0x1ffc0…1ffe0 20 20 20 20 20 20 20 20 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…]
0x20000…20020 (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 ┆ ┆
0x20020…20040 20 20 20 20 20 20 20 20 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…]
0x20060…20080 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 ┆ ┆
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 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff ┆ ┆
0x200c0…200e0 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 ┆ ┆
0x200e0…20100 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20100…20120 (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 ┆ ┆
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 ┆ ┆
0x20140…20160 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 ┆ ┆
0x20160…20180 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 ┆ ┆
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 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x201c0…201e0 20 20 20 20 20 20 20 20 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 00 00 00 00 00 ┆ ┆
0x20200…20220 (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 ┆ ┆
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 20 20 20 20 20 20 20 20 20 00 20 20 20 ┆ ┆
0x20260…20280 20 20 20 20 20 20 20 20 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…]
0x202a0…202c0 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 ┆ ┆
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 ┆ ┆
[…0x1…]
0x20300…20320 (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 ┆ ┆
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 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff ┆ ┆
0x20360…20380 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 ┆ ┆
0x20380…203a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x203a0…203c0 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 ┆ ┆
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 ┆ ┆
0x203e0…20400 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 ┆ ┆
0x20400…20420 (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 ┆ ┆
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 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20460…20480 20 20 20 20 20 20 20 20 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 00 00 00 00 00 ┆ ┆
0x204a0…204c0 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 ┆ ┆
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 20 20 20 20 20 20 20 20 20 00 20 20 20 ┆ ┆
0x20500…20520 (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…]
0x20540…20560 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 ┆ ┆
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 ┆ ┆
[…0x1…]
0x205a0…205c0 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 ┆ ┆
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 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff ┆ ┆
0x20600…20620 (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 ┆ ┆
0x20620…20640 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20640…20660 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 ┆ ┆
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 ┆ ┆
0x20680…206a0 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 ┆ ┆
0x206a0…206c0 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 ┆ ┆
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 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20700…20720 (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 ┆ ┆
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 00 00 00 00 00 ┆ ┆
0x20740…20760 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 ┆ ┆
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 20 20 20 20 20 20 20 20 20 00 20 20 20 ┆ ┆
0x207a0…207c0 20 20 20 20 20 20 20 20 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…]
0x207e0…20800 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 ┆ ┆
0x20800…20820 (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…]
0x20840…20860 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 ┆ ┆
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 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff ┆ ┆
0x208a0…208c0 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 ┆ ┆
0x208c0…208e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x208e0…20900 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 ┆ ┆
0x20900…20920 (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 ┆ ┆
0x20920…20940 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 ┆ ┆
0x20940…20960 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 ┆ ┆
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 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x209a0…209c0 20 20 20 20 20 20 20 20 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 00 00 00 00 00 ┆ ┆
0x209e0…20a00 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 ┆ ┆
0x20a00…20a20 (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 ┆ ┆
0x20a20…20a40 20 20 20 20 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 ┆ ┆
0x20a40…20a60 20 20 20 20 20 20 20 20 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…]
0x20a80…20aa0 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 ┆ ┆
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 ┆ ┆
[…0x1…]
0x20ae0…20b00 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 ┆ ┆
0x20b00…20b20 (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 ┆ ┆
0x20b20…20b40 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 ┆ ┆
0x20b40…20b60 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 ┆ ┆
0x20b60…20b80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20b80…20ba0 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 ┆ ┆
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 ┆ ┆
0x20bc0…20be0 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 ┆ ┆
0x20be0…20c00 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 ┆ ┆
0x20c00…20c20 (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 ┆ ┆
0x20c20…20c40 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 ┆ ┆
0x20c40…20c60 20 20 20 20 20 20 20 20 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 00 00 00 00 00 ┆ ┆
0x20c80…20ca0 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 ┆ ┆
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 20 20 20 20 20 20 20 20 20 00 20 20 20 ┆ ┆
0x20ce0…20d00 20 20 20 20 20 20 20 20 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…]
0x20d20…20d40 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 ┆ ┆
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 ┆ ┆
[…0x1…]
0x20d80…20da0 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 ┆ ┆
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 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff ┆ ┆
0x20de0…20e00 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 ┆ ┆
0x20e00…20e20 (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 ┆ ┆
0x20e20…20e40 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 ┆ ┆
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 ┆ ┆
0x20e60…20e80 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 ┆ ┆
0x20e80…20ea0 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 ┆ ┆
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 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20ee0…20f00 20 20 20 20 20 20 20 20 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, 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 ┆ ┆
0x20f20…20f40 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 ┆ ┆
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 20 20 20 20 20 20 20 20 20 00 20 20 20 ┆ ┆
0x20f80…20fa0 20 20 20 20 20 20 20 20 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…]
0x20fc0…20fe0 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 ┆ ┆
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 ┆ ┆
[…0x1…]
0x21020…21040 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 ┆ ┆
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 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff ┆ ┆
0x21080…210a0 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 ┆ ┆
0x210a0…210c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x210c0…210e0 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 ┆ ┆
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 ┆ ┆
0x21100…21120 (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 ┆ ┆
0x21120…21140 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 ┆ ┆
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 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21180…211a0 20 20 20 20 20 20 20 20 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 00 00 00 00 00 ┆ ┆
0x211c0…211e0 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 ┆ ┆
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, 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 ┆ ┆
0x21220…21240 20 20 20 20 20 20 20 20 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…]
0x21260…21280 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 ┆ ┆
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 ┆ ┆
[…0x1…]
0x212c0…212e0 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 ┆ ┆
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, 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 ┆ ┆
0x21320…21340 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 ┆ ┆
0x21340…21360 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21360…21380 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 ┆ ┆
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 ┆ ┆
0x213a0…213c0 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 ┆ ┆
0x213c0…213e0 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 ┆ ┆
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, 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 ┆ ┆
0x21420…21440 20 20 20 20 20 20 20 20 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 00 00 00 00 00 ┆ ┆
0x21460…21480 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 ┆ ┆
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 20 20 20 20 20 20 20 20 20 00 20 20 20 ┆ ┆
0x214c0…214e0 20 20 20 20 20 20 20 20 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…]
0x21500…21520 (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 ┆ ┆
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 ┆ ┆
[…0x1…]
0x21560…21580 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 ┆ ┆
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 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff ┆ ┆
0x215c0…215e0 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 ┆ ┆
0x215e0…21600 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21600…21620 (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 ┆ ┆
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 ┆ ┆
0x21640…21660 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 ┆ ┆
0x21660…21680 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 ┆ ┆
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 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x216c0…216e0 20 20 20 20 20 20 20 20 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 00 00 00 00 00 ┆ ┆
0x21700…21720 (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 ┆ ┆
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 20 20 20 20 20 20 20 20 20 00 20 20 20 ┆ ┆
0x21760…21780 20 20 20 20 20 20 20 20 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…]
0x217a0…217c0 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 ┆ ┆
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 ┆ ┆
[…0x1…]
0x21800…21820 (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 ┆ ┆
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 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 ff 00 ff 00 ff 00 ff ┆ ┆
0x21860…21880 63 63 63 63 63 63 63 63 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…]
0x21900…21920 (16, 1, 11) ExtentHdr {name=»TESTFIL «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0022,04 (0x022300)}, f99=00 00 00 ff 00 00 00 00 00 00 ┆ ┆}
0x21920…21940 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┆
0x21940…21960 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┆
0x21960…21980 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 % ┆
0x21980…219a0 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 ┆ ┆
0x219a0…219c0 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 ┆ ┆
0x219c0…219e0 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 ┆ ┆
0x219e0…21a00 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 ┆ ┆
0x21a00…21a20 (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 ┆ ┆
0x21a20…21a40 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 ┆ ┆
0x21a40…21a60 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 ┆ ┆
0x21a60…21a80 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 ┆ ┆
0x21a80…21aa0 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┆
0x21aa0…21ac0 63 63 63 63 63 63 63 63 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…]
0x21b00…21c00 (16, 1, 13) 0x63[0x100]
[…0x7…]
0x22300…22320 (17, 0, 5) ExtentHdr {name=»FÆLLESDI«, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0022,0e (0x022d00)}, f99=41 22 00 fe 00 00 00 00 00 00 ┆A" ┆}
0x22320…22340 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 // -----------------------┆
0x22340…22360 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 ---------------------┆
0x22360…22380 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┆
0x22380…223a0 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┆
0x223a0…223c0 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┆
0x223c0…223e0 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: ┆
0x223e0…22400 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┆
0x22400…22420 (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 ┆
0x22420…22440 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 :┆
0x22440…22460 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 ┆
0x22460…22480 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┆
0x22480…224a0 63 63 63 63 63 63 63 63 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…]
0x22500…22600 (17, 0, 7) 0x63[0x100]
[…0x7…]
0x22d00…22d20 (17, 0, 15) ExtentHdr {name=»LAGER «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0023,08 (0x023700)}, f99=41 22 00 ff 00 41 47 45 52 20 ┆A" AGER ┆}
0x22d20…22d40 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 ┆
0x22d40…22d60 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┆
0x22d60…22d80 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 ┆
0x22d80…22da0 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 ┆
0x22da0…22dc0 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 ` ┆
0x22dc0…22de0 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 ┆
0x22de0…22e00 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 ┆
0x22e00…22e20 (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┆
0x22e20…22e40 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┆
0x22e40…22e60 63 63 63 63 63 63 63 63 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…]
0x22f00…23000 (17, 1, 1) 0x63[0x100]
[…0x7…]
0x23700…23720 (17, 1, 9) ExtentHdr {name=»LOWSCORE«, typ=»K«, seg=»A«, next=0x01, basis=0x0001, nextext={DA 0023,09 (0x023800)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0023,09 (0x023800)}, f99=00 00 00 ff 00 00 00 00 00 00 ┆ ┆}
0x23720…23740 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 ┆
0x23740…23760 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 ┆ ┆
0x23760…23780 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 ┆ ┆
0x23780…237a0 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 ┆ ┆
0x237a0…237c0 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 ┆ ┆
0x237c0…237e0 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 ┆ ┆
0x237e0…23800 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 ┆ ┆
0x23800…23820 (17, 1, 10) ExtentHdr {name=»LOWSCORE«, typ=»K«, seg=»B«, next=0x01, basis=0x0001, nextext={DA 0000,00 (0x-00100)}, prevext={DA 0023,08 (0x023700)}, nextfile={DA 0023,0a (0x023900)}, f99=00 00 00 20 00 00 00 00 00 00 ┆ ┆}
0x23820…23840 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 ┆ ┆
0x23840…23860 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 ┆ ┆
0x23860…23880 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 ┆ ┆
0x23880…238a0 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 ┆ ┆
0x238a0…238c0 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 ┆ ┆
0x238c0…238e0 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 ┆ ┆
0x238e0…23900 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 ┆ ┆
0x23900…23920 (17, 1, 11) ExtentHdr {name=»LIGE_ULI«, typ=»K«, seg=»A«, next=0x00, basis=0x0003, nextext={DA 0000,00 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0023,0d (0x023c00)}, f99=41 23 00 fe 00 00 00 00 00 00 ┆A# ┆}
0x23920…23940 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 ---┆
0x23940…23960 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┆
0x23960…23980 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┆
0x23980…239a0 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┆
0x239a0…239c0 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┆
0x239c0…239e0 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┆
0x239e0…23a00 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┆
0x23a00…23a20 (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┆
0x23a20…23a40 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┆
0x23a40…23a60 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┆
0x23a60…23a80 63 63 63 63 63 63 63 63 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…]
0x23b00…23c00 (17, 1, 13) 0x63[0x100]
0x23c00…23c20 (17, 1, 14) ExtentHdr {name=»CIRKEL «, typ=»K«, seg=»A«, next=0x00, basis=0x0003, nextext={DA 0000,00 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0024,00 (0x023f00)}, f99=41 23 00 fe 00 49 52 4b 45 4c ┆A# IRKEL┆}
0x23c20…23c40 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 // -----------------------┆
0x23c40…23c60 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 ---------------------┆
0x23c60…23c80 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 "┆
0x23c80…23ca0 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: ┆
0x23ca0…23cc0 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┆
0x23cc0…23ce0 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┆
0x23ce0…23d00 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┆
0x23d00…23d20 (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: ┆
0x23d20…23d40 20 20 20 20 20 20 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 ┆ ##┆
0x23d40…23d60 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┆
0x23d60…23d80 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: ┆
0x23d80…23da0 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┆
0x23da0…23dc0 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: ┆
0x23dc0…23de0 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 ┆ #####.## ┆
0x23de0…23e00 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┆
0x23e00…23f00 (17, 1, 16) 0x63[0x100]
0x23f00…23f20 (18, 0, 1) ExtentHdr {name=»STJERN2 «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0024,0a (0x024900)}, f99=41 23 00 fe 00 49 52 4b 45 4c ┆A# IRKEL┆}
0x23f20…23f40 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 // -----------------------┆
0x23f40…23f60 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 ------------------┆
0x23f60…23f80 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┆
0x23f80…23fa0 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,┆
0x23fa0…23fc0 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┆
0x23fc0…23fe0 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┆
0x23fe0…24000 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┆
0x24000…24020 (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 $┆
0x24020…24040 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$ ┆
0x24040…24060 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┆
0x24060…24080 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 ┆
0x24080…240a0 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┆
0x240a0…240c0 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 ┆
0x240c0…240e0 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┆
0x240e0…24100 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 "----┆
0x24100…24120 (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 ┆--------------------------------┆
0x24120…24140 2d 2d 2d 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┆
0x24140…24160 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 ┆
0x24160…24180 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┆
0x24180…241a0 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: ┆
0x241a0…241c0 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 ┆
0x241c0…241e0 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┆
0x241e0…24200 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.): ┆
0x24200…24220 (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┆
0x24220…24240 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",┆
0x24240…24260 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┆
0x24260…24280 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:┆
0x24280…242a0 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┆
0x242a0…242c0 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┆
0x242c0…242e0 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┆
0x242e0…24300 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┆
0x24300…24320 (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;". ";┆
0x24320…24340 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┆
0x24340…24360 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."+ ┆
0x24360…24380 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┆
0x24380…243a0 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┆
0x243a0…243c0 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 ┆
0x243c0…243e0 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┆
0x243e0…24400 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┆
0x24400…24420 (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 // ┆
0x24420…24440 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┆
0x24440…24460 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┆
0x24460…24480 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┆
0x24480…244a0 63 63 63 63 63 63 63 63 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…]
0x24500…24600 (18, 0, 7) 0x63[0x100]
[…0x3…]
0x24900…24920 (18, 0, 11) ExtentHdr {name=»KOPI «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0025,04 (0x025300)}, f99=00 00 00 ff 00 00 00 00 00 00 ┆ ┆}
0x24920…24940 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 ┆
0x24940…24960 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┆
0x24960…24980 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┆
0x24980…249a0 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┆
0x249a0…249c0 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┆
0x249c0…249e0 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┆
0x249e0…24a00 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┆
0x24a00…24a20 (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┆
0x24a20…24a40 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┆
0x24a40…24a60 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┆
0x24a60…24a80 63 63 63 63 63 63 63 63 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…]
0x24b00…24c00 (18, 0, 13) 0x63[0x100]
[…0x7…]
0x25300…25320 (18, 1, 5) ExtentHdr {name=»VESTER «, typ=»K«, seg=»A«, next=0x00, basis=0x0013, nextext={DA 0000,00 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0026,07 (0x026600)}, f99=41 25 00 5f 00 00 00 00 00 00 ┆A% _ ┆}
0x25320…25340 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 ┆
0x25340…25360 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 ┆
0x25360…25380 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 ┆ ┆
0x25380…253a0 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┆
0x253a0…253c0 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 ┆
0x253c0…253e0 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 ┆ ┆
0x253e0…25400 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┆
0x25400…25420 (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 ┆
0x25420…25440 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┆
0x25440…25460 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┆
0x25460…25480 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 ┆
0x25480…254a0 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┆
0x254a0…254c0 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┆
0x254c0…254e0 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 ┆
0x254e0…25500 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┆
0x25500…25600 (18, 1, 7) 0x63[0x100]
[…0x10…]
0x26600…26620 (19, 0, 8) ExtentHdr {name=»INFOTXT «, typ=»K«, seg=»A«, next=0x02, basis=0x000a, nextext={DA 0027,01 (0x027000)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0027,01 (0x027000)}, f99=41 25 00 ff 00 4e 46 4f 54 58 ┆A% NFOTX┆}
0x26620…26640 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 ┆> ******************┆
0x26640…26660 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 ┆*******************************>┆
0x26660…26680 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 ┆> * ┆
0x26680…266a0 20 20 20 20 20 20 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 ┆ *>┆
0x266a0…266c0 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 ┆> * ┆
0x266c0…266e0 20 20 20 20 20 20 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 ┆ *>┆
0x266e0…26700 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 ┆
0x26700…26720 (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 *>┆
0x26720…26740 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 ┆> * ┆
0x26740…26760 20 20 20 20 20 20 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 ┆ *>┆
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 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 *>┆
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 73 61 6d 74 ┆> * samt┆
0x26800…26820 (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 *>┆
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 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 *>┆
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 20 20 34 20 ┆> * 4 ┆
0x26900…26920 (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 *>┆
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 2d 2d 2d ┆> * ---┆
0x26940…26960 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 ┆-------------- *>┆
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 20 20 20 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 ┆ *>┆
0x269a0…269c0 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 ┆> ******************┆
0x269c0…269e0 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 ┆*******************************>┆
0x269e0…26a00 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 ┆
0x26a00…26a20 (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┆
0x26a20…26a40 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.┆
0x26a40…26a60 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. ┆
0x26a60…26a80 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.??---------┆
0x26a80…26aa0 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 ┆- ---------- ┆
0x26aa0…26ac0 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┆
0x26ac0…26ae0 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: ┆
0x26ae0…26b00 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┆
0x26b00…26b20 (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 ┆
0x26b20…26b40 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┆
0x26b40…26b60 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┆
0x26b60…26b80 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 ┆
0x26b80…26ba0 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┆
0x26ba0…26bc0 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:┆
0x26bc0…26be0 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┆
0x26be0…26c00 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 ┆
0x26c00…26c20 (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 ┆
0x26c20…26c40 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┆
0x26c40…26c60 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┆
0x26c60…26c80 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┆
0x26c80…26ca0 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┆
0x26ca0…26cc0 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┆
0x26cc0…26ce0 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 ┆
0x26ce0…26d00 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┆
0x26d00…26d20 (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: ┆
0x26d20…26d40 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┆
0x26d40…26d60 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┆
0x26d60…26d80 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┆
0x26d80…26da0 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- ┆
0x26da0…26dc0 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┆
0x26dc0…26de0 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 ┆
0x26de0…26e00 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┆
0x26e00…26e20 (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. ┆
0x26e20…26e40 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. ┆
0x26e40…26e60 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.@@---------- ┆
0x26e60…26e80 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 ┆ ---------- ┆
0x26e80…26ea0 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: ┆
0x26ea0…26ec0 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┆
0x26ec0…26ee0 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┆
0x26ee0…26f00 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┆
0x26f00…26f20 (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: ┆
0x26f20…26f40 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 ┆
0x26f40…26f60 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 ┆
0x26f60…26f80 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: ┆
0x26f80…26fa0 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┆
0x26fa0…26fc0 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┆
0x26fc0…26fe0 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: ┆
0x26fe0…27000 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_┆
0x27000…27020 (19, 1, 2) ExtentHdr {name=»INFOTXT «, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0027,0b (0x027a00)}, prevext={DA 0026,07 (0x026600)}, nextfile={DA 0027,0b (0x027a00)}, f99=41 25 00 20 00 4e 46 4f 54 58 ┆A% NFOTX┆}
0x27020…27040 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 ┆
0x27040…27060 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.┆
0x27060…27080 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: ┆
0x27080…270a0 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┆
0x270a0…270c0 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┆
0x270c0…270e0 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 ┆
0x270e0…27100 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: ┆
0x27100…27120 (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┆
0x27120…27140 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┆
0x27140…27160 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- ┆
0x27160…27180 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 ┆
0x27180…271a0 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- ┆
0x271a0…271c0 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┆
0x271c0…271e0 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┆
0x271e0…27200 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.┆
0x27200…27220 (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┆
0x27220…27240 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- ┆
0x27240…27260 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┆
0x27260…27280 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- ┆
0x27280…272a0 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 ┆ - ┆
0x272a0…272c0 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_┆
0x272c0…272e0 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- ┆
0x272e0…27300 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.┆
0x27300…27320 (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- ┆
0x27320…27340 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 ┆ - ┆
0x27340…27360 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- ┆
0x27360…27380 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 ┆ - ┆
0x27380…273a0 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┆
0x273a0…273c0 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. ┆
0x273c0…273e0 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┆
0x273e0…27400 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.@@----------- ┆
0x27400…27420 (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 ┆ ----------- -┆
0x27420…27440 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 ┆
0x27440…27460 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 ┆
0x27460…27480 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┆
0x27480…274a0 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: ┆
0x274a0…274c0 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Å┆
0x274c0…274e0 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 ┆
0x274e0…27500 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┆
0x27500…27520 (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┆
0x27520…27540 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┆
0x27540…27560 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┆
0x27560…27580 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.┆
0x27580…275a0 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 ┆
0x275a0…275c0 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┆
0x275c0…275e0 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 ┆
0x275e0…27600 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:┆
0x27600…27620 (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┆
0x27620…27640 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┆
0x27640…27660 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┆
0x27660…27680 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: ┆
0x27680…276a0 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┆
0x276a0…276c0 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┆
0x276c0…276e0 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┆
0x276e0…27700 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┆
0x27700…27720 (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┆
0x27720…27740 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 - ┆
0x27740…27760 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 ┆
0x27760…27780 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┆
0x27780…277a0 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 - ┆
0x277a0…277c0 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┆
0x277c0…277e0 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 - ┆
0x277e0…27800 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┆
0x27800…27820 (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 - ┆
0x27820…27840 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 ┆
0x27840…27860 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┆
0x27860…27880 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 - ┆
0x27880…278a0 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 ┆
0x278a0…278c0 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┆
0x278c0…278e0 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. ┆
0x278e0…27900 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.@@-----┆
0x27900…27920 (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 ┆------ -----------┆
0x27920…27940 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┆
0x27940…27960 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┆
0x27960…27980 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: ┆
0x27980…279a0 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 ┆
0x279a0…279c0 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┆
0x279c0…279e0 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: ┆
0x279e0…27a00 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┆
0x27a00…27a20 (19, 1, 12) ExtentHdr {name=»INFOTXT «, typ=»K«, seg=»C«, next=0x02, basis=0x000a, nextext={DA 0000,00 (0x-00100)}, prevext={DA 0027,01 (0x027000)}, nextfile={DA 0028,05 (0x028400)}, f99=41 25 00 20 00 4e 46 4f 54 58 ┆A% NFOTX┆}
0x27a20…27a40 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.┆
0x27a40…27a60 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:┆
0x27a60…27a80 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┆
0x27a80…27aa0 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 ┆
0x27aa0…27ac0 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. ┆
0x27ac0…27ae0 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┆
0x27ae0…27b00 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 - ┆
0x27b00…27b20 (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.┆
0x27b20…27b40 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 - ┆
0x27b40…27b60 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┆
0x27b60…27b80 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 ┆
0x27b80…27ba0 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┆
0x27ba0…27bc0 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┆
0x27bc0…27be0 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 - ┆
0x27be0…27c00 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┆
0x27c00…27c20 (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 - ┆
0x27c20…27c40 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┆
0x27c40…27c60 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- ┆
0x27c60…27c80 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. ┆
0x27c80…27ca0 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 % ┆
0x27ca0…27cc0 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.%% ┆
0x27cc0…27ce0 20 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 ┆ -------┆
0x27ce0…27d00 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 ┆
0x27d00…27d20 (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┆
0x27d20…27d40 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: ┆
0x27d40…27d60 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_┆
0x27d60…27d80 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┆
0x27d80…27da0 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┆
0x27da0…27dc0 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:┆
0x27dc0…27de0 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┆
0x27de0…27e00 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 ┆
0x27e00…27e20 (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┆
0x27e20…27e40 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┆
0x27e40…27e60 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┆
0x27e60…27e80 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 ┆
0x27e80…27ea0 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┆
0x27ea0…27ec0 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- ┆
0x27ec0…27ee0 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┆
0x27ee0…27f00 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 ┆
0x27f00…27f20 (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┆
0x27f20…27f40 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┆
0x27f40…27f60 63 63 63 63 63 63 63 63 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…]
0x28000…28100 (20, 0, 2) 0x63[0x100]
[…0x3…]
0x28400…28420 (20, 0, 6) ExtentHdr {name=»OVERFLAD«, typ=»K«, seg=»A«, next=0x00, basis=0x0003, nextext={DA 0000,00 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0028,08 (0x028700)}, f99=41 25 00 fe 00 4e 46 4f 54 58 ┆A% NFOTX┆}
0x28420…28440 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┆
0x28440…28460 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 -----------------------┆
0x28460…28480 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 ┆
0x28480…284a0 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:'┆
0x284a0…284c0 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 &┆
0x284c0…284e0 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┆
0x284e0…28500 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┆
0x28500…28520 (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┆
0x28520…28540 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┆
0x28540…28560 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: ┆
0x28560…28580 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┆
0x28580…285a0 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┆
0x285a0…285c0 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┆
0x285c0…285e0 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: #####┆
0x285e0…28600 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┆
0x28600…28620 (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┆
0x28620…28640 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: ┆
0x28640…28660 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┆
0x28660…28680 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┆
0x28680…286a0 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┆
0x286a0…286c0 63 63 63 63 63 63 63 63 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…]
0x28700…28720 (20, 0, 9) ExtentHdr {name=»TREKANT1«, typ=»K«, seg=»A«, next=0x01, basis=0x0002, nextext={DA 0028,0a (0x028900)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0028,0a (0x028900)}, f99=41 25 00 fe 00 4e 46 4f 54 58 ┆A% NFOTX┆}
0x28720…28740 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┆
0x28740…28760 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┆
0x28760…28780 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┆
0x28780…287a0 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- ┆
0x287a0…287c0 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┆
0x287c0…287e0 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┆
0x287e0…28800 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┆
0x28800…28820 (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: ";┆
0x28820…28840 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┆
0x28840…28860 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 ┆
0x28860…28880 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 ┆ =####.### ":┆
0x28880…288a0 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 ┆
0x288a0…288c0 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┆
0x288c0…288e0 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 ┆
0x288e0…28900 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=┆
0x28900…28920 (20, 0, 11) ExtentHdr {name=»TREKANT1«, typ=»K«, seg=»B«, next=0x01, basis=0x0002, nextext={DA 0000,00 (0x-00100)}, prevext={DA 0028,08 (0x028700)}, nextfile={DA 0028,0c (0x028b00)}, f99=41 25 00 20 00 4e 46 4f 54 58 ┆A% NFOTX┆}
0x28920…28940 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┆
0x28940…28960 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┆
0x28960…28980 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┆
0x28980…289a0 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- ┆
0x289a0…289c0 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┆
0x289c0…289e0 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┆
0x289e0…28a00 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┆
0x28a00…28b00 (20, 0, 12) 0x63[0x100]
0x28b00…28b20 (20, 0, 13) ExtentHdr {name=»STJERNER«, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0029,06 (0x029500)}, f99=41 25 00 fe 00 4e 46 4f 54 58 ┆A% NFOTX┆}
0x28b20…28b40 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 // -----------------------┆
0x28b40…28b60 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 ------------------┆
0x28b60…28b80 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┆
0x28b80…28ba0 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,┆
0x28ba0…28bc0 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┆
0x28bc0…28be0 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┆
0x28be0…28c00 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┆
0x28c00…28c20 (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$ ┆
0x28c20…28c40 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┆
0x28c40…28c60 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┆
0x28c60…28c80 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 ┆
0x28c80…28ca0 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┆
0x28ca0…28cc0 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┆
0x28cc0…28ce0 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┆
0x28ce0…28d00 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 "----------┆
0x28d00…28d20 (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 ┆--------------------------------┆
0x28d20…28d40 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┆
0x28d40…28d60 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┆
0x28d60…28d80 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: ┆
0x28d80…28da0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x28da0…28dc0 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┆
0x28dc0…28de0 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å ┆
0x28de0…28e00 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┆
0x28e00…28e20 (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┆
0x28e20…28e40 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┆
0x28e40…28e60 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,┆
0x28e60…28e80 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┆
0x28e80…28ea0 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$=┆
0x28ea0…28ec0 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┆
0x28ec0…28ee0 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┆
0x28ee0…28f00 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 ┆
0x28f00…28f20 (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 ┆
0x28f20…28f40 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 ┆
0x28f40…28f60 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 ┆
0x28f60…28f80 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┆
0x28f80…28fa0 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┆
0x28fa0…28fc0 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."┆
0x28fc0…28fe0 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 /┆
0x28fe0…29000 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┆
0x29000…29020 (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: ┆
0x29020…29040 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┆
0x29040…29060 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 ┆
0x29060…29080 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 "┆
0x29080…290a0 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┆
0x290a0…290c0 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 ┆
0x290c0…290e0 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┆
0x290e0…29100 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┆
0x29100…29120 (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"┆
0x29120…29140 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,┆
0x29140…29160 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┆
0x29160…29180 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 ┆
0x29180…291a0 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 Ø┆
0x291a0…291c0 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┆
0x291c0…291e0 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┆
0x291e0…29200 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┆
0x29200…29220 (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┆
0x29220…29240 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┆
0x29240…29260 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┆
0x29260…29280 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┆
0x29280…292a0 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┆
0x292a0…292c0 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 ┆
0x292c0…292e0 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",┆
0x292e0…29300 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┆
0x29300…29320 (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┆
0x29320…29340 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┆
0x29340…29360 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,┆
0x29360…29380 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 ┆
0x29380…293a0 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"," ┆
0x293a0…293c0 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┆
0x293c0…293e0 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 ┆
0x293e0…29400 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┆
0x29400…29420 (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 ┆
0x29420…29440 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 "(+┆
0x29440…29460 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 ┆
0x29460…29480 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┆
0x29480…294a0 63 63 63 63 63 63 63 63 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…]
0x29500…29520 (20, 1, 7) ExtentHdr {name=»EKSMD1 «, typ=»K«, seg=»A«, next=0x01, basis=0x0003, nextext={DA 0029,09 (0x029800)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0029,09 (0x029800)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x29520…29540 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┆
0x29540…29560 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┆
0x29560…29580 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 ┆
0x29580…295a0 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 /┆
0x295a0…295c0 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┆
0x295c0…295e0 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┆
0x295e0…29600 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┆
0x29600…29620 (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┆
0x29620…29640 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┆
0x29640…29660 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┆
0x29660…29680 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┆
0x29680…296a0 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┆
0x296a0…296c0 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┆
0x296c0…296e0 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┆
0x296e0…29700 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┆
0x29700…29720 (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┆
0x29720…29740 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┆
0x29740…29760 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:=┆
0x29760…29780 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:┆
0x29780…297a0 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┆
0x297a0…297c0 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┆
0x297c0…297e0 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┆
0x297e0…29800 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┆
0x29800…29820 (20, 1, 10) ExtentHdr {name=»EKSMD1 «, typ=»K«, seg=»B«, next=0x01, basis=0x0003, nextext={DA 0000,00 (0x-00100)}, prevext={DA 0029,06 (0x029500)}, nextfile={DA 0029,0c (0x029b00)}, f99=00 00 00 20 00 00 00 00 00 00 ┆ ┆}
0x29820…29840 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: "┆
0x29840…29860 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┆
0x29860…29880 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 ┆
0x29880…298a0 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 /┆
0x298a0…298c0 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┆
0x298c0…298e0 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┆
0x298e0…29900 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┆
0x29900…29a00 (20, 1, 11) 0x63[0x100]
[…0x1…]
0x29b00…29b20 (20, 1, 13) ExtentHdr {name=»RENTE «, typ=»K«, seg=»A«, next=0x00, basis=0x0004, nextext={DA 0000,00 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 002a,00 (0x029f00)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x29b20…29b40 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┆
0x29b40…29b60 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 ---------------------------┆
0x29b60…29b80 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 // -----------┆
0x29b80…29ba0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x29ba0…29bc0 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┆
0x29bc0…29be0 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┆
0x29be0…29c00 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┆
0x29c00…29c20 (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: ┆
0x29c20…29c40 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┆
0x29c40…29c60 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: ┆
0x29c60…29c80 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┆
0x29c80…29ca0 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: ┆
0x29ca0…29cc0 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┆
0x29cc0…29ce0 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┆
0x29ce0…29d00 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+┆
0x29d00…29d20 (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┆
0x29d20…29d40 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┆
0x29d40…29d60 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┆
0x29d60…29d80 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 "-----------------------┆
0x29d80…29da0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x29da0…29dc0 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┆
0x29dc0…29de0 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┆
0x29de0…29e00 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┆
0x29e00…29e20 (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 "=======================┆
0x29e20…29e40 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 ┆================================┆
0x29e40…29e60 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┆
0x29e60…29e80 63 63 63 63 63 63 63 63 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…]
0x29f00…29f20 (21, 0, 1) ExtentHdr {name=»MAX «, typ=»K«, seg=»A«, next=0x00, basis=0x0003, nextext={DA 0000,00 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 002a,03 (0x02a200)}, f99=41 2a 00 fe 00 00 00 00 00 00 ┆A* ┆}
0x29f20…29f40 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 // -----------------------┆
0x29f40…29f60 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 -------------------------┆
0x29f60…29f80 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)┆
0x29f80…29fa0 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┆
0x29fa0…29fc0 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 ┆
0x29fc0…29fe0 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 /┆
0x29fe0…2a000 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 ┆/ ------------------------------┆
0x2a000…2a020 (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┆
0x2a020…2a040 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┆
0x2a040…2a060 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 ┆
0x2a060…2a080 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 = ";┆
0x2a080…2a0a0 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 ┆
0x2a0a0…2a0c0 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┆
0x2a0c0…2a0e0 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┆
0x2a0e0…2a100 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┆
0x2a100…2a120 (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: ┆
0x2a120…2a140 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┆
0x2a140…2a160 63 63 63 63 63 63 63 63 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…]
0x2a200…2a220 (21, 0, 4) ExtentHdr {name=»TRIGONOM«, typ=»K«, seg=»A«, next=0x00, basis=0x0003, nextext={DA 0000,00 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 002a,06 (0x02a500)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x2a220…2a240 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 // -----------------------┆
0x2a240…2a260 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 ----------------┆
0x2a260…2a280 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┆
0x2a280…2a2a0 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┆
0x2a2a0…2a2c0 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┆
0x2a2c0…2a2e0 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┆
0x2a2e0…2a300 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┆
0x2a300…2a320 (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 // ┆
0x2a320…2a340 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┆
0x2a340…2a360 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┆
0x2a360…2a380 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┆
0x2a380…2a3a0 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┆
0x2a3a0…2a3c0 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┆
0x2a3c0…2a3e0 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┆
0x2a3e0…2a400 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 ┆
0x2a400…2a420 (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(┆
0x2a420…2a440 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┆
0x2a440…2a460 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┆
0x2a460…2a480 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) =####.┆
0x2a480…2a4a0 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┆
0x2a4a0…2a4c0 63 63 63 63 63 63 63 63 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…]
0x2a500…2a520 (21, 0, 7) ExtentHdr {name=»DEMOSEKV«, typ=»K«, seg=»A«, next=0x01, basis=0x000a, nextext={DA 002b,00 (0x02af00)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 002b,00 (0x02af00)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x2a520…2a540 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 // -----------------------┆
0x2a540…2a560 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 -----------------┆
0x2a560…2a580 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┆
0x2a580…2a5a0 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┆
0x2a5a0…2a5c0 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┆
0x2a5c0…2a5e0 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┆
0x2a5e0…2a600 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┆
0x2a600…2a620 (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┆
0x2a620…2a640 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 ┆
0x2a640…2a660 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 // ┆
0x2a660…2a680 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┆
0x2a680…2a6a0 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┆
0x2a6a0…2a6c0 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┆
0x2a6c0…2a6e0 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┆
0x2a6e0…2a700 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┆
0x2a700…2a720 (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 " ------------------------┆
0x2a720…2a740 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2a740…2a760 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┆
0x2a760…2a780 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┆
0x2a780…2a7a0 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 " ----------------┆
0x2a7a0…2a7c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2a7c0…2a7e0 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┆
0x2a7e0…2a800 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.┆
0x2a800…2a820 (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 ┆
0x2a820…2a840 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┆
0x2a840…2a860 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┆
0x2a860…2a880 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┆
0x2a880…2a8a0 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┆
0x2a8a0…2a8c0 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 " ┆
0x2a8c0…2a8e0 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.........┆
0x2a8e0…2a900 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 ┆
0x2a900…2a920 (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┆
0x2a920…2a940 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┆
0x2a940…2a960 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┆
0x2a960…2a980 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┆
0x2a980…2a9a0 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┆
0x2a9a0…2a9c0 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 ┆
0x2a9c0…2a9e0 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."$┆
0x2a9e0…2aa00 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┆
0x2aa00…2aa20 (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┆
0x2aa20…2aa40 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┆
0x2aa40…2aa60 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 : ┆
0x2aa60…2aa80 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┆
0x2aa80…2aaa0 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 ┆
0x2aaa0…2aac0 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┆
0x2aac0…2aae0 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┆
0x2aae0…2ab00 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┆
0x2ab00…2ab20 (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 "-------┆
0x2ab20…2ab40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2ab40…2ab60 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┆
0x2ab60…2ab80 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┆
0x2ab80…2aba0 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: ";┆
0x2aba0…2abc0 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 ┆
0x2abc0…2abe0 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: ┆
0x2abe0…2ac00 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┆
0x2ac00…2ac20 (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┆
0x2ac20…2ac40 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: ┆
0x2ac40…2ac60 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┆
0x2ac60…2ac80 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: ┆
0x2ac80…2aca0 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┆
0x2aca0…2acc0 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$/┆
0x2acc0…2ace0 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 "Ø┆
0x2ace0…2ad00 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$┆
0x2ad00…2ad20 (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┆
0x2ad20…2ad40 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┆
0x2ad40…2ad60 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 // ┆
0x2ad60…2ad80 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┆
0x2ad80…2ada0 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┆
0x2ada0…2adc0 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┆
0x2adc0…2ade0 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┆
0x2ade0…2ae00 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┆
0x2ae00…2ae20 (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: ┆
0x2ae20…2ae40 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: ┆
0x2ae40…2ae60 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┆
0x2ae60…2ae80 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 "________________┆
0x2ae80…2aea0 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 ┆________________________________┆
0x2aea0…2aec0 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 "_┆
0x2aec0…2aee0 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┆
0x2aee0…2af00 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┆
0x2af00…2af20 (21, 1, 1) ExtentHdr {name=»DEMOSEKV«, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0000,00 (0x-00100)}, prevext={DA 002a,06 (0x02a500)}, nextfile={DA 002b,0a (0x02b900)}, f99=00 00 00 20 00 00 00 00 00 00 ┆ ┆}
0x2af20…2af40 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(┆
0x2af40…2af60 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┆
0x2af60…2af80 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┆
0x2af80…2afa0 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┆
0x2afa0…2afc0 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$,┆
0x2afc0…2afe0 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┆
0x2afe0…2b000 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┆
0x2b000…2b020 (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 ┆
0x2b020…2b040 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┆
0x2b040…2b060 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 ┆
0x2b060…2b080 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┆
0x2b080…2b0a0 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┆
0x2b0a0…2b0c0 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┆
0x2b0c0…2b0e0 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 ┆
0x2b0e0…2b100 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(┆
0x2b100…2b120 (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┆
0x2b120…2b140 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-┆
0x2b140…2b160 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┆
0x2b160…2b180 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┆
0x2b180…2b1a0 63 63 63 63 63 63 63 63 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…]
0x2b200…2b300 (21, 1, 4) 0x63[0x100]
[…0x6…]
0x2b900…2b920 (21, 1, 11) ExtentHdr {name=»OVERFL2 «, typ=»K«, seg=»A«, next=0x01, basis=0x000a, nextext={DA 002c,04 (0x02c300)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 002c,04 (0x02c300)}, f99=41 2b 00 fe 00 00 00 00 00 00 ┆A+ ┆}
0x2b920…2b940 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 // ---------------------- ┆
0x2b940…2b960 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 -----------------------┆
0x2b960…2b980 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┆
0x2b980…2b9a0 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┆
0x2b9a0…2b9c0 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┆
0x2b9c0…2b9e0 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┆
0x2b9e0…2ba00 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 "--┆
0x2ba00…2ba20 (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 ┆--------------------------------┆
0x2ba20…2ba40 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.┆
0x2ba40…2ba60 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┆
0x2ba60…2ba80 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.┆
0x2ba80…2baa0 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." ┆
0x2baa0…2bac0 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 ┆
0x2bac0…2bae0 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 ┆
0x2bae0…2bb00 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┆
0x2bb00…2bb20 (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 ┆
0x2bb20…2bb40 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 // -----------┆
0x2bb40…2bb60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2bb60…2bb80 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 ┆
0x2bb80…2bba0 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┆
0x2bba0…2bbc0 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┆
0x2bbc0…2bbe0 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┆
0x2bbe0…2bc00 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 ┆
0x2bc00…2bc20 (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┆
0x2bc20…2bc40 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┆
0x2bc40…2bc60 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┆
0x2bc60…2bc80 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┆
0x2bc80…2bca0 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: ┆
0x2bca0…2bcc0 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┆
0x2bcc0…2bce0 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┆
0x2bce0…2bd00 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 ;┆
0x2bd00…2bd20 (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┆
0x2bd20…2bd40 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┆
0x2bd40…2bd60 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┆
0x2bd60…2bd80 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┆
0x2bd80…2bda0 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┆
0x2bda0…2bdc0 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┆
0x2bdc0…2bde0 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┆
0x2bde0…2be00 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: "┆
0x2be00…2be20 (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┆
0x2be20…2be40 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: ┆
0x2be40…2be60 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┆
0x2be60…2be80 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┆
0x2be80…2bea0 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 ;┆
0x2bea0…2bec0 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┆
0x2bec0…2bee0 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┆
0x2bee0…2bf00 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┆
0x2bf00…2bf20 (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 ┆
0x2bf20…2bf40 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┆
0x2bf40…2bf60 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┆
0x2bf60…2bf80 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: ┆
0x2bf80…2bfa0 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┆
0x2bfa0…2bfc0 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┆
0x2bfc0…2bfe0 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┆
0x2bfe0…2c000 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┆
0x2c000…2c020 (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 ┆
0x2c020…2c040 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:┆
0x2c040…2c060 20 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┆
0x2c060…2c080 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: ┆
0x2c080…2c0a0 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┆
0x2c0a0…2c0c0 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: ┆
0x2c0c0…2c0e0 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┆
0x2c0e0…2c100 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 ┆
0x2c100…2c120 (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┆
0x2c120…2c140 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┆
0x2c140…2c160 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┆
0x2c160…2c180 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┆
0x2c180…2c1a0 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┆
0x2c1a0…2c1c0 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┆
0x2c1c0…2c1e0 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 ┆
0x2c1e0…2c200 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┆
0x2c200…2c220 (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┆
0x2c220…2c240 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┆
0x2c240…2c260 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┆
0x2c260…2c280 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┆
0x2c280…2c2a0 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: ┆
0x2c2a0…2c2c0 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┆
0x2c2c0…2c2e0 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: ┆
0x2c2e0…2c300 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┆
0x2c300…2c320 (22, 0, 5) ExtentHdr {name=»OVERFL2 «, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0000,00 (0x-00100)}, prevext={DA 002b,0a (0x02b900)}, nextfile={DA 002c,0e (0x02cd00)}, f99=41 2b 00 20 00 00 00 00 00 00 ┆A+ ┆}
0x2c320…2c340 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: ┆
0x2c340…2c360 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┆
0x2c360…2c380 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: ┆
0x2c380…2c3a0 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┆
0x2c3a0…2c3c0 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: ┆
0x2c3c0…2c3e0 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┆
0x2c3e0…2c400 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┆
0x2c400…2c420 (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┆
0x2c420…2c440 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┆
0x2c440…2c460 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┆
0x2c460…2c480 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┆
0x2c480…2c4a0 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 "┆
0x2c4a0…2c4c0 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: ┆
0x2c4c0…2c4e0 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┆
0x2c4e0…2c500 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┆
0x2c500…2c520 (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┆
0x2c520…2c540 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┆
0x2c540…2c560 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┆
0x2c560…2c580 63 63 63 63 63 63 63 63 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…]
0x2c600…2c700 (22, 0, 8) 0x63[0x100]
[…0x6…]
0x2cd00…2cd20 (22, 0, 15) ExtentHdr {name=»EXAMEN «, typ=»K«, seg=»A«, next=0x00, basis=0x0007, nextext={DA 0000,00 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 002d,05 (0x02d400)}, f99=41 2b 00 fe 00 58 41 4d 45 4e ┆A+ XAMEN┆}
0x2cd20…2cd40 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 // -----------------------┆
0x2cd40…2cd60 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 ---------------------┆
0x2cd60…2cd80 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 ┆
0x2cd80…2cda0 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┆
0x2cda0…2cdc0 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┆
0x2cdc0…2cde0 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┆
0x2cde0…2ce00 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 ┆
0x2ce00…2ce20 (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+'┆
0x2ce20…2ce40 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┆
0x2ce40…2ce60 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┆
0x2ce60…2ce80 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┆
0x2ce80…2cea0 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┆
0x2cea0…2cec0 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┆
0x2cec0…2cee0 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┆
0x2cee0…2cf00 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┆
0x2cf00…2cf20 (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┆
0x2cf20…2cf40 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 "---------------------┆
0x2cf40…2cf60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2cf60…2cf80 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 *┆
0x2cf80…2cfa0 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: ┆
0x2cfa0…2cfc0 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┆
0x2cfc0…2cfe0 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: ┆
0x2cfe0…2d000 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 ┆
0x2d000…2d020 (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: ";┆
0x2d020…2d040 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┆
0x2d040…2d060 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' ┆
0x2d060…2d080 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┆
0x2d080…2d0a0 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┆
0x2d0a0…2d0c0 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┆
0x2d0c0…2d0e0 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┆
0x2d0e0…2d100 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┆
0x2d100…2d120 (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 ┆
0x2d120…2d140 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: ┆
0x2d140…2d160 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┆
0x2d160…2d180 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: ┆
0x2d180…2d1a0 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┆
0x2d1a0…2d1c0 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: ┆
0x2d1c0…2d1e0 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 ┆
0x2d1e0…2d200 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: ";┆
0x2d200…2d220 (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┆
0x2d220…2d240 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(┆
0x2d240…2d260 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:=(┆
0x2d260…2d280 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)/┆
0x2d280…2d2a0 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┆
0x2d2a0…2d2c0 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: ###┆
0x2d2c0…2d2e0 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┆
0x2d2e0…2d300 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┆
0x2d300…2d320 (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┆
0x2d320…2d340 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┆
0x2d340…2d360 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┆
0x2d360…2d380 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┆
0x2d380…2d3a0 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┆
0x2d3a0…2d3c0 63 63 63 63 63 63 63 63 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…]
0x2d400…2d420 (22, 1, 6) ExtentHdr {name=»FORKORT «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 002d,0f (0x02de00)}, f99=41 2b 00 fe 00 58 41 4d 45 4e ┆A+ XAMEN┆}
0x2d420…2d440 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┆
0x2d440…2d460 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 -------------------------┆
0x2d460…2d480 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 ┆
0x2d480…2d4a0 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) ┆
0x2d4a0…2d4c0 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:=┆
0x2d4c0…2d4e0 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┆
0x2d4e0…2d500 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 ┆
0x2d500…2d520 (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┆
0x2d520…2d540 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┆
0x2d540…2d560 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┆
0x2d560…2d580 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┆
0x2d580…2d5a0 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┆
0x2d5a0…2d5c0 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┆
0x2d5c0…2d5e0 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┆
0x2d5e0…2d600 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: "┆
0x2d600…2d620 (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 ┆
0x2d620…2d640 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;┆
0x2d640…2d660 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┆
0x2d660…2d680 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┆
0x2d680…2d6a0 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┆
0x2d6a0…2d6c0 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┆
0x2d6c0…2d6e0 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 ┆
0x2d6e0…2d700 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┆
0x2d700…2d720 (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;"/";┆
0x2d720…2d740 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┆
0x2d740…2d760 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 ┆
0x2d760…2d780 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) ┆
0x2d780…2d7a0 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:=┆
0x2d7a0…2d7c0 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┆
0x2d7c0…2d7e0 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 ┆
0x2d7e0…2d800 63 63 63 63 63 63 63 63 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┆
0x2d800…2d900 (22, 1, 10) 0x63[0x100]
[…0x5…]
0x2de00…2de20 (22, 1, 16) ExtentHdr {name=»DIVISORE«, typ=»K«, seg=»A«, next=0x00, basis=0x0002, nextext={DA 0000,00 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 002e,01 (0x02e000)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x2de20…2de40 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 // ---------------------- ┆
0x2de40…2de60 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┆
0x2de60…2de80 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 ┆
0x2de80…2dea0 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┆
0x2dea0…2dec0 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 ┆
0x2dec0…2dee0 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:=┆
0x2dee0…2df00 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┆
0x2df00…2df20 (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 ┆
0x2df20…2df40 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 ┆
0x2df40…2df60 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 ┆
0x2df60…2df80 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 ┆
0x2df80…2dfa0 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(┆
0x2dfa0…2dfc0 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┆
0x2dfc0…2dfe0 63 63 63 63 63 63 63 63 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…]
0x2e000…2e020 (23, 0, 2) ExtentHdr {name=»PANTEBRE«, typ=»K«, seg=»A«, next=0x01, basis=0x000a, nextext={DA 002e,0b (0x02ea00)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 002e,0b (0x02ea00)}, f99=41 2e 00 fe 00 00 00 00 00 00 ┆A. ┆}
0x2e020…2e040 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 // -----------------------┆
0x2e040…2e060 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 -------------------┆
0x2e060…2e080 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┆
0x2e080…2e0a0 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 ┆
0x2e0a0…2e0c0 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$:=" ######.## ┆
0x2e0c0…2e0e0 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 ┆ #########.## #########.┆
0x2e0e0…2e100 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┆
0x2e100…2e120 (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 ┆
0x2e120…2e140 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┆
0x2e140…2e160 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┆
0x2e160…2e180 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: ┆
0x2e180…2e1a0 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┆
0x2e1a0…2e1c0 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┆
0x2e1c0…2e1e0 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: ┆
0x2e1e0…2e200 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┆
0x2e200…2e220 (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: ┆
0x2e220…2e240 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┆
0x2e240…2e260 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┆
0x2e260…2e280 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: ┆
0x2e280…2e2a0 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┆
0x2e2a0…2e2c0 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å┆
0x2e2c0…2e2e0 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) ┆
0x2e2e0…2e300 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┆
0x2e300…2e320 (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┆
0x2e320…2e340 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┆
0x2e340…2e360 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: ┆
0x2e360…2e380 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┆
0x2e380…2e3a0 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┆
0x2e3a0…2e3c0 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┆
0x2e3c0…2e3e0 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 ┆
0x2e3e0…2e400 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 " ┆
0x2e400…2e420 (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: #######┆
0x2e420…2e440 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┆
0x2e440…2e460 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: ####┆
0x2e460…2e480 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 ┆
0x2e480…2e4a0 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: ┆
0x2e4a0…2e4c0 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┆
0x2e4c0…2e4e0 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: ┆
0x2e4e0…2e500 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┆
0x2e500…2e520 (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 "┆
0x2e520…2e540 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: ┆
0x2e540…2e560 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 ┆
0x2e560…2e580 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┆
0x2e580…2e5a0 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 " ----------┆
0x2e5a0…2e5c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2e5c0…2e5e0 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┆
0x2e5e0…2e600 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 " ┆
0x2e600…2e620 (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 ┆
0x2e620…2e640 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"┆
0x2e640…2e660 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" ┆
0x2e660…2e680 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 "-------------------┆
0x2e680…2e6a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2e6a0…2e6c0 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 "----┆
0x2e6c0…2e6e0 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┆
0x2e6e0…2e700 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*┆
0x2e700…2e720 (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┆
0x2e720…2e740 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 ┆
0x2e740…2e760 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┆
0x2e760…2e780 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┆
0x2e780…2e7a0 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┆
0x2e7a0…2e7c0 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┆
0x2e7c0…2e7e0 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┆
0x2e7e0…2e800 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┆
0x2e800…2e820 (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 "#┆
0x2e820…2e840 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┆
0x2e840…2e860 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 ┆
0x2e860…2e880 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┆
0x2e880…2e8a0 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:=┆
0x2e8a0…2e8c0 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┆
0x2e8c0…2e8e0 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┆
0x2e8e0…2e900 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┆
0x2e900…2e920 (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 "####┆
0x2e920…2e940 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┆
0x2e940…2e960 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┆
0x2e960…2e980 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┆
0x2e980…2e9a0 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┆
0x2e9a0…2e9c0 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┆
0x2e9c0…2e9e0 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┆
0x2e9e0…2ea00 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┆
0x2ea00…2ea20 (23, 0, 12) ExtentHdr {name=»PANTEBRE«, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0000,00 (0x-00100)}, prevext={DA 002e,01 (0x02e000)}, nextfile={DA 002f,05 (0x02f400)}, f99=41 2e 00 20 00 00 00 00 00 00 ┆A. ┆}
0x2ea20…2ea40 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┆
0x2ea40…2ea60 63 63 63 63 63 63 63 63 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…]
0x2eb00…2ec00 (23, 0, 13) 0x63[0x100]
[…0x8…]
0x2f400…2f420 (23, 1, 6) ExtentHdr {name=»REJSEBUR«, typ=»K«, seg=»A«, next=0x01, basis=0x000a, nextext={DA 002f,0f (0x02fe00)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 002f,0f (0x02fe00)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x2f420…2f440 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 // -----------------------┆
0x2f440…2f460 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 -------------------┆
0x2f460…2f480 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┆
0x2f480…2f4a0 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┆
0x2f4a0…2f4c0 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 //┆
0x2f4c0…2f4e0 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┆
0x2f4e0…2f500 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;┆
0x2f500…2f520 (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┆
0x2f520…2f540 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┆
0x2f540…2f560 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 /┆
0x2f560…2f580 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┆
0x2f580…2f5a0 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 ┆
0x2f5a0…2f5c0 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┆
0x2f5c0…2f5e0 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' ">┆
0x2f5e0…2f600 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 "--┆
0x2f600…2f620 (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 ┆--------------------------------┆
0x2f620…2f640 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,┆
0x2f640…2f660 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 ┆
0x2f660…2f680 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┆
0x2f680…2f6a0 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 "------------┆
0x2f6a0…2f6c0 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┆
0x2f6c0…2f6e0 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 -┆
0x2f6e0…2f700 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┆
0x2f700…2f720 (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┆
0x2f720…2f740 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 -┆
0x2f740…2f760 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┆
0x2f760…2f780 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 ø┆
0x2f780…2f7a0 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$┆
0x2f7a0…2f7c0 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 ┆
0x2f7c0…2f7e0 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┆
0x2f7e0…2f800 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<┆
0x2f800…2f820 (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┆
0x2f820…2f840 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┆
0x2f840…2f860 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┆
0x2f860…2f880 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┆
0x2f880…2f8a0 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┆
0x2f8a0…2f8c0 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┆
0x2f8c0…2f8e0 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┆
0x2f8e0…2f900 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┆
0x2f900…2f920 (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┆
0x2f920…2f940 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┆
0x2f940…2f960 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┆
0x2f960…2f980 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┆
0x2f980…2f9a0 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┆
0x2f9a0…2f9c0 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┆
0x2f9c0…2f9e0 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┆
0x2f9e0…2fa00 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┆
0x2fa00…2fa20 (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 ┆
0x2fa20…2fa40 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 ┆
0x2fa40…2fa60 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 ┆
0x2fa60…2fa80 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 ┆
0x2fa80…2faa0 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 ┆
0x2faa0…2fac0 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┆
0x2fac0…2fae0 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 "----------┆
0x2fae0…2fb00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2fb00…2fb20 (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┆
0x2fb20…2fb40 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┆
0x2fb40…2fb60 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┆
0x2fb60…2fb80 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: ┆
0x2fb80…2fba0 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┆
0x2fba0…2fbc0 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┆
0x2fbc0…2fbe0 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: ┆
0x2fbe0…2fc00 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┆
0x2fc00…2fc20 (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┆
0x2fc20…2fc40 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: ";┆
0x2fc40…2fc60 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┆
0x2fc60…2fc80 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 ┆
0x2fc80…2fca0 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 ┆
0x2fca0…2fcc0 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 "Ø┆
0x2fcc0…2fce0 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/┆
0x2fce0…2fd00 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$=┆
0x2fd00…2fd20 (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┆
0x2fd20…2fd40 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 ┆
0x2fd40…2fd60 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┆
0x2fd60…2fd80 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 ┆
0x2fd80…2fda0 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 ┆
0x2fda0…2fdc0 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? ┆
0x2fdc0…2fde0 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┆
0x2fde0…2fe00 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┆
0x2fe00…2fe20 (23, 1, 16) ExtentHdr {name=»REJSEBUR«, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0000,00 (0x-00100)}, prevext={DA 002f,05 (0x02f400)}, nextfile={DA 0030,09 (0x030800)}, f99=00 00 00 20 00 00 00 00 00 00 ┆ ┆}
0x2fe20…2fe40 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┆
0x2fe40…2fe60 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┆
0x2fe60…2fe80 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┆
0x2fe80…2fea0 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┆
0x2fea0…2fec0 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┆
0x2fec0…2fee0 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┆
0x2fee0…2ff00 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┆
0x2ff00…2ff20 (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 " ┆
0x2ff20…2ff40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2ff40…2ff60 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 ┆
0x2ff60…2ff80 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 . ┆
0x2ff80…2ffa0 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 ┆
0x2ffa0…2ffc0 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┆
0x2ffc0…2ffe0 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┆
0x2ffe0…30000 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┆
0x30000…30020 (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,┆
0x30020…30040 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┆
0x30040…30060 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┆
0x30060…30080 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 "┆
0x30080…300a0 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┆
0x300a0…300c0 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"┆
0x300c0…300e0 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┆
0x300e0…30100 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┆
0x30100…30120 (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 ┆
0x30120…30140 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┆
0x30140…30160 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┆
0x30160…30180 63 63 63 63 63 63 63 63 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…]
0x30200…30300 (24, 0, 4) 0x63[0x100]
[…0x5…]
0x30800…30820 (24, 0, 10) ExtentHdr {name=»AFSTAND «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0031,03 (0x031200)}, f99=41 30 00 fe 00 00 00 00 00 00 ┆A0 ┆}
0x30820…30840 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 // -----------------------┆
0x30840…30860 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 ---------------------┆
0x30860…30880 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┆
0x30880…308a0 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┆
0x308a0…308c0 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 ┆
0x308c0…308e0 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┆
0x308e0…30900 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 ┆
0x30900…30920 (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,┆
0x30920…30940 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 ┆
0x30940…30960 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 "┆
0x30960…30980 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 .┆
0x30980…309a0 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 ┆
0x309a0…309c0 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 ┆" _____________________________┆
0x309c0…309e0 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 ┆
0x309e0…30a00 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 ┆
0x30a00…30a20 (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┆
0x30a20…30a40 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┆
0x30a40…30a60 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┆
0x30a60…30a80 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┆
0x30a80…30aa0 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┆
0x30aa0…30ac0 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┆
0x30ac0…30ae0 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┆
0x30ae0…30b00 20 20 20 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┆
0x30b00…30b20 (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┆
0x30b20…30b40 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┆
0x30b40…30b60 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,┆
0x30b60…30b80 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┆
0x30b80…30ba0 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┆
0x30ba0…30bc0 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┆
0x30bc0…30be0 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┆
0x30be0…30c00 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┆
0x30c00…30c20 (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┆
0x30c20…30c40 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 ┆
0x30c40…30c60 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((┆
0x30c60…30c80 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┆
0x30c80…30ca0 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┆
0x30ca0…30cc0 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┆
0x30cc0…30ce0 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┆
0x30ce0…30d00 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┆
0x30d00…30d20 (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 ┆
0x30d20…30d40 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┆
0x30d40…30d60 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┆
0x30d60…30d80 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$┆
0x30d80…30da0 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┆
0x30da0…30dc0 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┆
0x30dc0…30de0 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 // ------┆
0x30de0…30e00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x30e00…30e20 (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┆
0x30e20…30e40 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┆
0x30e40…30e60 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┆
0x30e60…30e80 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 "-------------┆
0x30e80…30ea0 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┆
0x30ea0…30ec0 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┆
0x30ec0…30ee0 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┆
0x30ee0…30f00 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┆
0x30f00…30f20 (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┆
0x30f20…30f40 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┆
0x30f40…30f60 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┆
0x30f60…30f80 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┆
0x30f80…30fa0 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┆
0x30fa0…30fc0 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┆
0x30fc0…30fe0 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┆
0x30fe0…31000 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 ┆
0x31000…31020 (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┆
0x31020…31040 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┆
0x31040…31060 63 63 63 63 63 63 63 63 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…]
0x31100…31200 (24, 1, 3) 0x63[0x100]
0x31200…31220 (24, 1, 4) ExtentHdr {name=»ANDENGR2«, typ=»K«, seg=»A«, next=0x00, basis=0x0006, nextext={DA 0000,00 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0031,09 (0x031800)}, f99=41 30 00 fe 00 4e 44 45 4e 47 ┆A0 NDENG┆}
0x31220…31240 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 // -----------------------┆
0x31240…31260 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 -------------------┆
0x31260…31280 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┆
0x31280…312a0 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┆
0x312a0…312c0 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┆
0x312c0…312e0 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,┆
0x312e0…31300 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┆
0x31300…31320 (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┆
0x31320…31340 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 "--------------------------┆
0x31340…31360 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 ┆
0x31360…31380 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: ┆
0x31380…313a0 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:┆
0x313a0…313c0 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┆
0x313c0…313e0 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: ┆
0x313e0…31400 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 // -------┆
0x31400…31420 (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 ┆--------------------------------┆
0x31420…31440 2d 2d 2d 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┆
0x31440…31460 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 // ┆
0x31460…31480 2d 2d 2d 2d 2d 2d 2d 2d 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…]
0x314a0…314c0 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┆
0x314c0…314e0 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 ┆
0x314e0…31500 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┆
0x31500…31520 (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=┆
0x31520…31540 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 =┆
0x31540…31560 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┆
0x31560…31580 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┆
0x31580…315a0 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┆
0x315a0…315c0 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 ┆
0x315c0…315e0 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:┆
0x315e0…31600 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┆
0x31600…31620 (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 = ┆
0x31620…31640 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┆
0x31640…31660 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┆
0x31660…31680 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 = ┆
0x31680…316a0 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┆
0x316a0…316c0 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┆
0x316c0…316e0 63 63 63 63 63 63 63 63 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…]
0x31700…31800 (24, 1, 9) 0x63[0x100]
0x31800…31820 (24, 1, 10) ExtentHdr {name=»ISENKRAM«, typ=»K«, seg=»A«, next=0x01, basis=0x000a, nextext={DA 0032,03 (0x032200)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0032,03 (0x032200)}, f99=41 30 00 fe 00 4e 44 45 4e 47 ┆A0 NDENG┆}
0x31820…31840 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æ┆
0x31840…31860 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┆
0x31860…31880 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┆
0x31880…318a0 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 '┆
0x318a0…318c0 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┆
0x318c0…318e0 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$ ┆
0x318e0…31900 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 // ┆
0x31900…31920 (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┆
0x31920…31940 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 ┆
0x31940…31960 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┆
0x31960…31980 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┆
0x31980…319a0 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┆
0x319a0…319c0 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 "----┆
0x319c0…319e0 2d 2d 2d 2d 2d 2d 2d 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 ┆-------------------------------"┆
0x319e0…31a00 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┆
0x31a00…31a20 (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: ┆
0x31a20…31a40 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┆
0x31a40…31a60 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: ┆
0x31a60…31a80 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┆
0x31a80…31aa0 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┆
0x31aa0…31ac0 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┆
0x31ac0…31ae0 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"┆
0x31ae0…31b00 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┆
0x31b00…31b20 (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)┆
0x31b20…31b40 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┆
0x31b40…31b60 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┆
0x31b60…31b80 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)┆
0x31b80…31ba0 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┆
0x31ba0…31bc0 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 ┆
0x31bc0…31be0 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┆
0x31be0…31c00 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/┆
0x31c00…31c20 (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┆
0x31c20…31c40 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┆
0x31c40…31c60 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 // --------------------┆
0x31c60…31c80 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┆
0x31c80…31ca0 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┆
0x31ca0…31cc0 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┆
0x31cc0…31ce0 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┆
0x31ce0…31d00 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 ┆
0x31d00…31d20 (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 ┆
0x31d20…31d40 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┆
0x31d40…31d60 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"=┆
0x31d60…31d80 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┆
0x31d80…31da0 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┆
0x31da0…31dc0 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 -┆
0x31dc0…31de0 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┆
0x31de0…31e00 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┆
0x31e00…31e20 (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┆
0x31e20…31e40 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,┆
0x31e40…31e60 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 :"┆
0x31e60…31e80 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 "┆
0x31e80…31ea0 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┆
0x31ea0…31ec0 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┆
0x31ec0…31ee0 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┆
0x31ee0…31f00 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 ┆
0x31f00…31f20 (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 "------------┆
0x31f20…31f40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x31f40…31f60 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┆
0x31f60…31f80 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 ┆
0x31f80…31fa0 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┆
0x31fa0…31fc0 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 ┆
0x31fc0…31fe0 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┆
0x31fe0…32000 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┆
0x32000…32020 (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 "##### #####"┆
0x32020…32040 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+┆
0x32040…32060 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┆
0x32060…32080 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 "--------------------┆
0x32080…320a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x320a0…320c0 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 "-----┆
0x320c0…320e0 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┆
0x320e0…32100 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┆
0x32100…32120 (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 "==┆
0x32120…32140 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 ┆================================┆
0x32140…32160 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┆
0x32160…32180 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┆
0x32180…321a0 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┆
0x321a0…321c0 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┆
0x321c0…321e0 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 ┆
0x321e0…32200 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┆
0x32200…32220 (25, 0, 4) ExtentHdr {name=»ISENKRAM«, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0000,00 (0x-00100)}, prevext={DA 0031,09 (0x031800)}, nextfile={DA 0032,0d (0x032c00)}, f99=41 30 00 20 00 4e 44 45 4e 47 ┆A0 NDENG┆}
0x32220…32240 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 "-----------------------┆
0x32240…32260 2d 2d 2d 2d 2d 2d 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┆
0x32260…32280 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┆
0x32280…322a0 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:",┆
0x322a0…322c0 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:┆
0x322c0…322e0 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┆
0x322e0…32300 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┆
0x32300…32320 (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┆
0x32320…32340 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$(┆
0x32340…32360 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┆
0x32360…32380 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┆
0x32380…323a0 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┆
0x323a0…323c0 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┆
0x323c0…323e0 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 // ------------------------┆
0x323e0…32400 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x32400…32420 (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┆
0x32420…32440 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$┆
0x32440…32460 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┆
0x32460…32480 63 63 63 63 63 63 63 63 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…]
0x32500…32600 (25, 0, 7) 0x63[0x100]
[…0x6…]
0x32c00…32c20 (25, 0, 14) ExtentHdr {name=»LØNSEDDE«, typ=»K«, seg=»A«, next=0x01, basis=0x000a, nextext={DA 0033,07 (0x033600)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0033,07 (0x033600)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x32c20…32c40 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 // -----------------------┆
0x32c40…32c60 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 -------------┆
0x32c60…32c80 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┆
0x32c80…32ca0 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┆
0x32ca0…32cc0 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┆
0x32cc0…32ce0 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┆
0x32ce0…32d00 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┆
0x32d00…32d20 (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┆
0x32d20…32d40 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┆
0x32d40…32d60 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┆
0x32d60…32d80 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" %┆
0x32d80…32da0 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 ┆
0x32da0…32dc0 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 // -----------------┆
0x32dc0…32de0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x32de0…32e00 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┆
0x32e00…32e20 (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 ┆
0x32e20…32e40 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 "┆
0x32e40…32e60 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…]
0x32e80…32ea0 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æ┆
0x32ea0…32ec0 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: ┆
0x32ec0…32ee0 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: ┆
0x32ee0…32f00 20 20 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┆
0x32f00…32f20 (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: ┆
0x32f20…32f40 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┆
0x32f40…32f60 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: ┆
0x32f60…32f80 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┆
0x32f80…32fa0 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 "____________________________┆
0x32fa0…32fc0 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 ┆________________________________┆
0x32fc0…32fe0 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: ┆
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 22 3b 41 46 44 45 4c 49 ┆ ";AFDELI┆
0x33000…33020 (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: ┆
0x33020…33040 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┆
0x33040…33060 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: ┆
0x33060…33080 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 ┆ ####.##"┆
0x33080…330a0 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 "__________┆
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 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┆
0x330e0…33100 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ø┆
0x33100…33120 (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: ####┆
0x33120…33140 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┆
0x33140…33160 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: ┆
0x33160…33180 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┆
0x33180…331a0 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┆
0x331a0…331c0 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: ########┆
0x331c0…331e0 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┆
0x331e0…33200 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;┆
0x33200…33220 (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: ┆
0x33220…33240 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┆
0x33240…33260 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: ┆
0x33260…33280 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. ┆
0x33280…332a0 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 "___________┆
0x332a0…332c0 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 ┆________________________________┆
0x332c0…332e0 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┆
0x332e0…33300 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 // ---------┆
0x33300…33320 (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 ┆--------------------------------┆
0x33320…33340 2d 2d 2d 2d 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┆
0x33340…33360 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┆
0x33360…33380 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┆
0x33380…333a0 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┆
0x333a0…333c0 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å ┆
0x333c0…333e0 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┆
0x333e0…33400 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 "-----┆
0x33400…33420 (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 ┆--------------------------------┆
0x33420…33440 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┆
0x33440…33460 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: ┆
0x33460…33480 20 20 20 20 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┆
0x33480…334a0 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: ┆
0x334a0…334c0 20 20 20 20 20 20 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 ┆ ":┆
0x334c0…334e0 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: ┆
0x334e0…33500 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33500…33520 (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 ┆
0x33520…33540 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: ┆
0x33540…33560 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┆
0x33560…33580 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: ┆
0x33580…335a0 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 "┆
0x335a0…335c0 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) ┆
0x335c0…335e0 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┆
0x335e0…33600 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: ┆
0x33600…33620 (25, 1, 8) ExtentHdr {name=»LØNSEDDE«, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0000,00 (0x-00100)}, prevext={DA 0032,0d (0x032c00)}, nextfile={DA 0034,01 (0x034000)}, f99=00 00 00 20 00 00 00 00 00 00 ┆ ┆}
0x33620…33640 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┆
0x33640…33660 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) ┆
0x33660…33680 20 20 20 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┆
0x33680…336a0 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: ┆
0x336a0…336c0 20 20 20 20 20 20 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 ┆ ":┆
0x336c0…336e0 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┆
0x336e0…33700 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 ┆
0x33700…33720 (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┆
0x33720…33740 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 ┆
0x33740…33760 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┆
0x33760…33780 63 63 63 63 63 63 63 63 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…]
0x33800…33900 (25, 1, 10) 0x63[0x100]
[…0x7…]
0x34000…34020 (26, 0, 2) ExtentHdr {name=»SPARTXT «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0034,0b (0x034a00)}, f99=41 34 00 ff 00 00 00 00 00 00 ┆A4 ┆}
0x34020…34040 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 ┆
0x34040…34060 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┆
0x34060…34080 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┆
0x34080…340a0 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å┆
0x340a0…340c0 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. ┆
0x340c0…340e0 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┆
0x340e0…34100 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, ┆
0x34100…34120 (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┆
0x34120…34140 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┆
0x34140…34160 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┆
0x34160…34180 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┆
0x34180…341a0 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┆
0x341a0…341c0 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┆
0x341c0…341e0 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┆
0x341e0…34200 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(┆
0x34200…34220 (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┆
0x34220…34240 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$ ┆
0x34240…34260 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┆
0x34260…34280 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┆
0x34280…342a0 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$ ┆
0x342a0…342c0 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┆
0x342c0…342e0 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 ┆
0x342e0…34300 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┆
0x34300…34320 (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) ┆
0x34320…34340 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┆
0x34340…34360 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┆
0x34360…34380 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 ┆
0x34380…343a0 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 ┆
0x343a0…343c0 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┆
0x343c0…343e0 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┆
0x343e0…34400 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┆
0x34400…34420 (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┆
0x34420…34440 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┆
0x34440…34460 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┆
0x34460…34480 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┆
0x34480…344a0 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┆
0x344a0…344c0 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┆
0x344c0…344e0 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 ┆
0x344e0…34500 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 ┆
0x34500…34520 (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. ┆
0x34520…34540 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┆
0x34540…34560 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┆
0x34560…34580 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 ┆
0x34580…345a0 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┆
0x345a0…345c0 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┆
0x345c0…345e0 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. *┆
0x345e0…34600 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.┆
0x34600…34620 (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┆
0x34620…34640 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┆
0x34640…34660 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. ┆
0x34660…34680 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 ┆
0x34680…346a0 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┆
0x346a0…346c0 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┆
0x346c0…346e0 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 ┆
0x346e0…34700 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 ┆
0x34700…34720 (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 ┆
0x34720…34740 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 ┆
0x34740…34760 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 ┆
0x34760…34780 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┆
0x34780…347a0 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┆
0x347a0…347c0 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 ┆
0x347c0…347e0 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 ┆
0x347e0…34800 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 ┆
0x34800…34820 (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 ü ┆
0x34820…34840 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 ┆
0x34840…34860 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 ┆
0x34860…34880 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 ┆
0x34880…348a0 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 ┆
0x348a0…348c0 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┆
0x348c0…348e0 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 ┆
0x348e0…34900 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 ┆
0x34900…34920 (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 ┆
0x34920…34940 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 ┆
0x34940…34960 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┆
0x34960…34980 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 ┆
0x34980…349a0 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 ┆
0x349a0…349c0 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┆
0x349c0…349e0 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 ┆
0x349e0…34a00 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┆
0x34a00…34a20 (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 ┆
0x34a20…34a40 00 00 00 00 00 00 00 00 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…]
0x34b00…34c00 (26, 0, 13) 0x63[0x100]
[…0x1b3…]