|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: 5 A B C D E F H I K L M O P R S T U V ░
Length: 327424 (0x4ff00)
Description: Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
Types: 5¼" Floppy Disk, ImdContainer
| f04 | f09 | basis | postl | type | name | artifact |
|---|---|---|---|---|---|---|
| 10 | 254 | K | AFBET_RE | ⟦c3097a000⟧ TextFile, Mikados TextFile, Mikados_K | ||
| mangled | AFSTAND | «none» | ||||
| A0 | 10 | 254 | K | AFSTAND | ⟦25f6b5e1c⟧ Mikados TextFile, Mikados_K | |
| 5 | 254 | K | ANDENGR1 | ⟦e7bce4638⟧ TextFile, Mikados TextFile, Mikados_K | ||
| mangled | ANDENGR2 | «none» | ||||
| A0 | NDENG | 6 | 254 | K | ANDENGR2 | ⟦2a4fb49b3⟧ Mikados TextFile, Mikados_K |
| A | 1 | 254 | K | ANTILOG | ⟦7eeb5fa3d⟧ Mikados TextFile, Mikados_K | |
| 5 | 254 | K | BIBLIOTE | ⟦aea588a40⟧ TextFile, Mikados TextFile, Mikados_K | ||
| A | ENTEF | 5 | 254 | K | BINÆR_2 | ⟦357f61f8d⟧ Mikados TextFile, Mikados_K |
| 10 | 254 | K | BISECTIO | ⟦54c9aa82d⟧ TextFile, Mikados TextFile, Mikados_K | ||
| mangled | CIRKEL | «none» | ||||
| A# | IRKEL | 3 | 254 | K | CIRKEL | ⟦7a224858d⟧ Mikados TextFile, Mikados_K |
| A | 4 | 254 | K | COS_RELA | ⟦23e914f6f⟧ Mikados TextFile, Mikados_K | |
| 10 | 255 | K | DEMOFIL | ⟦8a49278dd⟧ Mikados TextFile, Mikados_K | ||
| mangled | DEMOSEKV | «none» | ||||
| 10 | 254 | K | DEMO_4 | ⟦05b176b47⟧ Mikados TextFile, Mikados_K | ||
| mangled | DIVISORE | «none» | ||||
| 2 | 254 | K | DIVISORE | ⟦7268bb2c9⟧ Mikados TextFile, Mikados_K | ||
| mangled | EKSMD1 | «none» | ||||
| A | FD | 10 | 255 | K | ETOILES | ⟦ccdec7847⟧ Mikados TextFile, Mikados_K |
| mangled | EXAMEN | «none» | ||||
| A+ | XAMEN | 7 | 254 | K | EXAMEN | ⟦d443df153⟧ Mikados TextFile, Mikados_K |
| A | 10 | 254 | K | FLETNING | ⟦ffd7f00d0⟧ Mikados TextFile, Mikados_K | |
| mangled | FORKORT | «none» | ||||
| A+ | XAMEN | 10 | 254 | K | FORKORT | ⟦1d70c8cea⟧ TextFile, Mikados TextFile, Mikados_K |
| A | 10 | 254 | K | FREKVENS | ⟦d50a65c14⟧ Mikados TextFile, Mikados_K | |
| 6 | 254 | K | FUNC_HER | ⟦5c88083f8⟧ TextFile, Mikados TextFile, Mikados_K | ||
| mangled | FÆLLESDI | «none» | ||||
| A" | 10 | 254 | K | FÆLLESDI | ⟦b10896795⟧ Mikados TextFile, Mikados_K | |
| A | ERON3 | 8 | 254 | K | HERON3 | ⟦0b6844ceb⟧ TextFile, Mikados TextFile, Mikados_K |
| A | OPIDI | 3 | 254 | K | HUNDREDE | ⟦465bb4f33⟧ Mikados TextFile, Mikados_K |
| A | 10 | 254 | K | INFO | ⟦827cfa6a6⟧ TextFile, Mikados TextFile, Mikados_K | |
| mangled | INFOTXT | «none» | ||||
| mangled | ISENKRAM | «none» | ||||
| mangled | KARTOTEK | «none» | ||||
| mangled | KOPI | «none» | ||||
| 10 | 255 | K | KOPI | ⟦8a49278dd⟧ Mikados TextFile, Mikados_K | ||
| A | OPIDI | 10 | 254 | K | KOPIDIR | ⟦244945575⟧ Mikados TextFile, Mikados_K |
| 10 | 254 | K | KORRELAT | ⟦8e5d6cac8⟧ Mikados TextFile, Mikados_K | ||
| mangled | LAGER | «none» | ||||
| A" | AGER | 10 | 255 | K | LAGER | ⟦1e68ef694⟧ Mikados TextFile, Mikados_K |
| mangled | LIGE_ULI | «none» | ||||
| A# | 3 | 254 | K | LIGE_ULI | ⟦244a8dca3⟧ Mikados TextFile, Mikados_K | |
| mangled | LOWSCORE | «none» | ||||
| mangled | LØNSEDDE | «none» | ||||
| mangled | MAX | «none» | ||||
| A* | 3 | 254 | K | MAX | ⟦ad29608da⟧ TextFile, Mikados TextFile, Mikados_K | |
| A | AX_MI | 4 | 254 | K | MAX_MIN | ⟦f836e03b6⟧ Mikados TextFile, Mikados_K |
| A | AMME | 10 | 254 | K | OVERFL1 | ⟦551aa7d15⟧ TextFile, Mikados TextFile, Mikados_K |
| mangled | OVERFL2 | «none» | ||||
| mangled | OVERFLAD | «none» | ||||
| A% | NFOTX | 3 | 254 | K | OVERFLAD | ⟦c775fa500⟧ Mikados TextFile, Mikados_K |
| A | AX_MI | 5 | 254 | K | PAKKEPOS | ⟦4681aeeff⟧ TextFile, Mikados TextFile, Mikados_K |
| mangled | PANTEBRE | «none» | ||||
| A | 10 | 254 | K | PERSONNU | ⟦53cbce649⟧ TextFile, Mikados TextFile, Mikados_K | |
| mangled | POSTTAK2 | «none» | ||||
| A | AMME | 2 | 254 | K | RAMME | ⟦563a13752⟧ Mikados TextFile, Mikados_K |
| 10 | 254 | K | REJSEB2 | ⟦bf7175821⟧ Mikados TextFile, Mikados_K | ||
| mangled | REJSEBUR | «none» | ||||
| mangled | RENTE | «none» | ||||
| 4 | 254 | K | RENTE | ⟦b160f65fd⟧ Mikados TextFile, Mikados_K | ||
| A | ENTEF | 3 | 254 | K | RENTEFOD | ⟦0b440cd11⟧ Mikados TextFile, Mikados_K |
| A | 8 | 254 | K | RETTEFIL | ⟦b06d22371⟧ Mikados TextFile, Mikados_K | |
| A | UMFAN | 10 | 254 | K | RUMFANG3 | ⟦da4ce190f⟧ Mikados_K |
| 10 | 254 | K | SCORE | ⟦7dba16c82⟧ TextFile, Mikados TextFile, Mikados_K | ||
| A | FD | 1 | 254 | K | SFD | ⟦7741b263e⟧ Mikados TextFile, Mikados_K |
| mangled | SPARTXT | «none» | ||||
| A4 | 10 | 255 | K | SPARTXT | ⟦b9d8cfb45⟧ Mikados TextFile, Mikados_K | |
| A | PIL1_ | 8 | 254 | K | SPIL1_KO | ⟦6800fcaaf⟧ Mikados TextFile, Mikados_K |
| mangled | STJERN2 | «none» | ||||
| A# | IRKEL | 10 | 254 | K | STJERN2 | ⟦a0a2380a2⟧ Mikados TextFile, Mikados_K |
| mangled | STJERNER | «none» | ||||
| A% | NFOTX | 10 | 254 | K | STJERNER | ⟦0a16b48b1⟧ Mikados TextFile, Mikados_K |
| A | 10 | 254 | K | STOPUR | ⟦9e6ad8ea5⟧ Mikados TextFile, Mikados_K | |
| A | 10 | 254 | K | STYRTLØB | ⟦cf0551a73⟧ Mikados TextFile, Mikados_K | |
| mangled | SYSBÅND | «none» | ||||
| 27 | 168 | K | SYSBÅND | ⟦4a4f5bfed⟧ Mikados_K | ||
| 27 | 168 | K | SYSBÅND2 | ⟦8ae1151eb⟧ Mikados_K | ||
| 34 | 255 | K | TELEFON | ⟦f21e49a8d⟧ Mikados TextFile, Mikados_K | ||
| mangled | TESTFIL | «none» | ||||
| 10 | 255 | K | TESTFIL | ⟦0093f1eba⟧ Mikados TextFile, Mikados_K | ||
| A | 19 | 95 | K | TESTFIL2 | ⟦779773457⟧ Mikados_K | |
| A | 3 | 254 | K | TOPPKT1 | ⟦1791e07a3⟧ Mikados TextFile, Mikados_K | |
| mangled | TREKANT1 | «none» | ||||
| A | OPIDI | 3 | 254 | K | TREKANT3 | ⟦162c5b07e⟧ Mikados TextFile, Mikados_K |
| mangled | TRIGONOM | «none» | ||||
| 3 | 254 | K | TRIGONOM | ⟦4ff4dc8a6⟧ Mikados TextFile, Mikados_K | ||
| A | DLAND | 8 | 254 | K | UDLAND | ⟦df0c5ebab⟧ Mikados TextFile, Mikados_K |
| mangled | VESTER | «none» | ||||
| A% | 19 | 95 | K | VESTER | ⟦5fa9b20ab⟧ Mikados_K | |
| A4 | 10 | 255 | K | ░PARTXT | ⟦b3ef0c995⟧ Mikados_K, Mikados_L, Mikados_P |
0x00000…00030 (0, 0, 1) DiskLabel {plidn=»PLADELAGER«, ledig={DA 0034,0b (0x034b00)}, plart=»MIK «, pldto=»1981.06.12«, plbtg=»DDE «, pluda=» «}
0x00030…00040 1f 00 02 10 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00040…00060 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x5…]
0x00100…00200 (0, 0, 2) EmptyDirSect
[…0x7…]
0x00900…00a00 (0, 0, 10) DirSect {
0x00900…00a00 dent = [ // 0x900 @0x0
0x00900…00a00 [0x00]: DirEnt {name=»BIBLIOTE«, typ=»K«, seg=»A«, seg0={DA 0004,01 (0x004100)}}
0x00900…00a00 [0x01]: DirEnt {name=»COS_RELA«, typ=»K«, seg=»A«, seg0={DA 0004,0b (0x004b00)}}
0x00900…00a00 ]
0x00900…00a00 }
0x00a00…00b00 (0, 0, 11) EmptyDirSect
0x00b00…00c00 (0, 0, 12) DirSect {
0x00b00…00c00 dent = [ // 0xb00 @0x0
0x00b00…00c00 [0x00]: DirEnt {name=»DEMO_4 «, typ=»K«, seg=»A«, seg0={DA 0005,03 (0x005300)}}
0x00b00…00c00 [0x01]: DirEnt {name=»RETTEFIL«, typ=»K«, seg=»A«, seg0={DA 0005,0d (0x005d00)}}
0x00b00…00c00 [0x02]: DirEnt {name=»KOPIDIR «, typ=»K«, seg=»A«, seg0={DA 0006,05 (0x006500)}}
0x00b00…00c00 [0x03]: DirEnt {name=»TREKANT3«, typ=»K«, seg=»A«, seg0={DA 0006,0f (0x006f00)}}
0x00b00…00c00 [0x04]: DirEnt {name=»HUNDREDE«, typ=»K«, seg=»A«, seg0={DA 0007,02 (0x007200)}}
0x00b00…00c00 ]
0x00b00…00c00 }
0x00c00…00d00 (0, 0, 13) EmptyDirSect
0x00d00…00e00 (0, 0, 14) DirSect {
0x00d00…00e00 dent = [ // 0xd00 @0x0
0x00d00…00e00 [0x00]: DirEnt {name=»AFBET_RE«, typ=»K«, seg=»A«, seg0={DA 0007,05 (0x007500)}}
0x00d00…00e00 [0x01]: DirEnt {name=»FREKVENS«, typ=»K«, seg=»A«, seg0={DA 0007,0f (0x007f00)}}
0x00d00…00e00 [0x02]: DirEnt {name=»HERON3 «, typ=»K«, seg=»A«, seg0={DA 0008,09 (0x008900)}}
0x00d00…00e00 ]
0x00d00…00e00 }
0x00e00…00f00 (0, 0, 15) EmptyDirSect
0x00f00…01000 (0, 0, 16) DirSect {
0x00f00…01000 dent = [ // 0xf00 @0x0
0x00f00…01000 [0x00]: DirEnt {name=»ANDENGR1«, typ=»K«, seg=»A«, seg0={DA 0009,09 (0x009900)}}
0x00f00…01000 ]
0x00f00…01000 }
0x01000…01100 (0, 1, 1) EmptyDirSect
[…0x2…]
0x01300…01400 (0, 1, 4) DirSect {
0x01300…01400 dent = [ // 0x1300 @0x0
0x01300…01400 [0x00]: DirEnt {name=»SYSBÅND2«, typ=»K«, seg=»A«, seg0={DA 0009,0e (0x009e00)}}
0x01300…01400 [0x01]: DirEnt {name=»TOPPKT1 «, typ=»K«, seg=»A«, seg0={DA 000b,09 (0x00b900)}}
0x01300…01400 [0x02]: DirEnt {name=»SPIL1_KO«, typ=»K«, seg=»A«, seg0={DA 000b,0c (0x00bc00)}}
0x01300…01400 ]
0x01300…01400 }
0x01400…01500 (0, 1, 5) EmptyDirSect
0x01500…01600 (0, 1, 6) DirSect {
0x01500…01600 dent = [ // 0x1500 @0x0
0x01500…01600 [0x00]: DirEnt {name=»FUNC_HER«, typ=»K«, seg=»A«, seg0={DA 000c,04 (0x00c400)}}
0x01500…01600 [0x01]: DirEnt {name=»TESTFIL2«, typ=»K«, seg=»A«, seg0={DA 000c,0a (0x00ca00)}}
0x01500…01600 [0x02]: DirEnt {name=»UDLAND «, typ=»K«, seg=»A«, seg0={DA 000d,0d (0x00dd00)}}
0x01500…01600 ]
0x01500…01600 }
0x01600…01700 (0, 1, 7) EmptyDirSect
0x01700…01800 (0, 1, 8) DirSect {
0x01700…01800 dent = [ // 0x1700 @0x0
0x01700…01800 [0x00]: DirEnt {name=»DEMOFIL «, typ=»K«, seg=»A«, seg0={DA 000e,0d (0x00ed00)}}
0x01700…01800 [0x01]: DirEnt {name=»FLETNING«, typ=»K«, seg=»A«, seg0={DA 000f,07 (0x00f700)}}
0x01700…01800 [0x02]: DirEnt {name=»RAMME «, typ=»K«, seg=»A«, seg0={DA 0010,01 (0x010100)}}
0x01700…01800 [0x03]: DirEnt {name=»OVERFL1 «, typ=»K«, seg=»A«, seg0={DA 0010,03 (0x010300)}}
0x01700…01800 ]
0x01700…01800 }
0x01800…01900 (0, 1, 9) EmptyDirSect
0x01900…01a00 (0, 1, 10) DirSect {
0x01900…01a00 dent = [ // 0x1900 @0x0
0x01900…01a00 [0x00]: DirEnt {name=»BISECTIO«, typ=»K«, seg=»A«, seg0={DA 0011,07 (0x011700)}}
0x01900…01a00 [0x01]: DirEnt {name=»STYRTLØB«, typ=»K«, seg=»A«, seg0={DA 0012,01 (0x012100)}}
0x01900…01a00 [0x02]: DirEnt {name=»MAX_MIN «, typ=»K«, seg=»A«, seg0={DA 0012,0b (0x012b00)}}
0x01900…01a00 [0x03]: DirEnt {name=»PAKKEPOS«, typ=»K«, seg=»A«, seg0={DA 0012,0f (0x012f00)}}
0x01900…01a00 ]
0x01900…01a00 }
0x01a00…01b00 (0, 1, 11) EmptyDirSect
0x01b00…01c00 (0, 1, 12) DirSect {
0x01b00…01c00 dent = [ // 0x1b00 @0x0
0x01b00…01c00 [0x00]: DirEnt {name=»REJSEB2 «, typ=»K«, seg=»A«, seg0={DA 0013,09 (0x013900)}}
0x01b00…01c00 [0x01]: DirEnt {name=»STOPUR «, typ=»K«, seg=»A«, seg0={DA 0014,0d (0x014d00)}}
0x01b00…01c00 [0x02]: DirEnt {name=»RENTEFOD«, typ=»K«, seg=»A«, seg0={DA 0015,07 (0x015700)}}
0x01b00…01c00 [0x03]: DirEnt {name=»BINÆR_2 «, typ=»K«, seg=»A«, seg0={DA 0015,0a (0x015a00)}}
0x01b00…01c00 ]
0x01b00…01c00 }
0x01c00…01d00 (0, 1, 13) EmptyDirSect
0x01d00…01e00 (0, 1, 14) DirSect {
0x01d00…01e00 dent = [ // 0x1d00 @0x0
0x01d00…01e00 [0x00]: DirEnt {name=»KORRELAT«, typ=»K«, seg=»A«, seg0={DA 0016,04 (0x016400)}}
0x01d00…01e00 [0x01]: DirEnt {name=»INFO «, typ=»K«, seg=»A«, seg0={DA 0017,08 (0x017800)}}
0x01d00…01e00 [0x02]: DirEnt {name=»SFD «, typ=»K«, seg=»A«, seg0={DA 0018,02 (0x018200)}}
0x01d00…01e00 [0x03]: DirEnt {name=»ETOILES «, typ=»K«, seg=»A«, seg0={DA 0018,03 (0x018300)}}
0x01d00…01e00 ]
0x01d00…01e00 }
0x01e00…01f00 (0, 1, 15) EmptyDirSect
0x01f00…02000 (0, 1, 16) DirSect {
0x01f00…02000 dent = [ // 0x1f00 @0x0
0x01f00…02000 [0x00]: DirEnt {name=»SCORE «, typ=»K«, seg=»A«, seg0={DA 0018,0d (0x018d00)}}
0x01f00…02000 [0x01]: DirEnt {name=»ANTILOG «, typ=»K«, seg=»A«, seg0={DA 0019,07 (0x019700)}}
0x01f00…02000 ]
0x01f00…02000 }
0x02000…02100 (1, 0, 1) EmptyDirSect
0x02100…02200 (1, 0, 2) DirSect {
0x02100…02200 dent = [ // 0x2100 @0x0
0x02100…02200 [0x00]: DirEnt {name=»TELEFON «, typ=»K«, seg=»A«, seg0={DA 0019,09 (0x019900)}}
0x02100…02200 [0x01]: DirEnt {name=»PERSONNU«, typ=»K«, seg=»A«, seg0={DA 001b,0b (0x01bb00)}}
0x02100…02200 [0x02]: DirEnt {name=»RUMFANG3«, typ=»K«, seg=»A«, seg0={DA 001c,05 (0x01c500)}}
0x02100…02200 ]
0x02100…02200 }
0x02200…02300 (1, 0, 3) EmptyDirSect
0x02300…02400 (1, 0, 4) DirSect {
0x02300…02400 dent = [ // 0x2300 @0x0
0x02300…02400 [0x00]: DirEnt {name=»KARTOTEK«, typ=»K«, seg=»A«, seg0={DA 001e,03 (0x01e300)}}
0x02300…02400 [0x01]: DirEnt {name=»POSTTAK2«, typ=»K«, seg=»A«, seg0={DA 001f,07 (0x01f700)}}
0x02300…02400 ]
0x02300…02400 }
0x02400…02500 (1, 0, 5) EmptyDirSect
[…0x2…]
0x02700…02800 (1, 0, 8) DirSect {
0x02700…02800 dent = [ // 0x2700 @0x0
0x02700…02800 [0x00]: DirEnt {name=»SYSBÅND «, typ=»K«, seg=»A«, seg0={DA 001f,0f (0x01ff00)}}
0x02700…02800 ]
0x02700…02800 }
0x02800…02900 (1, 0, 9) EmptyDirSect
0x02900…02a00 (1, 0, 10) DirSect {
0x02900…02a00 dent = [ // 0x2900 @0x0
0x02900…02a00 [0x00]: DirEnt {name=»TESTFIL «, typ=»K«, seg=»A«, seg0={DA 0021,0a (0x021a00)}}
0x02900…02a00 [0x01]: DirEnt {name=»FÆLLESDI«, typ=»K«, seg=»A«, seg0={DA 0022,04 (0x022400)}}
0x02900…02a00 [0x02]: DirEnt {name=»LAGER «, typ=»K«, seg=»A«, seg0={DA 0022,0e (0x022e00)}}
0x02900…02a00 ]
0x02900…02a00 }
0x02a00…02b00 (1, 0, 11) EmptyDirSect
[…0x2…]
0x02d00…02e00 (1, 0, 14) DirSect {
0x02d00…02e00 dent = [ // 0x2d00 @0x0
0x02d00…02e00 [0x00]: DirEnt {name=»LOWSCORE«, typ=»K«, seg=»A«, seg0={DA 0023,08 (0x023800)}}
0x02d00…02e00 [0x01]: DirEnt {name=»LIGE_ULI«, typ=»K«, seg=»A«, seg0={DA 0023,0a (0x023a00)}}
0x02d00…02e00 [0x02]: DirEnt {name=»CIRKEL «, typ=»K«, seg=»A«, seg0={DA 0023,0d (0x023d00)}}
0x02d00…02e00 [0x03]: DirEnt {name=»STJERN2 «, typ=»K«, seg=»A«, seg0={DA 0024,00 (0x024000)}}
0x02d00…02e00 ]
0x02d00…02e00 }
0x02e00…02f00 (1, 0, 15) EmptyDirSect
0x02f00…03000 (1, 0, 16) DirSect {
0x02f00…03000 dent = [ // 0x2f00 @0x0
0x02f00…03000 [0x00]: DirEnt {name=»KOPI «, typ=»K«, seg=»A«, seg0={DA 0024,0a (0x024a00)}}
0x02f00…03000 [0x01]: DirEnt {name=»VESTER «, typ=»K«, seg=»A«, seg0={DA 0025,04 (0x025400)}}
0x02f00…03000 [0x02]: DirEnt {name=»INFOTXT «, typ=»K«, seg=»A«, seg0={DA 0026,07 (0x026700)}}
0x02f00…03000 [0x03]: DirEnt {name=»OVERFLAD«, typ=»K«, seg=»A«, seg0={DA 0028,05 (0x028500)}}
0x02f00…03000 [0x04]: DirEnt {name=»TREKANT1«, typ=»K«, seg=»A«, seg0={DA 0028,08 (0x028800)}}
0x02f00…03000 [0x05]: DirEnt {name=»STJERNER«, typ=»K«, seg=»A«, seg0={DA 0028,0c (0x028c00)}}
0x02f00…03000 ]
0x02f00…03000 }
0x03000…03100 (1, 1, 1) EmptyDirSect
0x03100…03200 (1, 1, 2) DirSect {
0x03100…03200 dent = [ // 0x3100 @0x0
0x03100…03200 [0x00]: DirEnt {name=»EKSMD1 «, typ=»K«, seg=»A«, seg0={DA 0029,06 (0x029600)}}
0x03100…03200 ]
0x03100…03200 }
0x03200…03300 (1, 1, 3) EmptyDirSect
0x03300…03400 (1, 1, 4) DirSect {
0x03300…03400 dent = [ // 0x3300 @0x0
0x03300…03400 [0x00]: DirEnt {name=»RENTE «, typ=»K«, seg=»A«, seg0={DA 0029,0c (0x029c00)}}
0x03300…03400 [0x01]: DirEnt {name=»MAX «, typ=»K«, seg=»A«, seg0={DA 002a,00 (0x02a000)}}
0x03300…03400 ]
0x03300…03400 }
0x03400…03500 (1, 1, 5) EmptyDirSect
[…0x2…]
0x03700…03800 (1, 1, 8) DirSect {
0x03700…03800 dent = [ // 0x3700 @0x0
0x03700…03800 [0x00]: DirEnt {name=»TRIGONOM«, typ=»K«, seg=»A«, seg0={DA 002a,03 (0x02a300)}}
0x03700…03800 ]
0x03700…03800 }
0x03800…03900 (1, 1, 9) EmptyDirSect
0x03900…03a00 (1, 1, 10) DirSect {
0x03900…03a00 dent = [ // 0x3900 @0x0
0x03900…03a00 [0x00]: DirEnt {name=»DEMOSEKV«, typ=»K«, seg=»A«, seg0={DA 002a,06 (0x02a600)}}
0x03900…03a00 [0x01]: DirEnt {name=»OVERFL2 «, typ=»K«, seg=»A«, seg0={DA 002b,0a (0x02ba00)}}
0x03900…03a00 [0x02]: DirEnt {name=»EXAMEN «, typ=»K«, seg=»A«, seg0={DA 002c,0e (0x02ce00)}}
0x03900…03a00 [0x03]: DirEnt {name=»FORKORT «, typ=»K«, seg=»A«, seg0={DA 002d,05 (0x02d500)}}
0x03900…03a00 ]
0x03900…03a00 }
0x03a00…03b00 (1, 1, 11) EmptyDirSect
0x03b00…03c00 (1, 1, 12) DirSect {
0x03b00…03c00 dent = [ // 0x3b00 @0x0
0x03b00…03c00 [0x00]: DirEnt {name=»DIVISORE«, typ=»K«, seg=»A«, seg0={DA 002d,0f (0x02df00)}}
0x03b00…03c00 [0x01]: DirEnt {name=»PANTEBRE«, typ=»K«, seg=»A«, seg0={DA 002e,01 (0x02e100)}}
0x03b00…03c00 ]
0x03b00…03c00 }
0x03c00…03d00 (1, 1, 13) EmptyDirSect
0x03d00…03e00 (1, 1, 14) DirSect {
0x03d00…03e00 dent = [ // 0x3d00 @0x0
0x03d00…03e00 [0x00]: DirEnt {name=»REJSEBUR«, typ=»K«, seg=»A«, seg0={DA 002f,05 (0x02f500)}}
0x03d00…03e00 [0x01]: DirEnt {name=»AFSTAND «, typ=»K«, seg=»A«, seg0={DA 0030,09 (0x030900)}}
0x03d00…03e00 [0x02]: DirEnt {name=»ANDENGR2«, typ=»K«, seg=»A«, seg0={DA 0031,03 (0x031300)}}
0x03d00…03e00 [0x03]: DirEnt {name=»ISENKRAM«, typ=»K«, seg=»A«, seg0={DA 0031,09 (0x031900)}}
0x03d00…03e00 ]
0x03d00…03e00 }
0x03e00…03f00 (1, 1, 15) EmptyDirSect
0x03f00…04000 (1, 1, 16) DirSect {
0x03f00…04000 dent = [ // 0x3f00 @0x0
0x03f00…04000 [0x00]: DirEnt {name=»LØNSEDDE«, typ=»K«, seg=»A«, seg0={DA 0032,0d (0x032d00)}}
0x03f00…04000 [0x01]: DirEnt {name=»SPARTXT «, typ=»K«, seg=»A«, seg0={DA 0034,01 (0x034100)}}
0x03f00…04000 ]
0x03f00…04000 }
0x04000…04100 (2, 0, 1) EmptyDirSect
0x04100…04120 (2, 0, 2) ExtentHdr {name=»BIBLIOTE«, typ=»K«, seg=»A«, next=0x01, basis=0x0005, nextext={DA 0004,06 (0x004600)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0004,06 (0x004600)}, f04=» «, postl=0x00fe, f99=» «}
0x04120…04600 Extent[0x4e0]
0x04600…04620 (2, 0, 7) ExtentHdr {name=»BIBLIOTE«, typ=»K«, seg=»B«, next=0x01, basis=0x0005, nextext={DA 0000,00 (0x000000)}, prevext={DA 0004,01 (0x004100)}, nextfile={DA 0004,0b (0x004b00)}, f04=» «, postl=0x0020, f99=» «}
0x04620…04b00 Extent[0x4e0]
0x04b00…04b20 (2, 0, 12) ExtentHdr {name=»COS_RELA«, typ=»K«, seg=»A«, next=0x01, basis=0x0004, nextext={DA 0004,0f (0x004f00)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0004,0f (0x004f00)}, f04=»A «, postl=0x00fe, f99=» «}
0x04b20…04f00 Extent[0x3e0]
0x04f00…04f20 (2, 0, 16) ExtentHdr {name=»COS_RELA«, typ=»K«, seg=»B«, next=0x01, basis=0x0004, nextext={DA 0000,00 (0x000000)}, prevext={DA 0004,0b (0x004b00)}, nextfile={DA 0005,03 (0x005300)}, f04=»A «, postl=0x0020, f99=» «}
0x04f20…05300 Extent[0x3e0]
0x05300…05320 (2, 1, 4) ExtentHdr {name=»DEMO_4 «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0005,0d (0x005d00)}, f04=» «, postl=0x00fe, f99=» «}
0x05320…05d00 Extent[0x9e0]
0x05d00…05d20 (2, 1, 14) ExtentHdr {name=»RETTEFIL«, typ=»K«, seg=»A«, next=0x00, basis=0x0008, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0006,05 (0x006500)}, f04=»A «, postl=0x00fe, f99=» «}
0x05d20…06500 Extent[0x7e0]
0x06500…06520 (3, 0, 6) ExtentHdr {name=»KOPIDIR «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0006,0f (0x006f00)}, f04=»A «, postl=0x00fe, f99=»OPIDI«}
0x06520…06f00 Extent[0x9e0]
0x06f00…06f20 (3, 0, 16) ExtentHdr {name=»TREKANT3«, typ=»K«, seg=»A«, next=0x00, basis=0x0003, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0007,02 (0x007200)}, f04=»A «, postl=0x00fe, f99=»OPIDI«}
0x06f20…07200 Extent[0x2e0]
0x07200…07220 (3, 1, 3) ExtentHdr {name=»HUNDREDE«, typ=»K«, seg=»A«, next=0x00, basis=0x0003, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0007,05 (0x007500)}, f04=»A «, postl=0x00fe, f99=»OPIDI«}
0x07220…07500 Extent[0x2e0]
0x07500…07520 (3, 1, 6) ExtentHdr {name=»AFBET_RE«, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0007,0f (0x007f00)}, f04=» «, postl=0x00fe, f99=» «}
0x07520…07f00 Extent[0x9e0]
0x07f00…07f20 (3, 1, 16) ExtentHdr {name=»FREKVENS«, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0008,09 (0x008900)}, f04=»A «, postl=0x00fe, f99=» «}
0x07f20…08900 Extent[0x9e0]
0x08900…08920 (4, 0, 10) ExtentHdr {name=»HERON3 «, typ=»K«, seg=»A«, next=0x01, basis=0x0008, nextext={DA 0009,01 (0x009100)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0009,01 (0x009100)}, f04=»A «, postl=0x00fe, f99=»ERON3«}
0x08920…09100 Extent[0x7e0]
0x09100…09120 (4, 1, 2) ExtentHdr {name=»HERON3 «, typ=»K«, seg=»B«, next=0x01, basis=0x0008, nextext={DA 0000,00 (0x000000)}, prevext={DA 0008,09 (0x008900)}, nextfile={DA 0009,09 (0x009900)}, f04=»A «, postl=0x0020, f99=»ERON3«}
0x09120…09900 Extent[0x7e0]
0x09900…09920 (4, 1, 10) ExtentHdr {name=»ANDENGR1«, typ=»K«, seg=»A«, next=0x00, basis=0x0005, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0009,0e (0x009e00)}, f04=» «, postl=0x00fe, f99=» «}
0x09920…09e00 Extent[0x4e0]
0x09e00…09e20 (4, 1, 15) ExtentHdr {name=»SYSBÅND2«, typ=»K«, seg=»A«, next=0x00, basis=0x001b, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 000b,09 (0x00b900)}, f04=» «, postl=0x00a8, f99=» «}
0x09e20…0b900 Extent[0x1ae0]
0x0b900…0b920 (5, 1, 10) ExtentHdr {name=»TOPPKT1 «, typ=»K«, seg=»A«, next=0x00, basis=0x0003, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 000b,0c (0x00bc00)}, f04=»A «, postl=0x00fe, f99=» «}
0x0b920…0bc00 Extent[0x2e0]
0x0bc00…0bc20 (5, 1, 13) ExtentHdr {name=»SPIL1_KO«, typ=»K«, seg=»A«, next=0x00, basis=0x0008, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 000c,04 (0x00c400)}, f04=»A «, postl=0x00fe, f99=»PIL1_«}
0x0bc20…0c400 Extent[0x7e0]
0x0c400…0c420 (6, 0, 5) ExtentHdr {name=»FUNC_HER«, typ=»K«, seg=»A«, next=0x00, basis=0x0006, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 000c,0a (0x00ca00)}, f04=» «, postl=0x00fe, f99=» «}
0x0c420…0ca00 Extent[0x5e0]
0x0ca00…0ca20 (6, 0, 11) ExtentHdr {name=»TESTFIL2«, typ=»K«, seg=»A«, next=0x00, basis=0x0013, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 000d,0d (0x00dd00)}, f04=»A «, postl=0x005f, f99=» «}
0x0ca20…0dd00 Extent[0x12e0]
0x0dd00…0dd20 (6, 1, 14) ExtentHdr {name=»UDLAND «, typ=»K«, seg=»A«, next=0x01, basis=0x0008, nextext={DA 000e,05 (0x00e500)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 000e,05 (0x00e500)}, f04=»A «, postl=0x00fe, f99=»DLAND«}
0x0dd20…0e500 Extent[0x7e0]
0x0e500…0e520 (7, 0, 6) ExtentHdr {name=»UDLAND «, typ=»K«, seg=»B«, next=0x01, basis=0x0008, nextext={DA 0000,00 (0x000000)}, prevext={DA 000d,0d (0x00dd00)}, nextfile={DA 000e,0d (0x00ed00)}, f04=»A «, postl=0x0020, f99=»DLAND«}
0x0e520…0ed00 Extent[0x7e0]
0x0ed00…0ed20 (7, 0, 14) ExtentHdr {name=»DEMOFIL «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 000f,07 (0x00f700)}, f04=» «, postl=0x00ff, f99=» «}
0x0ed20…0f700 Extent[0x9e0]
0x0f700…0f720 (7, 1, 8) ExtentHdr {name=»FLETNING«, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0010,01 (0x010100)}, f04=»A «, postl=0x00fe, f99=» «}
0x0f720…10100 Extent[0x9e0]
0x10100…10120 (8, 0, 2) ExtentHdr {name=»RAMME «, typ=»K«, seg=»A«, next=0x00, basis=0x0002, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0010,03 (0x010300)}, f04=»A «, postl=0x00fe, f99=»AMME «}
0x10120…10300 Extent[0x1e0]
0x10300…10320 (8, 0, 4) ExtentHdr {name=»OVERFL1 «, typ=»K«, seg=»A«, next=0x01, basis=0x000a, nextext={DA 0010,0d (0x010d00)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0010,0d (0x010d00)}, f04=»A «, postl=0x00fe, f99=»AMME «}
0x10320…10d00 Extent[0x9e0]
0x10d00…10d20 (8, 0, 14) ExtentHdr {name=»OVERFL1 «, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0010,03 (0x010300)}, nextfile={DA 0011,07 (0x011700)}, f04=»A «, postl=0x0020, f99=»AMME «}
0x10d20…11700 Extent[0x9e0]
0x11700…11720 (8, 1, 8) ExtentHdr {name=»BISECTIO«, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0012,01 (0x012100)}, f04=» «, postl=0x00fe, f99=» «}
0x11720…12100 Extent[0x9e0]
0x12100…12120 (9, 0, 2) ExtentHdr {name=»STYRTLØB«, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0012,0b (0x012b00)}, f04=»A «, postl=0x00fe, f99=» «}
0x12120…12b00 Extent[0x9e0]
0x12b00…12b20 (9, 0, 12) ExtentHdr {name=»MAX_MIN «, typ=»K«, seg=»A«, next=0x00, basis=0x0004, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0012,0f (0x012f00)}, f04=»A «, postl=0x00fe, f99=»AX_MI«}
0x12b20…12f00 Extent[0x3e0]
0x12f00…12f20 (9, 0, 16) ExtentHdr {name=»PAKKEPOS«, typ=»K«, seg=»A«, next=0x01, basis=0x0005, nextext={DA 0013,04 (0x013400)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0013,04 (0x013400)}, f04=»A «, postl=0x00fe, f99=»AX_MI«}
0x12f20…13400 Extent[0x4e0]
0x13400…13420 (9, 1, 5) ExtentHdr {name=»PAKKEPOS«, typ=»K«, seg=»B«, next=0x01, basis=0x0005, nextext={DA 0000,00 (0x000000)}, prevext={DA 0012,0f (0x012f00)}, nextfile={DA 0013,09 (0x013900)}, f04=»A «, postl=0x0020, f99=»AX_MI«}
0x13420…13900 Extent[0x4e0]
0x13900…13920 (9, 1, 10) ExtentHdr {name=»REJSEB2 «, typ=»K«, seg=»A«, next=0x01, basis=0x000a, nextext={DA 0014,03 (0x014300)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0014,03 (0x014300)}, f04=» «, postl=0x00fe, f99=» «}
0x13920…14300 Extent[0x9e0]
0x14300…14320 (10, 0, 4) ExtentHdr {name=»REJSEB2 «, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0013,09 (0x013900)}, nextfile={DA 0014,0d (0x014d00)}, f04=» «, postl=0x0020, f99=» «}
0x14320…14d00 Extent[0x9e0]
0x14d00…14d20 (10, 0, 14) ExtentHdr {name=»STOPUR «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0015,07 (0x015700)}, f04=»A «, postl=0x00fe, f99=» «}
0x14d20…15700 Extent[0x9e0]
0x15700…15720 (10, 1, 8) ExtentHdr {name=»RENTEFOD«, typ=»K«, seg=»A«, next=0x00, basis=0x0003, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0015,0a (0x015a00)}, f04=»A «, postl=0x00fe, f99=»ENTEF«}
0x15720…15a00 Extent[0x2e0]
0x15a00…15a20 (10, 1, 11) ExtentHdr {name=»BINÆR_2 «, typ=»K«, seg=»A«, next=0x01, basis=0x0005, nextext={DA 0015,0f (0x015f00)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0015,0f (0x015f00)}, f04=»A «, postl=0x00fe, f99=»ENTEF«}
0x15a20…15f00 Extent[0x4e0]
0x15f00…15f20 (10, 1, 16) ExtentHdr {name=»BINÆR_2 «, typ=»K«, seg=»B«, next=0x01, basis=0x0005, nextext={DA 0000,00 (0x000000)}, prevext={DA 0015,0a (0x015a00)}, nextfile={DA 0016,04 (0x016400)}, f04=»A «, postl=0x0020, f99=»ENTEF«}
0x15f20…16400 Extent[0x4e0]
0x16400…16420 (11, 0, 5) ExtentHdr {name=»KORRELAT«, typ=»K«, seg=»A«, next=0x01, basis=0x000a, nextext={DA 0016,0e (0x016e00)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0016,0e (0x016e00)}, f04=» «, postl=0x00fe, f99=» «}
0x16420…16e00 Extent[0x9e0]
0x16e00…16e20 (11, 0, 15) ExtentHdr {name=»KORRELAT«, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0016,04 (0x016400)}, nextfile={DA 0017,08 (0x017800)}, f04=» «, postl=0x0020, f99=» «}
0x16e20…17800 Extent[0x9e0]
0x17800…17820 (11, 1, 9) ExtentHdr {name=»INFO «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0018,02 (0x018200)}, f04=»A «, postl=0x00fe, f99=» «}
0x17820…18200 Extent[0x9e0]
0x18200…18220 (12, 0, 3) ExtentHdr {name=»SFD «, typ=»K«, seg=»A«, next=0x00, basis=0x0001, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0018,03 (0x018300)}, f04=»A «, postl=0x00fe, f99=»FD «}
0x18220…18300 Extent[0xe0]
0x18300…18320 (12, 0, 4) ExtentHdr {name=»ETOILES «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0018,0d (0x018d00)}, f04=»A «, postl=0x00ff, f99=»FD «}
0x18320…18d00 Extent[0x9e0]
0x18d00…18d20 (12, 0, 14) ExtentHdr {name=»SCORE «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0019,07 (0x019700)}, f04=» «, postl=0x00fe, f99=» «}
0x18d20…19700 Extent[0x9e0]
0x19700…19720 (12, 1, 8) ExtentHdr {name=»ANTILOG «, typ=»K«, seg=»A«, next=0x01, basis=0x0001, nextext={DA 0019,08 (0x019800)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0019,08 (0x019800)}, f04=»A «, postl=0x00fe, f99=» «}
0x19720…19800 Extent[0xe0]
0x19800…19820 (12, 1, 9) ExtentHdr {name=»ANTILOG «, typ=»K«, seg=»B«, next=0x01, basis=0x0001, nextext={DA 0000,00 (0x000000)}, prevext={DA 0019,07 (0x019700)}, nextfile={DA 0019,09 (0x019900)}, f04=»A «, postl=0x0020, f99=» «}
0x19820…19900 Extent[0xe0]
0x19900…19920 (12, 1, 10) ExtentHdr {name=»TELEFON «, typ=»K«, seg=»A«, next=0x00, basis=0x0022, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 001b,0b (0x01bb00)}, f04=» «, postl=0x00ff, f99=» «}
0x19920…1bb00 Extent[0x21e0]
0x1bb00…1bb20 (13, 1, 12) ExtentHdr {name=»PERSONNU«, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 001c,05 (0x01c500)}, f04=»A «, postl=0x00fe, f99=» «}
0x1bb20…1c500 Extent[0x9e0]
0x1c500…1c520 (14, 0, 6) ExtentHdr {name=»RUMFANG3«, typ=»K«, seg=»A«, next=0x02, basis=0x000a, nextext={DA 001c,0f (0x01cf00)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 001c,0f (0x01cf00)}, f04=»A «, postl=0x00fe, f99=»UMFAN«}
0x1c520…1cf00 Extent[0x9e0]
0x1cf00…1cf20 (14, 0, 16) ExtentHdr {name=»RUMFANG3«, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 001d,09 (0x01d900)}, prevext={DA 001c,05 (0x01c500)}, nextfile={DA 001d,09 (0x01d900)}, f04=»A «, postl=0x0020, f99=»UMFAN«}
0x1cf20…1d900 Extent[0x9e0]
0x1d900…1d920 (14, 1, 10) ExtentHdr {name=»RUMFANG3«, typ=»K«, seg=»C«, next=0x02, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 001c,0f (0x01cf00)}, nextfile={DA 001e,03 (0x01e300)}, f04=»A «, postl=0x0020, f99=»UMFAN«}
0x1d920…1e300 Extent[0x9e0]
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) 4b 41 52 54 4f 54 45 4b 4b 42 01 0a 00 00 00 00 1e 00 03 1f 00 07 00 00 00 20 00 00 00 00 00 00 ┆KARTOTEKKB ┆
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) 50 4f 53 54 54 41 4b 32 4b 41 01 04 00 1f 00 0b 00 00 00 1f 00 0b 41 1f 00 fe 00 00 00 00 00 00 ┆POSTTAK2KA 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) 50 4f 53 54 54 41 4b 32 4b 42 01 04 00 00 00 00 1f 00 07 1f 00 0f 41 1f 00 20 00 00 00 00 00 00 ┆POSTTAK2KB 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 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0021,0a (0x021a00)}, f04=» «, postl=0x00a8, f99=» «}
0x1fe20…21900 Extent[0x1ae0]
0x21900…21920 (16, 1, 11) ExtentHdr {name=»TESTFIL «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0022,04 (0x022400)}, f04=» «, postl=0x00ff, f99=» «}
0x21920…22300 Extent[0x9e0]
0x22300…22320 (17, 0, 5) ExtentHdr {name=»FÆLLESDI«, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0022,0e (0x022e00)}, f04=»A" «, postl=0x00fe, f99=» «}
0x22320…22d00 Extent[0x9e0]
0x22d00…22d20 (17, 0, 15) ExtentHdr {name=»LAGER «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0023,08 (0x023800)}, f04=»A" «, postl=0x00ff, f99=»AGER «}
0x22d20…23700 Extent[0x9e0]
0x23700…23720 (17, 1, 9) 4c 4f 57 53 43 4f 52 45 4b 41 01 01 00 23 00 09 00 00 00 23 00 09 00 00 00 ff 00 00 00 00 00 00 ┆LOWSCOREKA # # ┆
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) 4c 4f 57 53 43 4f 52 45 4b 42 01 01 00 00 00 00 23 00 08 23 00 0a 00 00 00 20 00 00 00 00 00 00 ┆LOWSCOREKB # # ┆
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 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0023,0d (0x023d00)}, f04=»A# «, postl=0x00fe, f99=» «}
0x23920…23c00 Extent[0x2e0]
0x23c00…23c20 (17, 1, 14) ExtentHdr {name=»CIRKEL «, typ=»K«, seg=»A«, next=0x00, basis=0x0003, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0024,00 (0x024000)}, f04=»A# «, postl=0x00fe, f99=»IRKEL«}
0x23c20…23f00 Extent[0x2e0]
0x23f00…23f20 (18, 0, 1) ExtentHdr {name=»STJERN2 «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0024,0a (0x024a00)}, f04=»A# «, postl=0x00fe, f99=»IRKEL«}
0x23f20…24900 Extent[0x9e0]
0x24900…24920 (18, 0, 11) ExtentHdr {name=»KOPI «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0025,04 (0x025400)}, f04=» «, postl=0x00ff, f99=» «}
0x24920…25300 Extent[0x9e0]
0x25300…25320 (18, 1, 5) ExtentHdr {name=»VESTER «, typ=»K«, seg=»A«, next=0x00, basis=0x0013, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0026,07 (0x026700)}, f04=»A% «, postl=0x005f, f99=» «}
0x25320…26600 Extent[0x12e0]
0x26600…26620 (19, 0, 8) 49 4e 46 4f 54 58 54 20 4b 41 02 0a 00 27 00 01 00 00 00 27 00 01 41 25 00 ff 00 4e 46 4f 54 58 ┆INFOTXT KA ' ' 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) 49 4e 46 4f 54 58 54 20 4b 42 01 0a 00 27 00 0b 26 00 07 27 00 0b 41 25 00 20 00 4e 46 4f 54 58 ┆INFOTXT KB ' & ' 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) 49 4e 46 4f 54 58 54 20 4b 43 02 0a 00 00 00 00 27 00 01 28 00 05 41 25 00 20 00 4e 46 4f 54 58 ┆INFOTXT KC ' ( 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 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0028,08 (0x028800)}, f04=»A% «, postl=0x00fe, f99=»NFOTX«}
0x28420…28700 Extent[0x2e0]
0x28700…28720 (20, 0, 9) 54 52 45 4b 41 4e 54 31 4b 41 01 02 00 28 00 0a 00 00 00 28 00 0a 41 25 00 fe 00 4e 46 4f 54 58 ┆TREKANT1KA ( ( 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) 54 52 45 4b 41 4e 54 31 4b 42 01 02 00 00 00 00 28 00 08 28 00 0c 41 25 00 20 00 4e 46 4f 54 58 ┆TREKANT1KB ( ( 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 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0029,06 (0x029600)}, f04=»A% «, postl=0x00fe, f99=»NFOTX«}
0x28b20…29500 Extent[0x9e0]
0x29500…29520 (20, 1, 7) 45 4b 53 4d 44 31 20 20 4b 41 01 03 00 29 00 09 00 00 00 29 00 09 00 00 00 fe 00 00 00 00 00 00 ┆EKSMD1 KA ) ) ┆
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) 45 4b 53 4d 44 31 20 20 4b 42 01 03 00 00 00 00 29 00 06 29 00 0c 00 00 00 20 00 00 00 00 00 00 ┆EKSMD1 KB ) ) ┆
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 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 002a,00 (0x02a000)}, f04=» «, postl=0x00fe, f99=» «}
0x29b20…29f00 Extent[0x3e0]
0x29f00…29f20 (21, 0, 1) ExtentHdr {name=»MAX «, typ=»K«, seg=»A«, next=0x00, basis=0x0003, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 002a,03 (0x02a300)}, f04=»A* «, postl=0x00fe, f99=» «}
0x29f20…2a200 Extent[0x2e0]
0x2a200…2a220 (21, 0, 4) ExtentHdr {name=»TRIGONOM«, typ=»K«, seg=»A«, next=0x00, basis=0x0003, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 002a,06 (0x02a600)}, f04=» «, postl=0x00fe, f99=» «}
0x2a220…2a500 Extent[0x2e0]
0x2a500…2a520 (21, 0, 7) 44 45 4d 4f 53 45 4b 56 4b 41 01 0a 00 2b 00 00 00 00 00 2b 00 00 00 00 00 fe 00 00 00 00 00 00 ┆DEMOSEKVKA + + ┆
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) 44 45 4d 4f 53 45 4b 56 4b 42 01 0a 00 00 00 00 2a 00 06 2b 00 0a 00 00 00 20 00 00 00 00 00 00 ┆DEMOSEKVKB * + ┆
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) 4f 56 45 52 46 4c 32 20 4b 41 01 0a 00 2c 00 04 00 00 00 2c 00 04 41 2b 00 fe 00 00 00 00 00 00 ┆OVERFL2 KA , , 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) 4f 56 45 52 46 4c 32 20 4b 42 01 0a 00 00 00 00 2b 00 0a 2c 00 0e 41 2b 00 20 00 00 00 00 00 00 ┆OVERFL2 KB + , 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 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 002d,05 (0x02d500)}, f04=»A+ «, postl=0x00fe, f99=»XAMEN«}
0x2cd20…2d400 Extent[0x6e0]
0x2d400…2d420 (22, 1, 6) ExtentHdr {name=»FORKORT «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 002d,0f (0x02df00)}, f04=»A+ «, postl=0x00fe, f99=»XAMEN«}
0x2d420…2de00 Extent[0x9e0]
0x2de00…2de20 (22, 1, 16) ExtentHdr {name=»DIVISORE«, typ=»K«, seg=»A«, next=0x00, basis=0x0002, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 002e,01 (0x02e100)}, f04=» «, postl=0x00fe, f99=» «}
0x2de20…2e000 Extent[0x1e0]
0x2e000…2e020 (23, 0, 2) 50 41 4e 54 45 42 52 45 4b 41 01 0a 00 2e 00 0b 00 00 00 2e 00 0b 41 2e 00 fe 00 00 00 00 00 00 ┆PANTEBREKA . . 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) 50 41 4e 54 45 42 52 45 4b 42 01 0a 00 00 00 00 2e 00 01 2f 00 05 41 2e 00 20 00 00 00 00 00 00 ┆PANTEBREKB . / 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) 52 45 4a 53 45 42 55 52 4b 41 01 0a 00 2f 00 0f 00 00 00 2f 00 0f 00 00 00 fe 00 00 00 00 00 00 ┆REJSEBURKA / / ┆
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) 52 45 4a 53 45 42 55 52 4b 42 01 0a 00 00 00 00 2f 00 05 30 00 09 00 00 00 20 00 00 00 00 00 00 ┆REJSEBURKB / 0 ┆
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 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0031,03 (0x031300)}, f04=»A0 «, postl=0x00fe, f99=» «}
0x30820…31200 Extent[0x9e0]
0x31200…31220 (24, 1, 4) ExtentHdr {name=»ANDENGR2«, typ=»K«, seg=»A«, next=0x00, basis=0x0006, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0031,09 (0x031900)}, f04=»A0 «, postl=0x00fe, f99=»NDENG«}
0x31220…31800 Extent[0x5e0]
0x31800…31820 (24, 1, 10) 49 53 45 4e 4b 52 41 4d 4b 41 01 0a 00 32 00 03 00 00 00 32 00 03 41 30 00 fe 00 4e 44 45 4e 47 ┆ISENKRAMKA 2 2 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) 49 53 45 4e 4b 52 41 4d 4b 42 01 0a 00 00 00 00 31 00 09 32 00 0d 41 30 00 20 00 4e 44 45 4e 47 ┆ISENKRAMKB 1 2 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) 4c 5c 4e 53 45 44 44 45 4b 41 01 0a 00 33 00 07 00 00 00 33 00 07 00 00 00 fe 00 00 00 00 00 00 ┆LØNSEDDEKA 3 3 ┆
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) 4c 5c 4e 53 45 44 44 45 4b 42 01 0a 00 00 00 00 32 00 0d 34 00 01 00 00 00 20 00 00 00 00 00 00 ┆LØNSEDDEKB 2 4 ┆
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 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0034,0b (0x034b00)}, f04=»A4 «, postl=0x00ff, f99=» «}
0x34020…34a00 Extent[0x9e0]
0x34a00…34a20 (26, 0, 12) ExtentHdr {name=» PARTXT «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0000,00 (0x000000)}, f04=»A4 «, postl=0x00ff, f99=» «}
0x34a20…35400 Extent[0x9e0]
0x35400…35500 (26, 1, 6) 0x63[0x100]
[…0x1aa…]