|
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 V r ░
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 |
---|---|---|---|---|---|---|
mangled | AFBET_RE | «none» | ||||
10 | 254 | K | AFBET_RE*really_deleted | ⟦c3097a000⟧ TextFile, Mikados TextFile, Mikados_K, really_deleted | ||
A0 | 10 | 254 | K | AFSTAND | ⟦25f6b5e1c⟧ Mikados TextFile, Mikados_K | |
mangled | ANDENGR1 | «none» | ||||
5 | 254 | K | ANDENGR1*really_deleted | ⟦e7bce4638⟧ TextFile, Mikados TextFile, Mikados_K, really_deleted | ||
A0 | NDENG | 6 | 254 | K | ANDENGR2 | ⟦2a4fb49b3⟧ Mikados TextFile, Mikados_K |
mangled | ANTILOG | «none» | ||||
mangled | BIBLIOTE | «none» | ||||
mangled | BINÆR_2 | «none» | ||||
mangled | BISECTIO | «none» | ||||
10 | 254 | K | BISECTIO*really_deleted | ⟦54c9aa82d⟧ TextFile, Mikados TextFile, Mikados_K, really_deleted | ||
A# | IRKEL | 3 | 254 | K | CIRKEL | ⟦7a224858d⟧ Mikados TextFile, Mikados_K |
mangled | COS_RELA | «none» | ||||
mangled | DEMOFIL | «none» | ||||
10 | 255 | K | DEMOFIL*really_deleted | ⟦8a49278dd⟧ Mikados TextFile, Mikados_K, really_deleted | ||
10 | 254 | K | DEMOSEKV | ⟦0566c93d0⟧ Mikados TextFile, Mikados_K | ||
mangled | DEMO_4 | «none» | ||||
10 | 254 | K | DEMO_4*really_deleted | ⟦05b176b47⟧ Mikados TextFile, Mikados_K, really_deleted | ||
2 | 254 | K | DIVISORE | ⟦7268bb2c9⟧ Mikados TextFile, Mikados_K | ||
3 | 254 | K | EKSMD1 | ⟦81ddbf43f⟧ TextFile, Mikados TextFile, Mikados_K | ||
mangled | ETOILES | «none» | ||||
A | FD | 10 | 255 | K | ETOILES*really_deleted | ⟦ccdec7847⟧ Mikados TextFile, Mikados_K, really_deleted |
A+ | XAMEN | 7 | 254 | K | EXAMEN | ⟦d443df153⟧ Mikados TextFile, Mikados_K |
mangled | FLETNING | «none» | ||||
A | 10 | 254 | K | FLETNING*really_deleted | ⟦ffd7f00d0⟧ Mikados TextFile, Mikados_K, really_deleted | |
A+ | XAMEN | 10 | 254 | K | FORKORT | ⟦1d70c8cea⟧ TextFile, Mikados TextFile, Mikados_K |
mangled | FREKVENS | «none» | ||||
A | 10 | 254 | K | FREKVENS*really_deleted | ⟦d50a65c14⟧ Mikados TextFile, Mikados_K, really_deleted | |
mangled | FUNC_HER | «none» | ||||
6 | 254 | K | FUNC_HER*really_deleted | ⟦5c88083f8⟧ TextFile, Mikados TextFile, Mikados_K, really_deleted | ||
A" | 10 | 254 | K | FÆLLESDI | ⟦b10896795⟧ Mikados TextFile, Mikados_K | |
mangled | HERON3 | «none» | ||||
mangled | HUNDREDE | «none» | ||||
A | OPIDI | 3 | 254 | K | HUNDREDE*really_deleted | ⟦465bb4f33⟧ Mikados TextFile, Mikados_K, really_deleted |
mangled | INFO | «none» | ||||
A | 10 | 254 | K | INFO*really_deleted | ⟦827cfa6a6⟧ TextFile, Mikados TextFile, Mikados_K, really_deleted | |
A% | NFOTX | 10 | 255 | K | INFOTXT | ⟦de711fc60⟧ Mikados TextFile, Mikados_K |
A0 | NDENG | 10 | 254 | K | ISENKRAM | ⟦953c50167⟧ Mikados TextFile, Mikados_K |
10 | 254 | K | KARTOTEK | ⟦43f783bfe⟧ Mikados TextFile, Mikados_K | ||
10 | 255 | K | KOPI | ⟦8a49278dd⟧ Mikados TextFile, Mikados_K, really_deleted | ||
mangled | KOPIDIR | «none» | ||||
A | OPIDI | 10 | 254 | K | KOPIDIR*really_deleted | ⟦244945575⟧ Mikados TextFile, Mikados_K, really_deleted |
mangled | KORRELAT | «none» | ||||
A" | AGER | 10 | 255 | K | LAGER | ⟦1e68ef694⟧ Mikados TextFile, Mikados_K |
A# | 3 | 254 | K | LIGE_ULI | ⟦244a8dca3⟧ Mikados TextFile, Mikados_K | |
1 | 255 | K | LOWSCORE | ⟦45a5d65e3⟧ Mikados TextFile, Mikados_K | ||
10 | 254 | K | LØNSEDDE | ⟦4abd0b407⟧ Mikados TextFile, Mikados_K | ||
A* | 3 | 254 | K | MAX | ⟦ad29608da⟧ TextFile, Mikados TextFile, Mikados_K | |
mangled | MAX_MIN | «none» | ||||
A | AX_MI | 4 | 254 | K | MAX_MIN*really_deleted | ⟦f836e03b6⟧ Mikados TextFile, Mikados_K, really_deleted |
mangled | OVERFL1 | «none» | ||||
A+ | 10 | 254 | K | OVERFL2 | ⟦5af8a877f⟧ Mikados TextFile, Mikados_K | |
A% | NFOTX | 3 | 254 | K | OVERFLAD | ⟦c775fa500⟧ Mikados TextFile, Mikados_K |
mangled | PAKKEPOS | «none» | ||||
A. | 10 | 254 | K | PANTEBRE | ⟦498eeee0e⟧ TextFile, Mikados TextFile, Mikados_K | |
mangled | PERSONNU | «none» | ||||
A | 10 | 254 | K | PERSONNU*really_deleted | ⟦53cbce649⟧ TextFile, Mikados TextFile, Mikados_K, really_deleted | |
A | 4 | 254 | K | POSTTAK2 | ⟦a6ec4b037⟧ TextFile, Mikados TextFile, Mikados_K | |
mangled | RAMME | «none» | ||||
A | AMME | 2 | 254 | K | RAMME*really_deleted | ⟦563a13752⟧ Mikados TextFile, Mikados_K, really_deleted |
mangled | REJSEB2 | «none» | ||||
10 | 254 | K | REJSEBUR | ⟦ee4f7f132⟧ Mikados TextFile, Mikados_K | ||
4 | 254 | K | RENTE | ⟦b160f65fd⟧ Mikados TextFile, Mikados_K | ||
mangled | RENTEFOD | «none» | ||||
A | ENTEF | 3 | 254 | K | RENTEFOD*really_deleted | ⟦0b440cd11⟧ Mikados TextFile, Mikados_K, really_deleted |
mangled | RETTEFIL | «none» | ||||
A | 8 | 254 | K | RETTEFIL*really_deleted | ⟦b06d22371⟧ Mikados TextFile, Mikados_K, really_deleted | |
mangled | RUMFANG3 | «none» | ||||
mangled | SCORE | «none» | ||||
10 | 254 | K | SCORE*really_deleted | ⟦7dba16c82⟧ TextFile, Mikados TextFile, Mikados_K, really_deleted | ||
mangled | SFD | «none» | ||||
A | FD | 1 | 254 | K | SFD*really_deleted | ⟦7741b263e⟧ Mikados TextFile, Mikados_K, really_deleted |
A4 | 10 | 255 | K | SPARTXT | ⟦b9d8cfb45⟧ Mikados TextFile, Mikados_K | |
mangled | SPIL1_KO | «none» | ||||
A | PIL1_ | 8 | 254 | K | SPIL1_KO*really_deleted | ⟦6800fcaaf⟧ Mikados TextFile, Mikados_K, really_deleted |
A# | IRKEL | 10 | 254 | K | STJERN2 | ⟦a0a2380a2⟧ Mikados TextFile, Mikados_K |
A% | NFOTX | 10 | 254 | K | STJERNER | ⟦0a16b48b1⟧ Mikados TextFile, Mikados_K |
mangled | STOPUR | «none» | ||||
A | 10 | 254 | K | STOPUR*really_deleted | ⟦9e6ad8ea5⟧ Mikados TextFile, Mikados_K, really_deleted | |
mangled | STYRTLØB | «none» | ||||
A | 10 | 254 | K | STYRTLØB*really_deleted | ⟦cf0551a73⟧ Mikados TextFile, Mikados_K, really_deleted | |
27 | 168 | K | SYSBÅND | ⟦4a4f5bfed⟧ Mikados_K | ||
mangled | SYSBÅND2 | «none» | ||||
27 | 168 | K | SYSBÅND2*really_deleted | ⟦8ae1151eb⟧ Mikados_K, really_deleted | ||
mangled | TELEFON | «none» | ||||
34 | 255 | K | TELEFON*really_deleted | ⟦f21e49a8d⟧ Mikados TextFile, Mikados_K, really_deleted | ||
10 | 255 | K | TESTFIL | ⟦0093f1eba⟧ Mikados TextFile, Mikados_K | ||
mangled | TESTFIL2 | «none» | ||||
A | 19 | 95 | K | TESTFIL2*really_deleted | ⟦779773457⟧ Mikados_K, really_deleted | |
mangled | TOPPKT1 | «none» | ||||
A | 3 | 254 | K | TOPPKT1*really_deleted | ⟦1791e07a3⟧ Mikados TextFile, Mikados_K, really_deleted | |
A% | NFOTX | 2 | 254 | K | TREKANT1 | ⟦22f9b2a7b⟧ Mikados TextFile, Mikados_K |
mangled | TREKANT3 | «none» | ||||
A | OPIDI | 3 | 254 | K | TREKANT3*really_deleted | ⟦162c5b07e⟧ Mikados TextFile, Mikados_K, really_deleted |
3 | 254 | K | TRIGONOM | ⟦4ff4dc8a6⟧ Mikados TextFile, Mikados_K | ||
mangled | UDLAND | «none» | ||||
A% | 19 | 95 | K | VESTER | ⟦5fa9b20ab⟧ Mikados_K | |
A4 | 10 | 255 | K | ░PARTXT*really_deleted | ⟦b3ef0c995⟧ Mikados_K, Mikados_L, Mikados_P, really_deleted |
0x00000…00030 (0, 0, 1) DiskLabel {plidn=»PLADELAGER«, ledig={DA 0034,0b (0x034a00)}, plart=»MIK «, pldto=»1981.06.12«, plbtg=»DDE «, pluda=» «} 0x00030…00040 1f 00 02 10 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x00040…00060 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆ […0x5…] 0x00100…00200 (0, 0, 2) EmptyDirSect […0x7…] 0x00900…00a00 (0, 0, 10) DirSect { 0x00900…00a00 dent = [ // 0x900 @0x0 0x00900…00a00 [0x00]: DirEnt {name=»BIBLIOTE«, typ=»K«, seg=»A«, seg0={DA 0004,01 (0x004000)}} 0x00900…00a00 [0x01]: DirEnt {name=»COS_RELA«, typ=»K«, seg=»A«, seg0={DA 0004,0b (0x004a00)}} 0x00900…00a00 ] 0x00900…00a00 } 0x00a00…00b00 (0, 0, 11) EmptyDirSect 0x00b00…00c00 (0, 0, 12) DirSect { 0x00b00…00c00 dent = [ // 0xb00 @0x0 0x00b00…00c00 [0x00]: DirEnt {name=»DEMO_4 «, typ=»K«, seg=»A«, seg0={DA 0005,03 (0x005200)}} 0x00b00…00c00 [0x01]: DirEnt {name=»RETTEFIL«, typ=»K«, seg=»A«, seg0={DA 0005,0d (0x005c00)}} 0x00b00…00c00 [0x02]: DirEnt {name=»KOPIDIR «, typ=»K«, seg=»A«, seg0={DA 0006,05 (0x006400)}} 0x00b00…00c00 [0x03]: DirEnt {name=»TREKANT3«, typ=»K«, seg=»A«, seg0={DA 0006,0f (0x006e00)}} 0x00b00…00c00 [0x04]: DirEnt {name=»HUNDREDE«, typ=»K«, seg=»A«, seg0={DA 0007,02 (0x007100)}} 0x00b00…00c00 ] 0x00b00…00c00 } 0x00c00…00d00 (0, 0, 13) EmptyDirSect 0x00d00…00e00 (0, 0, 14) DirSect { 0x00d00…00e00 dent = [ // 0xd00 @0x0 0x00d00…00e00 [0x00]: DirEnt {name=»AFBET_RE«, typ=»K«, seg=»A«, seg0={DA 0007,05 (0x007400)}} 0x00d00…00e00 [0x01]: DirEnt {name=»FREKVENS«, typ=»K«, seg=»A«, seg0={DA 0007,0f (0x007e00)}} 0x00d00…00e00 [0x02]: DirEnt {name=»HERON3 «, typ=»K«, seg=»A«, seg0={DA 0008,09 (0x008800)}} 0x00d00…00e00 ] 0x00d00…00e00 } 0x00e00…00f00 (0, 0, 15) EmptyDirSect 0x00f00…01000 (0, 0, 16) DirSect { 0x00f00…01000 dent = [ // 0xf00 @0x0 0x00f00…01000 [0x00]: DirEnt {name=»ANDENGR1«, typ=»K«, seg=»A«, seg0={DA 0009,09 (0x009800)}} 0x00f00…01000 ] 0x00f00…01000 } 0x01000…01100 (0, 1, 1) EmptyDirSect […0x2…] 0x01300…01400 (0, 1, 4) DirSect { 0x01300…01400 dent = [ // 0x1300 @0x0 0x01300…01400 [0x00]: DirEnt {name=»SYSBÅND2«, typ=»K«, seg=»A«, seg0={DA 0009,0e (0x009d00)}} 0x01300…01400 [0x01]: DirEnt {name=»TOPPKT1 «, typ=»K«, seg=»A«, seg0={DA 000b,09 (0x00b800)}} 0x01300…01400 [0x02]: DirEnt {name=»SPIL1_KO«, typ=»K«, seg=»A«, seg0={DA 000b,0c (0x00bb00)}} 0x01300…01400 ] 0x01300…01400 } 0x01400…01500 (0, 1, 5) EmptyDirSect 0x01500…01600 (0, 1, 6) DirSect { 0x01500…01600 dent = [ // 0x1500 @0x0 0x01500…01600 [0x00]: DirEnt {name=»FUNC_HER«, typ=»K«, seg=»A«, seg0={DA 000c,04 (0x00c300)}} 0x01500…01600 [0x01]: DirEnt {name=»TESTFIL2«, typ=»K«, seg=»A«, seg0={DA 000c,0a (0x00c900)}} 0x01500…01600 [0x02]: DirEnt {name=»UDLAND «, typ=»K«, seg=»A«, seg0={DA 000d,0d (0x00dc00)}} 0x01500…01600 ] 0x01500…01600 } 0x01600…01700 (0, 1, 7) EmptyDirSect 0x01700…01800 (0, 1, 8) DirSect { 0x01700…01800 dent = [ // 0x1700 @0x0 0x01700…01800 [0x00]: DirEnt {name=»DEMOFIL «, typ=»K«, seg=»A«, seg0={DA 000e,0d (0x00ec00)}} 0x01700…01800 [0x01]: DirEnt {name=»FLETNING«, typ=»K«, seg=»A«, seg0={DA 000f,07 (0x00f600)}} 0x01700…01800 [0x02]: DirEnt {name=»RAMME «, typ=»K«, seg=»A«, seg0={DA 0010,01 (0x010000)}} 0x01700…01800 [0x03]: DirEnt {name=»OVERFL1 «, typ=»K«, seg=»A«, seg0={DA 0010,03 (0x010200)}} 0x01700…01800 ] 0x01700…01800 } 0x01800…01900 (0, 1, 9) EmptyDirSect 0x01900…01a00 (0, 1, 10) DirSect { 0x01900…01a00 dent = [ // 0x1900 @0x0 0x01900…01a00 [0x00]: DirEnt {name=»BISECTIO«, typ=»K«, seg=»A«, seg0={DA 0011,07 (0x011600)}} 0x01900…01a00 [0x01]: DirEnt {name=»STYRTLØB«, typ=»K«, seg=»A«, seg0={DA 0012,01 (0x012000)}} 0x01900…01a00 [0x02]: DirEnt {name=»MAX_MIN «, typ=»K«, seg=»A«, seg0={DA 0012,0b (0x012a00)}} 0x01900…01a00 [0x03]: DirEnt {name=»PAKKEPOS«, typ=»K«, seg=»A«, seg0={DA 0012,0f (0x012e00)}} 0x01900…01a00 ] 0x01900…01a00 } 0x01a00…01b00 (0, 1, 11) EmptyDirSect 0x01b00…01c00 (0, 1, 12) DirSect { 0x01b00…01c00 dent = [ // 0x1b00 @0x0 0x01b00…01c00 [0x00]: DirEnt {name=»REJSEB2 «, typ=»K«, seg=»A«, seg0={DA 0013,09 (0x013800)}} 0x01b00…01c00 [0x01]: DirEnt {name=»STOPUR «, typ=»K«, seg=»A«, seg0={DA 0014,0d (0x014c00)}} 0x01b00…01c00 [0x02]: DirEnt {name=»RENTEFOD«, typ=»K«, seg=»A«, seg0={DA 0015,07 (0x015600)}} 0x01b00…01c00 [0x03]: DirEnt {name=»BINÆR_2 «, typ=»K«, seg=»A«, seg0={DA 0015,0a (0x015900)}} 0x01b00…01c00 ] 0x01b00…01c00 } 0x01c00…01d00 (0, 1, 13) EmptyDirSect 0x01d00…01e00 (0, 1, 14) DirSect { 0x01d00…01e00 dent = [ // 0x1d00 @0x0 0x01d00…01e00 [0x00]: DirEnt {name=»KORRELAT«, typ=»K«, seg=»A«, seg0={DA 0016,04 (0x016300)}} 0x01d00…01e00 [0x01]: DirEnt {name=»INFO «, typ=»K«, seg=»A«, seg0={DA 0017,08 (0x017700)}} 0x01d00…01e00 [0x02]: DirEnt {name=»SFD «, typ=»K«, seg=»A«, seg0={DA 0018,02 (0x018100)}} 0x01d00…01e00 [0x03]: DirEnt {name=»ETOILES «, typ=»K«, seg=»A«, seg0={DA 0018,03 (0x018200)}} 0x01d00…01e00 ] 0x01d00…01e00 } 0x01e00…01f00 (0, 1, 15) EmptyDirSect 0x01f00…02000 (0, 1, 16) DirSect { 0x01f00…02000 dent = [ // 0x1f00 @0x0 0x01f00…02000 [0x00]: DirEnt {name=»SCORE «, typ=»K«, seg=»A«, seg0={DA 0018,0d (0x018c00)}} 0x01f00…02000 [0x01]: DirEnt {name=»ANTILOG «, typ=»K«, seg=»A«, seg0={DA 0019,07 (0x019600)}} 0x01f00…02000 ] 0x01f00…02000 } 0x02000…02100 (1, 0, 1) EmptyDirSect 0x02100…02200 (1, 0, 2) DirSect { 0x02100…02200 dent = [ // 0x2100 @0x0 0x02100…02200 [0x00]: DirEnt {name=»TELEFON «, typ=»K«, seg=»A«, seg0={DA 0019,09 (0x019800)}} 0x02100…02200 [0x01]: DirEnt {name=»PERSONNU«, typ=»K«, seg=»A«, seg0={DA 001b,0b (0x01ba00)}} 0x02100…02200 [0x02]: DirEnt {name=»RUMFANG3«, typ=»K«, seg=»A«, seg0={DA 001c,05 (0x01c400)}} 0x02100…02200 ] 0x02100…02200 } 0x02200…02300 (1, 0, 3) EmptyDirSect 0x02300…02400 (1, 0, 4) DirSect { 0x02300…02400 dent = [ // 0x2300 @0x0 0x02300…02400 [0x00]: DirEnt {name=»KARTOTEK«, typ=»K«, seg=»A«, seg0={DA 001e,03 (0x01e200)}} 0x02300…02400 [0x01]: DirEnt {name=»POSTTAK2«, typ=»K«, seg=»A«, seg0={DA 001f,07 (0x01f600)}} 0x02300…02400 ] 0x02300…02400 } 0x02400…02500 (1, 0, 5) EmptyDirSect […0x2…] 0x02700…02800 (1, 0, 8) DirSect { 0x02700…02800 dent = [ // 0x2700 @0x0 0x02700…02800 [0x00]: DirEnt {name=»SYSBÅND «, typ=»K«, seg=»A«, seg0={DA 001f,0f (0x01fe00)}} 0x02700…02800 ] 0x02700…02800 } 0x02800…02900 (1, 0, 9) EmptyDirSect 0x02900…02a00 (1, 0, 10) DirSect { 0x02900…02a00 dent = [ // 0x2900 @0x0 0x02900…02a00 [0x00]: DirEnt {name=»TESTFIL «, typ=»K«, seg=»A«, seg0={DA 0021,0a (0x021900)}} 0x02900…02a00 [0x01]: DirEnt {name=»FÆLLESDI«, typ=»K«, seg=»A«, seg0={DA 0022,04 (0x022300)}} 0x02900…02a00 [0x02]: DirEnt {name=»LAGER «, typ=»K«, seg=»A«, seg0={DA 0022,0e (0x022d00)}} 0x02900…02a00 ] 0x02900…02a00 } 0x02a00…02b00 (1, 0, 11) EmptyDirSect […0x2…] 0x02d00…02e00 (1, 0, 14) DirSect { 0x02d00…02e00 dent = [ // 0x2d00 @0x0 0x02d00…02e00 [0x00]: DirEnt {name=»LOWSCORE«, typ=»K«, seg=»A«, seg0={DA 0023,08 (0x023700)}} 0x02d00…02e00 [0x01]: DirEnt {name=»LIGE_ULI«, typ=»K«, seg=»A«, seg0={DA 0023,0a (0x023900)}} 0x02d00…02e00 [0x02]: DirEnt {name=»CIRKEL «, typ=»K«, seg=»A«, seg0={DA 0023,0d (0x023c00)}} 0x02d00…02e00 [0x03]: DirEnt {name=»STJERN2 «, typ=»K«, seg=»A«, seg0={DA 0024,00 (0x023f00)}} 0x02d00…02e00 ] 0x02d00…02e00 } 0x02e00…02f00 (1, 0, 15) EmptyDirSect 0x02f00…03000 (1, 0, 16) DirSect { 0x02f00…03000 dent = [ // 0x2f00 @0x0 0x02f00…03000 [0x00]: DirEnt {name=»KOPI «, typ=»K«, seg=»A«, seg0={DA 0024,0a (0x024900)}} 0x02f00…03000 [0x01]: DirEnt {name=»VESTER «, typ=»K«, seg=»A«, seg0={DA 0025,04 (0x025300)}} 0x02f00…03000 [0x02]: DirEnt {name=»INFOTXT «, typ=»K«, seg=»A«, seg0={DA 0026,07 (0x026600)}} 0x02f00…03000 [0x03]: DirEnt {name=»OVERFLAD«, typ=»K«, seg=»A«, seg0={DA 0028,05 (0x028400)}} 0x02f00…03000 [0x04]: DirEnt {name=»TREKANT1«, typ=»K«, seg=»A«, seg0={DA 0028,08 (0x028700)}} 0x02f00…03000 [0x05]: DirEnt {name=»STJERNER«, typ=»K«, seg=»A«, seg0={DA 0028,0c (0x028b00)}} 0x02f00…03000 ] 0x02f00…03000 } 0x03000…03100 (1, 1, 1) EmptyDirSect 0x03100…03200 (1, 1, 2) DirSect { 0x03100…03200 dent = [ // 0x3100 @0x0 0x03100…03200 [0x00]: DirEnt {name=»EKSMD1 «, typ=»K«, seg=»A«, seg0={DA 0029,06 (0x029500)}} 0x03100…03200 ] 0x03100…03200 } 0x03200…03300 (1, 1, 3) EmptyDirSect 0x03300…03400 (1, 1, 4) DirSect { 0x03300…03400 dent = [ // 0x3300 @0x0 0x03300…03400 [0x00]: DirEnt {name=»RENTE «, typ=»K«, seg=»A«, seg0={DA 0029,0c (0x029b00)}} 0x03300…03400 [0x01]: DirEnt {name=»MAX «, typ=»K«, seg=»A«, seg0={DA 002a,00 (0x029f00)}} 0x03300…03400 ] 0x03300…03400 } 0x03400…03500 (1, 1, 5) EmptyDirSect […0x2…] 0x03700…03800 (1, 1, 8) DirSect { 0x03700…03800 dent = [ // 0x3700 @0x0 0x03700…03800 [0x00]: DirEnt {name=»TRIGONOM«, typ=»K«, seg=»A«, seg0={DA 002a,03 (0x02a200)}} 0x03700…03800 ] 0x03700…03800 } 0x03800…03900 (1, 1, 9) EmptyDirSect 0x03900…03a00 (1, 1, 10) DirSect { 0x03900…03a00 dent = [ // 0x3900 @0x0 0x03900…03a00 [0x00]: DirEnt {name=»DEMOSEKV«, typ=»K«, seg=»A«, seg0={DA 002a,06 (0x02a500)}} 0x03900…03a00 [0x01]: DirEnt {name=»OVERFL2 «, typ=»K«, seg=»A«, seg0={DA 002b,0a (0x02b900)}} 0x03900…03a00 [0x02]: DirEnt {name=»EXAMEN «, typ=»K«, seg=»A«, seg0={DA 002c,0e (0x02cd00)}} 0x03900…03a00 [0x03]: DirEnt {name=»FORKORT «, typ=»K«, seg=»A«, seg0={DA 002d,05 (0x02d400)}} 0x03900…03a00 ] 0x03900…03a00 } 0x03a00…03b00 (1, 1, 11) EmptyDirSect 0x03b00…03c00 (1, 1, 12) DirSect { 0x03b00…03c00 dent = [ // 0x3b00 @0x0 0x03b00…03c00 [0x00]: DirEnt {name=»DIVISORE«, typ=»K«, seg=»A«, seg0={DA 002d,0f (0x02de00)}} 0x03b00…03c00 [0x01]: DirEnt {name=»PANTEBRE«, typ=»K«, seg=»A«, seg0={DA 002e,01 (0x02e000)}} 0x03b00…03c00 ] 0x03b00…03c00 } 0x03c00…03d00 (1, 1, 13) EmptyDirSect 0x03d00…03e00 (1, 1, 14) DirSect { 0x03d00…03e00 dent = [ // 0x3d00 @0x0 0x03d00…03e00 [0x00]: DirEnt {name=»REJSEBUR«, typ=»K«, seg=»A«, seg0={DA 002f,05 (0x02f400)}} 0x03d00…03e00 [0x01]: DirEnt {name=»AFSTAND «, typ=»K«, seg=»A«, seg0={DA 0030,09 (0x030800)}} 0x03d00…03e00 [0x02]: DirEnt {name=»ANDENGR2«, typ=»K«, seg=»A«, seg0={DA 0031,03 (0x031200)}} 0x03d00…03e00 [0x03]: DirEnt {name=»ISENKRAM«, typ=»K«, seg=»A«, seg0={DA 0031,09 (0x031800)}} 0x03d00…03e00 ] 0x03d00…03e00 } 0x03e00…03f00 (1, 1, 15) EmptyDirSect 0x03f00…04000 (1, 1, 16) DirSect { 0x03f00…04000 dent = [ // 0x3f00 @0x0 0x03f00…04000 [0x00]: DirEnt {name=»LØNSEDDE«, typ=»K«, seg=»A«, seg0={DA 0032,0d (0x032c00)}} 0x03f00…04000 [0x01]: DirEnt {name=»SPARTXT «, typ=»K«, seg=»A«, seg0={DA 0034,01 (0x034000)}} 0x03f00…04000 ] 0x03f00…04000 } 0x04000…04100 (2, 0, 1) EmptyDirSect 0x04100…04120 (2, 0, 2) 42 49 42 4c 49 4f 54 45 4b 41 01 05 00 04 00 06 00 00 00 04 00 06 00 00 00 fe 00 00 00 00 00 00 ┆BIBLIOTEKA ┆ 0x04120…04140 3c 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆<0010 // -----------------------┆ 0x04140…04160 2d 20 62 69 62 6c 69 6f 74 65 6b 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3c 29 30 ┆- bibliotek -----------------<)0┆ 0x04160…04180 30 31 35 20 49 4e 54 45 47 45 52 20 4e 55 4d 4d 45 52 20 2f 2f 20 68 65 6c 74 61 6c 73 2d 64 65 ┆015 INTEGER NUMMER // heltals-de┆ 0x04180…041a0 66 69 6e 65 72 69 6e 67 29 2d 30 30 32 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 62 6f ┆finering)-0020 INPUT "Indtast bo┆ 0x041a0…041c0 67 65 6e 73 20 6e 75 6d 6d 65 72 3a 20 20 20 22 3a 4e 55 4d 4d 45 52 2d 0b 30 30 33 30 20 43 4c ┆gens nummer: ":NUMMER- 0030 CL┆ 0x041c0…041e0 45 41 52 20 0b 0f 30 30 34 30 20 43 55 52 53 4f 52 20 31 2c 34 0f 21 30 30 35 30 20 50 52 49 4e ┆EAR 0040 CURSOR 1,4 !0050 PRIN┆ 0x041e0…04200 54 20 22 20 42 20 49 20 42 20 4c 20 49 20 4f 20 54 20 45 20 4b 20 2e 22 21 21 30 30 36 30 20 50 ┆T " B I B L I O T E K ."!!0060 P┆ 0x04200…04220 (2, 0, 3) 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 21 0f 30 30 37 ┆RINT "--------------------"! 007┆ 0x04220…04240 30 20 43 55 52 53 4f 52 20 31 2c 38 0f 3c 30 30 38 30 20 50 52 49 4e 54 20 22 42 6f 67 65 6e 20 ┆0 CURSOR 1,8 <0080 PRINT "Bogen ┆ 0x04240…04260 6d 65 64 20 6e 75 6d 6d 65 72 3a 20 20 20 22 3b 4e 55 4d 4d 45 52 3b 22 6c 69 67 67 65 72 20 69 ┆med nummer: ";NUMMER;"ligger i┆ 0x04260…04280 20 67 72 75 70 70 65 6e 3a 22 3c 3d 30 30 39 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d ┆ gruppen:"<=0090 PRINT "--------┆ 0x04280…042a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆ 0x042a0…042c0 2d 2d 2d 2d 2d 2d 2d 2d 22 3d 0b 30 31 30 30 20 50 52 49 4e 54 20 0b 0b 30 31 31 30 20 50 52 49 ┆--------"= 0100 PRINT 0110 PRI┆ 0x042c0…042e0 4e 54 20 0b 17 30 31 32 30 20 49 46 20 4e 55 4d 4d 45 52 3c 3d 39 20 54 48 45 4e 20 17 3b 30 31 ┆NT 0120 IF NUMMER<=9 THEN ;01┆ 0x042e0…04300 33 30 20 50 52 49 4e 54 20 22 30 30 20 2d 20 30 39 20 20 20 42 6c 61 6e 64 65 64 65 20 73 6b 72 ┆30 PRINT "00 - 09 Blandede skr┆ 0x04300…04320 (2, 0, 4) 69 66 74 65 72 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3b 0a 30 31 34 30 20 ┆ifter. "; 0140 ┆ 0x04320…04340 45 4c 53 45 20 0a 18 30 31 34 35 20 49 46 20 4e 55 4d 4d 45 52 3c 3d 31 39 20 54 48 45 4e 20 18 ┆ELSE 0145 IF NUMMER<=19 THEN ┆ 0x04340…04360 42 30 31 35 30 20 50 52 49 4e 54 20 22 31 30 20 2d 20 31 39 20 20 20 46 69 6c 6f 73 6f 66 69 2e ┆B0150 PRINT "10 - 19 Filosofi.┆ 0x04360…04380 20 50 73 79 6b 6f 6c 6f 67 69 2e 20 56 69 64 65 6e 73 6b 61 62 20 26 20 66 6f 72 73 6b 6e 69 6e ┆ Psykologi. Videnskab & forsknin┆ 0x04380…043a0 67 2e 22 42 0a 30 31 36 30 20 45 4c 53 45 20 0a 18 30 31 36 35 20 49 46 20 4e 55 4d 4d 45 52 3c ┆g."B 0160 ELSE 0165 IF NUMMER<┆ 0x043a0…043c0 3d 32 39 20 54 48 45 4e 20 18 28 30 31 37 30 20 50 52 49 4e 54 20 22 32 30 20 2d 20 32 39 20 20 ┆=29 THEN (0170 PRINT "20 - 29 ┆ 0x043c0…043e0 20 52 65 6c 69 67 69 6f 6e 2e 20 20 20 20 20 20 20 20 22 28 0a 30 31 38 30 20 45 4c 53 45 20 0a ┆ Religion. "( 0180 ELSE ┆ 0x043e0…04400 18 30 31 38 35 20 49 46 20 4e 55 4d 4d 45 52 3c 3d 33 39 20 54 48 45 4e 20 18 3e 30 31 39 30 20 ┆ 0185 IF NUMMER<=39 THEN >0190 ┆ 0x04400…04420 (2, 0, 5) 50 52 49 4e 54 20 22 33 30 20 2d 20 33 39 20 20 20 53 61 6d 66 75 6e 64 73 76 69 64 65 6e 73 6b ┆PRINT "30 - 39 Samfundsvidensk┆ 0x04420…04440 61 62 2e 20 50 7b 64 61 67 6f 67 69 6b 2e 20 46 6f 6c 6b 65 6c 69 76 2e 22 3e 0a 30 32 30 30 20 ┆ab. Pædagogik. Folkeliv."> 0200 ┆ 0x04440…04460 45 4c 53 45 20 0a 18 30 32 30 35 20 49 46 20 4e 55 4d 4d 45 52 3c 3d 34 39 20 54 48 45 4e 20 18 ┆ELSE 0205 IF NUMMER<=49 THEN ┆ 0x04460…04480 29 30 32 31 30 20 50 52 49 4e 54 20 22 34 30 20 2d 20 34 39 20 20 20 47 65 6f 67 72 61 66 69 20 ┆)0210 PRINT "40 - 49 Geografi ┆ 0x04480…044a0 26 20 72 65 6a 73 65 72 2e 22 29 0a 30 32 32 30 20 45 4c 53 45 20 0a 18 30 32 32 35 20 49 46 20 ┆& rejser.") 0220 ELSE 0225 IF ┆ 0x044a0…044c0 4e 55 4d 4d 45 52 3c 3d 35 39 20 54 48 45 4e 20 18 32 30 32 33 30 20 50 52 49 4e 54 20 22 35 30 ┆NUMMER<=59 THEN 20230 PRINT "50┆ 0x044c0…044e0 20 2d 20 35 39 20 20 20 4e 61 74 75 72 76 69 64 65 6e 73 6b 61 62 20 26 20 6d 61 74 65 6d 61 74 ┆ - 59 Naturvidenskab & matemat┆ 0x044e0…04500 69 6b 2e 22 32 0a 30 32 34 30 20 45 4c 53 45 20 0a 18 30 32 34 35 20 49 46 20 4e 55 4d 4d 45 52 ┆ik."2 0240 ELSE 0245 IF NUMMER┆ 0x04500…04520 (2, 0, 6) 3c 3d 36 39 20 54 48 45 4e 20 18 25 30 32 35 30 20 50 52 49 4e 54 20 22 36 30 20 2d 20 36 39 20 ┆<=69 THEN %0250 PRINT "60 - 69 ┆ 0x04520…04540 20 20 50 72 61 6b 74 69 73 6b 65 20 66 61 67 2e 22 25 0a 30 32 36 30 20 45 4c 53 45 20 0a 18 30 ┆ Praktiske fag."% 0260 ELSE 0┆ 0x04540…04560 32 36 35 20 49 46 20 4e 55 4d 4d 45 52 3c 3d 37 39 20 54 48 45 4e 20 18 40 30 32 37 30 20 50 52 ┆265 IF NUMMER<=79 THEN @0270 PR┆ 0x04560…04580 49 4e 54 20 22 37 30 20 2d 20 37 39 20 20 20 4b 75 6e 73 74 2e 20 54 65 61 74 65 72 2e 20 46 69 ┆INT "70 - 79 Kunst. Teater. Fi┆ 0x04580…045a0 6c 6d 2e 20 4d 75 73 69 6b 2e 20 53 70 69 6c 2e 20 49 64 72 7b 74 2e 20 22 40 0a 30 32 38 30 20 ┆lm. Musik. Spil. Idræt. "@ 0280 ┆ 0x045a0…045c0 45 4c 53 45 20 0a 18 30 32 38 35 20 49 46 20 4e 55 4d 4d 45 52 3c 3d 38 39 20 54 48 45 4e 20 18 ┆ELSE 0285 IF NUMMER<=89 THEN ┆ 0x045c0…045e0 2a 30 32 39 30 20 50 52 49 4e 54 20 22 38 30 20 2d 20 38 39 20 20 20 4c 69 74 74 65 72 61 74 75 ┆*0290 PRINT "80 - 89 Litteratu┆ 0x045e0…04600 72 2e 20 53 70 72 6f 67 2e 20 22 2a 0a 30 33 30 30 20 45 4c 53 45 20 0a 18 30 33 30 35 20 49 46 ┆r. Sprog. "* 0300 ELSE 0305 IF┆ 0x04600…04620 (2, 0, 7) 42 49 42 4c 49 4f 54 45 4b 42 01 05 00 00 00 00 04 00 01 04 00 0b 00 00 00 20 00 00 00 00 00 00 ┆BIBLIOTEKB ┆ 0x04620…04640 20 4e 55 4d 4d 45 52 3c 3d 39 39 20 54 48 45 4e 20 18 20 30 33 31 30 20 50 52 49 4e 54 20 22 39 ┆ NUMMER<=99 THEN 0310 PRINT "9┆ 0x04640…04660 30 20 2d 20 39 39 20 20 20 48 69 73 74 6f 72 69 65 2e 22 20 0b 30 33 32 30 20 45 4e 44 49 46 20 ┆0 - 99 Historie." 0320 ENDIF ┆ 0x04660…04680 0b 0b 30 33 32 31 20 45 4e 44 49 46 20 0b 0b 30 33 32 32 20 45 4e 44 49 46 20 0b 0b 30 33 32 33 ┆ 0321 ENDIF 0322 ENDIF 0323┆ 0x04680…046a0 20 45 4e 44 49 46 20 0b 0b 30 33 32 34 20 45 4e 44 49 46 20 0b 0b 30 33 32 35 20 45 4e 44 49 46 ┆ ENDIF 0324 ENDIF 0325 ENDIF┆ 0x046a0…046c0 20 0b 0b 30 33 32 36 20 45 4e 44 49 46 20 0b 0b 30 33 32 37 20 45 4e 44 49 46 20 0b 0b 30 33 32 ┆ 0326 ENDIF 0327 ENDIF 032┆ 0x046c0…046e0 38 20 45 4e 44 49 46 20 0b 0b 30 33 32 39 20 45 4e 44 49 46 20 0b 3d 30 33 33 30 20 50 52 49 4e ┆8 ENDIF 0329 ENDIF =0330 PRIN┆ 0x046e0…04700 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆T "-----------------------------┆ 0x04700…04720 (2, 0, 8) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 3d 00 00 63 63 63 63 63 63 63 63 63 ┆-------------------"= ccccccccc┆ 0x04720…04740 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆ […0x6…] 0x04800…04900 (2, 0, 9) 0x63[0x100] […0x2…] 0x04b00…04b20 (2, 0, 12) 43 4f 53 5f 52 45 4c 41 4b 41 01 04 00 04 00 0f 00 00 00 04 00 0f 41 04 00 fe 00 00 00 00 00 00 ┆COS_RELAKA A ┆ 0x04b20…04b40 44 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆D0010 // -----------------------┆ 0x04b40…04b60 2d 2d 2d 20 63 6f 73 5f 72 65 6c 61 74 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--- cos_relat ------------------┆ 0x04b60…04b80 2d 2d 2d 2d 2d 44 44 30 30 32 30 20 2f 2f 20 55 64 67 7d 65 74 20 69 20 64 65 6e 6e 65 20 43 4f ┆-----DD0020 // Udgået i denne CO┆ 0x04b80…04ba0 4d 41 4c 2d 76 65 72 73 69 6f 6e 2c 20 64 61 20 64 65 6e 20 69 6b 6b 65 20 74 69 6c 6c 61 64 65 ┆MAL-version, da den ikke tillade┆ 0x04ba0…04bc0 72 20 72 65 63 75 72 73 69 76 65 44 12 30 30 33 30 20 2f 2f 20 70 72 6f 63 65 64 75 72 65 72 12 ┆r recursiveD 0030 // procedurer ┆ 0x04bc0…04be0 00 00 69 76 65 74 20 69 20 72 61 64 69 61 6e 65 72 2e 3b 12 30 30 33 30 20 43 41 53 45 20 54 52 ┆ ivet i radianer.; 0030 CASE TR┆ 0x04be0…04c00 55 45 20 4f 46 20 12 17 30 30 34 30 20 57 48 45 4e 20 2d 31 3c 3d 58 20 41 4e 44 20 58 3c 30 17 ┆UE OF 0040 WHEN -1<=X AND X<0 ┆ 0x04c00…04c20 (2, 0, 13) 27 30 30 35 30 20 41 52 43 43 4f 53 3a 3d 41 54 4e 28 53 51 52 28 31 2d 58 2a 58 29 2f 58 29 2b ┆'0050 ARCCOS:=ATN(SQR(1-X*X)/X)+┆ 0x04c20…04c40 34 2a 41 54 4e 28 31 29 27 0d 30 30 36 30 20 57 48 45 4e 20 58 3d 30 0d 15 30 30 37 30 20 41 52 ┆4*ATN(1)' 0060 WHEN X=0 0070 AR┆ 0x04c40…04c60 43 43 4f 53 3a 3d 41 54 4e 28 31 29 2a 32 15 16 30 30 38 30 20 57 48 45 4e 20 30 3c 58 20 41 4e ┆CCOS:=ATN(1)*2 0080 WHEN 0<X AN┆ 0x04c60…04c80 44 20 58 3c 3d 31 16 1e 30 30 39 30 20 41 52 43 43 4f 53 3a 3d 41 54 4e 28 53 51 52 28 31 2d 58 ┆D X<=1 0090 ARCCOS:=ATN(SQR(1-X┆ 0x04c80…04ca0 2a 58 29 2f 58 29 1e 0f 30 30 39 32 20 4f 54 48 45 52 57 49 53 45 20 0f 0b 30 30 39 33 20 50 52 ┆*X)/X) 0092 OTHERWISE 0093 PR┆ 0x04ca0…04cc0 49 4e 54 20 0b 0d 30 31 30 30 20 45 4e 44 43 41 53 45 20 0d 13 30 31 31 30 20 45 4e 44 50 52 4f ┆INT 0100 ENDCASE 0110 ENDPRO┆ 0x04cc0…04ce0 43 20 41 52 43 43 4f 53 13 08 30 31 32 30 20 2f 2f 20 08 0b 30 31 33 30 20 43 4c 45 41 52 20 0b ┆C ARCCOS 0120 // 0130 CLEAR ┆ 0x04ce0…04d00 0b 30 31 33 35 20 50 52 49 4e 54 20 0b 1b 30 31 34 30 20 46 41 4b 54 4f 52 3a 3d 31 38 30 2f 28 ┆ 0135 PRINT 0140 FAKTOR:=180/(┆ 0x04d00…04d20 (2, 0, 14) 41 54 4e 28 31 29 2a 34 29 1b 3c 30 31 35 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 73 ┆ATN(1)*4) <0150 INPUT "Indtast s┆ 0x04d20…04d40 69 64 65 72 6e 65 20 61 2c 62 20 6f 67 20 63 20 69 20 65 6e 20 74 72 65 6b 61 6e 74 3a 20 20 20 ┆iderne a,b og c i en trekant: ┆ 0x04d40…04d60 22 3a 41 2c 42 2c 43 3c 30 30 31 36 30 20 56 49 4e 4b 45 4c 41 3a 3d 46 41 4b 54 4f 52 2a 41 52 ┆":A,B,C<00160 VINKELA:=FAKTOR*AR┆ 0x04d60…04d80 43 43 4f 53 28 28 42 2a 42 2b 43 2a 43 2d 41 2a 41 29 2f 32 2f 42 2f 43 29 30 30 30 31 37 30 20 ┆CCOS((B*B+C*C-A*A)/2/B/C)000170 ┆ 0x04d80…04da0 56 49 4e 4b 45 4c 42 3a 3d 46 41 4b 54 4f 52 2a 41 52 43 43 4f 53 28 28 41 2a 41 2b 43 2a 43 2d ┆VINKELB:=FAKTOR*ARCCOS((A*A+C*C-┆ 0x04da0…04dc0 42 2a 42 29 2f 32 2f 41 2f 43 29 30 30 30 31 38 30 20 56 49 4e 4b 45 4c 43 3a 3d 46 41 4b 54 4f ┆B*B)/2/A/C)000180 VINKELC:=FAKTO┆ 0x04dc0…04de0 52 2a 41 52 43 43 4f 53 28 28 41 2a 41 2b 42 2a 42 2d 43 2a 43 29 2f 32 2f 41 2f 42 29 30 13 30 ┆R*ARCCOS((A*A+B*B-C*C)/2/A/B)0 0┆ 0x04de0…04e00 31 39 30 20 50 52 49 4e 54 20 22 61 20 3d 20 22 3b 41 13 13 30 32 30 30 20 50 52 49 4e 54 20 22 ┆190 PRINT "a = ";A 0200 PRINT "┆ 0x04e00…04e20 (2, 0, 15) 62 20 3d 20 22 3b 42 13 13 30 32 31 30 20 50 52 49 4e 54 20 22 63 20 3d 20 22 3b 43 13 0b 30 32 ┆b = ";B 0210 PRINT "c = ";C 02┆ 0x04e20…04e40 32 30 20 50 52 49 4e 54 20 0b 34 30 32 33 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 56 69 6e ┆20 PRINT 40230 PRINT USING "Vin┆ 0x04e40…04e60 6b 65 6c 20 41 20 3d 20 23 23 23 23 2e 23 23 20 67 72 61 64 65 72 22 3a 56 49 4e 4b 45 4c 41 34 ┆kel A = ####.## grader":VINKELA4┆ 0x04e60…04e80 34 30 32 34 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 56 69 6e 6b 65 6c 20 42 20 3d 20 23 23 ┆40240 PRINT USING "Vinkel B = ##┆ 0x04e80…04ea0 23 23 2e 23 23 20 67 72 61 64 65 72 22 3a 56 49 4e 4b 45 4c 42 34 34 30 32 35 30 20 50 52 49 4e ┆##.## grader":VINKELB440250 PRIN┆ 0x04ea0…04ec0 54 20 55 53 49 4e 47 20 22 56 69 6e 6b 65 6c 20 43 20 3d 20 23 23 23 23 2e 23 23 20 67 72 61 64 ┆T USING "Vinkel C = ####.## grad┆ 0x04ec0…04ee0 65 72 22 3a 56 49 4e 4b 45 4c 43 34 0b 30 32 37 30 20 50 52 49 4e 54 20 0b 3c 30 32 38 30 20 50 ┆er":VINKELC4 0270 PRINT <0280 P┆ 0x04ee0…04f00 52 49 4e 54 20 22 4b 6f 6e 74 72 6f 6c 3a 20 20 20 56 69 6e 6b 65 6c 73 75 6d 20 3d 20 22 2c 56 ┆RINT "Kontrol: Vinkelsum = ",V┆ 0x04f00…04f20 (2, 0, 16) 43 4f 53 5f 52 45 4c 41 4b 42 01 04 00 00 00 00 04 00 0b 05 00 03 41 04 00 20 00 00 00 00 00 00 ┆COS_RELAKB A ┆ 0x04f20…04f40 49 4e 4b 45 4c 41 2b 56 49 4e 4b 45 4c 42 2b 56 49 4e 4b 45 4c 43 3c 00 00 2d 2d 2d 2d 2d 2d 2d ┆INKELA+VINKELB+VINKELC< -------┆ 0x04f40…04f60 2d 2d 2d 20 63 6f 73 5f 72 65 6c 61 74 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--- cos_relat ------------------┆ 0x04f60…04f80 2d 2d 2d 2d 2d 44 17 30 30 31 35 20 49 4e 54 45 47 45 52 20 54 52 55 45 2c 46 41 4c 53 45 17 15 ┆-----D 0015 INTEGER TRUE,FALSE ┆ 0x04f80…04fa0 30 30 31 36 20 54 52 55 45 3a 3d 31 3b 46 41 4c 53 45 3a 3d 30 15 3b 30 30 32 30 20 50 52 4f 43 ┆0016 TRUE:=1;FALSE:=0 ;0020 PROC┆ 0x04fa0…04fc0 20 41 52 43 43 4f 53 28 58 29 20 2f 2f 20 61 72 63 63 6f 73 28 78 29 20 62 6c 69 76 65 72 20 61 ┆ ARCCOS(X) // arccos(x) bliver a┆ 0x04fc0…04fe0 6e 67 69 76 65 74 20 69 20 72 61 64 69 61 6e 65 72 2e 3b 12 30 30 33 30 20 43 41 53 45 20 54 52 ┆ngivet i radianer.; 0030 CASE TR┆ 0x04fe0…05000 55 45 20 4f 46 20 12 17 30 30 34 30 20 57 48 45 4e 20 2d 31 3c 3d 58 20 41 4e 44 20 58 3c 30 17 ┆UE OF 0040 WHEN -1<=X AND X<0 ┆ 0x05000…05100 (2, 1, 1) 0x63[0x100] […0x2…] 0x05300…05320 (2, 1, 4) ExtentHdr {name=»DEMO_4 «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0005,0d (0x005c00)}, 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 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0006,05 (0x006400)}, 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 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0006,0f (0x006e00)}, 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 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0007,02 (0x007100)}, 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 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0007,05 (0x007400)}, 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 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0007,0f (0x007e00)}, 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 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0008,09 (0x008800)}, f04=»A «, postl=0x00fe, f99=» «} 0x07f20…08900 Extent[0x9e0] 0x08900…08920 (4, 0, 10) 48 45 52 4f 4e 33 20 20 4b 41 01 08 00 09 00 01 00 00 00 09 00 01 41 07 00 fe 00 45 52 4f 4e 33 ┆HERON3 KA A ERON3┆ 0x08920…08940 42 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆B0010 // -----------------------┆ 0x08940…08960 2d 20 68 65 72 6f 6e 33 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆- heron3 -----------------------┆ 0x08960…08980 2d 2d 2d 42 46 30 30 32 30 20 2f 2f 20 50 72 6f 67 72 61 6d 6d 65 74 20 75 64 72 65 67 6e 65 72 ┆---BF0020 // Programmet udregner┆ 0x08980…089a0 20 6f 6d 6b 72 65 64 73 20 26 20 61 72 65 61 6c 20 61 66 20 65 6e 20 74 72 65 6b 61 6e 74 20 76 ┆ omkreds & areal af en trekant v┆ 0x089a0…089c0 65 64 20 68 6a 7b 6c 70 20 61 66 46 25 30 30 33 30 20 2f 2f 20 70 72 6f 63 65 64 75 72 65 72 20 ┆ed hjælp afF%0030 // procedurer ┆ 0x089c0…089e0 6d 65 64 20 74 72 65 20 70 61 72 61 6d 65 74 72 65 2e 25 0b 30 30 34 30 20 43 4c 45 41 52 20 0b ┆med tre parametre.% 0040 CLEAR ┆ 0x089e0…08a00 1e 30 30 35 30 20 50 52 49 4e 54 20 22 54 72 65 6b 61 6e 74 20 6e 75 6d 6d 65 72 20 31 2e 22 1e ┆ 0050 PRINT "Trekant nummer 1." ┆ 0x08a00…08a20 (4, 0, 11) 4b 30 30 36 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 64 65 20 74 72 65 20 73 69 64 65 ┆K0060 INPUT "Indtast de tre side┆ 0x08a20…08a40 72 20 69 20 74 72 65 6b 61 6e 74 65 6e 3a 20 20 20 20 20 20 20 20 22 3a 53 49 44 45 41 31 2c 53 ┆r i trekanten: ":SIDEA1,S┆ 0x08a40…08a60 49 44 45 42 31 2c 53 49 44 45 43 31 4b 0b 30 30 37 30 20 50 52 49 4e 54 20 0b 3a 30 30 38 30 20 ┆IDEB1,SIDEC1K 0070 PRINT :0080 ┆ 0x08a60…08a80 50 52 49 4e 54 20 22 54 72 65 6b 61 6e 74 20 6e 75 6d 6d 65 72 20 32 2e 20 20 20 20 20 20 20 20 ┆PRINT "Trekant nummer 2. ┆ 0x08a80…08aa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 4b 30 30 39 30 20 49 4e 50 55 ┆ ":K0090 INPU┆ 0x08aa0…08ac0 54 20 22 69 6e 64 74 61 73 74 20 64 65 20 74 72 65 20 73 69 64 65 72 20 69 20 74 72 65 6b 61 6e ┆T "indtast de tre sider i trekan┆ 0x08ac0…08ae0 74 65 6e 3a 20 20 20 20 20 20 20 20 22 3a 53 49 44 45 41 32 2c 53 49 44 45 42 32 2c 53 49 44 45 ┆ten: ":SIDEA2,SIDEB2,SIDE┆ 0x08ae0…08b00 43 32 4b 0b 30 31 30 30 20 50 52 49 4e 54 20 0b 36 30 31 31 30 20 50 52 49 4e 54 20 22 54 72 65 ┆C2K 0100 PRINT 60110 PRINT "Tre┆ 0x08b00…08b20 (4, 0, 12) 6b 61 6e 74 20 6e 75 6d 6d 65 72 20 33 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆kant nummer 3. ┆ 0x08b20…08b40 20 20 20 20 20 20 22 36 4a 30 31 32 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 64 65 20 ┆ "6J0120 INPUT "Indtast de ┆ 0x08b40…08b60 74 72 65 20 73 69 64 65 72 20 69 20 74 72 65 6b 61 6e 74 65 6e 3a 20 20 20 20 20 20 20 22 3a 53 ┆tre sider i trekanten: ":S┆ 0x08b60…08b80 49 44 45 41 33 2c 53 49 44 45 42 33 2c 53 49 44 45 43 33 4a 4d 30 31 33 30 20 2f 2f 20 2d 2d 2d ┆IDEA3,SIDEB3,SIDEC3JM0130 // ---┆ 0x08b80…08ba0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆ […0x1…] 0x08bc0…08be0 2d 2d 4d 0b 30 31 34 30 20 43 4c 45 41 52 20 0b 0e 30 31 35 30 20 4e 55 4d 4d 45 52 3a 3d 31 0e ┆--M 0140 CLEAR 0150 NUMMER:=1 ┆ 0x08be0…08c00 25 30 31 36 30 20 45 58 45 43 20 41 52 45 41 4c 28 53 49 44 45 41 31 2c 53 49 44 45 42 31 2c 53 ┆%0160 EXEC AREAL(SIDEA1,SIDEB1,S┆ 0x08c00…08c20 (4, 0, 13) 49 44 45 43 31 29 25 0e 30 31 37 30 20 4e 55 4d 4d 45 52 3a 3d 32 0e 25 30 31 38 30 20 45 58 45 ┆IDEC1)% 0170 NUMMER:=2 %0180 EXE┆ 0x08c20…08c40 43 20 41 52 45 41 4c 28 53 49 44 45 41 32 2c 53 49 44 45 42 32 2c 53 49 44 45 43 32 29 25 0e 30 ┆C AREAL(SIDEA2,SIDEB2,SIDEC2)% 0┆ 0x08c40…08c60 31 39 30 20 4e 55 4d 4d 45 52 3a 3d 33 0e 0b 30 32 30 30 20 50 52 49 4e 54 20 0b 25 30 32 31 30 ┆190 NUMMER:=3 0200 PRINT %0210┆ 0x08c60…08c80 20 45 58 45 43 20 41 52 45 41 4c 28 53 49 44 45 41 33 2c 53 49 44 45 42 33 2c 53 49 44 45 43 33 ┆ EXEC AREAL(SIDEA3,SIDEB3,SIDEC3┆ 0x08c80…08ca0 29 25 4d 30 32 32 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆)%M0220 // ---------------------┆ 0x08ca0…08cc0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆ 0x08cc0…08ce0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4d 22 30 32 33 30 20 50 52 4f 43 20 41 52 45 41 ┆----------------M"0230 PROC AREA┆ 0x08ce0…08d00 4c 28 53 49 44 45 41 2c 53 49 44 45 42 2c 53 49 44 45 43 29 22 49 30 32 34 30 20 49 46 20 53 49 ┆L(SIDEA,SIDEB,SIDEC)"I0240 IF SI┆ 0x08d00…08d20 (4, 0, 14) 44 45 41 2b 53 49 44 45 42 3c 53 49 44 45 43 20 4f 52 20 53 49 44 45 42 2b 53 49 44 45 43 3c 53 ┆DEA+SIDEB<SIDEC OR SIDEB+SIDEC<S┆ 0x08d20…08d40 49 44 45 41 20 4f 52 20 53 49 44 45 41 2b 53 49 44 45 43 3c 53 49 44 45 42 20 54 48 45 4e 20 49 ┆IDEA OR SIDEA+SIDEC<SIDEB THEN I┆ 0x08d40…08d60 13 30 32 35 30 20 45 58 45 43 20 55 44 53 4b 52 49 46 54 31 13 0a 30 32 36 30 20 45 4c 53 45 20 ┆ 0250 EXEC UDSKRIFT1 0260 ELSE ┆ 0x08d60…08d80 0a 1d 30 32 37 30 20 53 3a 3d 28 53 49 44 45 41 2b 53 49 44 45 42 2b 53 49 44 45 43 29 2f 32 1d ┆ 0270 S:=(SIDEA+SIDEB+SIDEC)/2 ┆ 0x08d80…08da0 36 30 32 38 30 20 41 52 45 41 4c 45 54 3a 3d 28 53 2a 28 53 2d 53 49 44 45 41 29 2a 28 53 2d 53 ┆60280 AREALET:=(S*(S-SIDEA)*(S-S┆ 0x08da0…08dc0 49 44 45 42 29 2a 28 53 2d 53 49 44 45 43 29 29 2a 2a 28 31 2f 32 29 36 1f 30 32 39 30 20 4f 4d ┆IDEB)*(S-SIDEC))**(1/2)6 0290 OM┆ 0x08dc0…08de0 4b 52 45 44 53 3a 3d 53 49 44 45 41 2b 53 49 44 45 42 2b 53 49 44 45 43 1f 13 30 33 30 30 20 45 ┆KREDS:=SIDEA+SIDEB+SIDEC 0300 E┆ 0x08de0…08e00 58 45 43 20 55 44 53 4b 52 49 46 54 32 13 0b 30 33 31 30 20 45 4e 44 49 46 20 0b 12 30 33 32 30 ┆XEC UDSKRIFT2 0310 ENDIF 0320┆ 0x08e00…08e20 (4, 0, 15) 20 45 4e 44 50 52 4f 43 20 41 52 45 41 4c 12 4d 30 33 33 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d ┆ ENDPROC AREAL M0330 // --------┆ 0x08e20…08e40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆ 0x08e40…08e60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4d 13 30 ┆-----------------------------M 0┆ 0x08e60…08e80 33 34 30 20 50 52 4f 43 20 55 44 53 4b 52 49 46 54 31 13 0b 30 33 35 30 20 50 52 49 4e 54 20 0b ┆340 PROC UDSKRIFT1 0350 PRINT ┆ 0x08e80…08ea0 4b 30 33 36 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 4e 75 6d 6d 65 72 20 20 23 23 23 20 20 ┆K0360 PRINT USING "Nummer ### ┆ 0x08ea0…08ec0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x08ec0…08ee0 20 20 20 20 22 3a 4e 55 4d 4d 45 52 4b 44 30 33 37 30 20 50 52 49 4e 54 20 22 44 65 6e 6e 65 20 ┆ ":NUMMERKD0370 PRINT "Denne ┆ 0x08ee0…08f00 74 72 65 6b 61 6e 74 20 65 6b 73 69 73 74 65 72 65 72 20 69 6b 6b 65 2c 20 73 7d 20 64 75 20 6d ┆trekant eksisterer ikke, så du m┆ 0x08f00…08f20 (4, 0, 16) 7d 20 6e 6f 6b 20 70 72 7c 76 65 20 69 67 65 6e 2e 22 44 16 30 33 38 30 20 45 4e 44 50 52 4f 43 ┆å nok prøve igen."D 0380 ENDPROC┆ 0x08f20…08f40 20 55 44 53 4b 52 49 46 54 31 16 4d 30 33 39 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ UDSKRIFT1 M0390 // ------------┆ 0x08f40…08f60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆ 0x08f60…08f80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4d 13 30 34 30 30 20 ┆-------------------------M 0400 ┆ 0x08f80…08fa0 50 52 4f 43 20 55 44 53 4b 52 49 46 54 32 13 0b 30 34 31 30 20 50 52 49 4e 54 20 0b 4b 30 34 32 ┆PROC UDSKRIFT2 0410 PRINT K042┆ 0x08fa0…08fc0 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 4e 75 6d 6d 65 72 20 20 23 23 23 20 20 20 20 20 20 ┆0 PRINT USING "Nummer ### ┆ 0x08fc0…08fe0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x08fe0…09000 22 3a 4e 55 4d 4d 45 52 4b 4c 30 34 33 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 53 69 64 65 ┆":NUMMERKL0430 PRINT USING "Side┆ 0x09000…09020 (4, 1, 1) 6e 20 61 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆n a: ┆ 0x09020…09040 20 20 20 20 20 23 23 23 23 2e 23 23 20 20 20 22 3a 53 49 44 45 41 4c 4c 30 34 34 30 20 50 52 49 ┆ ####.## ":SIDEALL0440 PRI┆ 0x09040…09060 4e 54 20 55 53 49 4e 47 20 22 53 69 64 65 6e 20 62 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆NT USING "Siden b: ┆ 0x09060…09080 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 23 23 23 2e 23 23 20 20 20 22 3a 53 ┆ ####.## ":S┆ 0x09080…090a0 49 44 45 42 4c 4c 30 34 35 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 53 69 64 65 6e 20 63 3a ┆IDEBLL0450 PRINT USING "Siden c:┆ 0x090a0…090c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x090c0…090e0 20 23 23 23 23 2e 23 23 20 20 20 22 3a 53 49 44 45 43 4c 4b 30 34 36 30 20 50 52 49 4e 54 20 55 ┆ ####.## ":SIDECLK0460 PRINT U┆ 0x090e0…09100 53 49 4e 47 20 22 4f 6d 6b 72 65 64 73 65 6e 20 61 66 20 74 72 65 6b 61 6e 74 65 6e 3a 20 20 20 ┆SING "Omkredsen af trekanten: ┆ 0x09100…09120 (4, 1, 2) 48 45 52 4f 4e 33 20 20 4b 42 01 08 00 00 00 00 08 00 09 09 00 09 41 07 00 20 00 45 52 4f 4e 33 ┆HERON3 KB A ERON3┆ 0x09120…09140 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 23 23 23 2e 23 23 22 3a 4f 4d 4b 52 45 44 53 4b ┆ ####.##":OMKREDSK┆ 0x09140…09160 4c 30 34 37 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 41 72 65 61 6c 65 74 20 61 66 20 74 72 ┆L0470 PRINT USING "Arealet af tr┆ 0x09160…09180 65 6b 61 6e 74 65 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 23 23 23 ┆ekanten: ####┆ 0x09180…091a0 2e 23 23 20 22 3a 41 52 45 41 4c 45 54 4c 16 30 34 38 30 20 45 4e 44 50 52 4f 43 20 55 44 53 4b ┆.## ":AREALETL 0480 ENDPROC UDSK┆ 0x091a0…091c0 52 49 46 54 32 16 4d 30 34 39 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆RIFT2 M0490 // -----------------┆ 0x091c0…091e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆ 0x091e0…09200 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4d 00 00 4d 00 00 72 20 31 2e 22 1e ┆--------------------M M r 1." ┆ 0x09200…09300 (4, 1, 3) 0x63[0x100] […0x6…] 0x09900…09920 (4, 1, 10) ExtentHdr {name=»ANDENGR1«, typ=»K«, seg=»A«, next=0x00, basis=0x0005, nextext={DA 0000,00 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0009,0e (0x009d00)}, 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 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 000b,09 (0x00b800)}, 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 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 000b,0c (0x00bb00)}, 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 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 000c,04 (0x00c300)}, 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 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 000c,0a (0x00c900)}, 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 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 000d,0d (0x00dc00)}, f04=»A «, postl=0x005f, f99=» «} 0x0ca20…0dd00 Extent[0x12e0] 0x0dd00…0dd20 (6, 1, 14) 55 44 4c 41 4e 44 20 20 4b 41 01 08 00 0e 00 05 00 00 00 0e 00 05 41 0c 00 fe 00 44 4c 41 4e 44 ┆UDLAND KA A DLAND┆ 0x0dd20…0dd40 49 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆I0010 // -----------------------┆ 0x0dd40…0dd60 2d 2d 2d 2d 2d 20 75 64 6c 61 6e 64 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆----- udland -------------------┆ 0x0dd60…0dd80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 08 30 30 32 30 20 2f 2f 20 08 17 30 30 32 35 20 49 4e 54 45 47 ┆----------I 0020 // 0025 INTEG┆ 0x0dd80…0dda0 45 52 20 54 52 55 45 2c 46 41 4c 53 45 17 15 30 30 32 36 20 54 52 55 45 3a 3d 31 3b 46 41 4c 53 ┆ER TRUE,FALSE 0026 TRUE:=1;FALS┆ 0x0dda0…0ddc0 45 3a 3d 30 15 0b 30 30 33 30 20 43 4c 45 41 52 20 0b 0f 30 30 34 30 20 43 55 52 53 4f 52 20 35 ┆E:=0 0030 CLEAR 0040 CURSOR 5┆ 0x0ddc0…0dde0 2c 35 0f 38 30 30 35 30 20 50 52 49 4e 54 20 22 42 20 52 20 45 20 56 20 50 20 4f 20 53 20 54 20 ┆,5 80050 PRINT "B R E V P O S T ┆ 0x0dde0…0de00 20 20 54 20 49 20 4c 20 20 20 55 20 44 20 4c 20 41 20 4e 20 44 20 45 20 54 20 2e 22 38 0f 30 30 ┆ T I L U D L A N D E T ."8 00┆ 0x0de00…0de20 (6, 1, 15) 36 30 20 43 55 52 53 4f 52 20 35 2c 36 0f 38 30 30 37 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d ┆60 CURSOR 5,6 80070 PRINT "-----┆ 0x0de20…0de40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆ 0x0de40…0de60 2d 2d 2d 2d 2d 2d 22 38 10 30 30 38 30 20 43 55 52 53 4f 52 20 35 2c 31 32 10 3d 30 30 39 30 20 ┆------"8 0080 CURSOR 5,12 =0090 ┆ 0x0de60…0de80 50 52 49 4e 54 20 22 4e 6f 72 64 65 6e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ┆PRINT "Norden...................┆ 0x0de80…0dea0 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 54 61 73 74 20 31 2e 22 3d 10 30 31 30 30 20 43 ┆................Tast 1."= 0100 C┆ 0x0dea0…0dec0 55 52 53 4f 52 20 35 2c 31 34 10 3d 30 31 31 30 20 50 52 49 4e 54 20 22 43 45 50 54 2d 6c 61 6e ┆URSOR 5,14 =0110 PRINT "CEPT-lan┆ 0x0dec0…0dee0 64 65 6e 65 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ┆dene............................┆ 0x0dee0…0df00 2e 54 61 73 74 20 32 2e 22 3d 10 30 31 32 30 20 43 55 52 53 4f 52 20 35 2c 31 36 10 3d 30 31 33 ┆.Tast 2."= 0120 CURSOR 5,16 =013┆ 0x0df00…0df20 (6, 1, 16) 30 20 50 52 49 4e 54 20 22 5c 76 72 69 67 65 20 75 64 6c 61 6e 64 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ┆0 PRINT "Øvrige udland..........┆ 0x0df20…0df40 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 54 61 73 74 20 33 2e 22 3d 0b 30 31 34 30 ┆..................Tast 3."= 0140┆ 0x0df40…0df60 20 50 52 49 4e 54 20 0b 10 30 31 35 30 20 43 55 52 53 4f 52 20 35 2c 31 38 10 3f 30 31 36 30 20 ┆ PRINT 0150 CURSOR 5,18 ?0160 ┆ 0x0df60…0df80 49 4e 50 55 54 20 22 4e 75 6d 6d 65 72 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆INPUT "Nummer: ┆ 0x0df80…0dfa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 54 41 4c 3f 10 30 31 37 30 ┆ ":TAL? 0170┆ 0x0dfa0…0dfc0 20 43 55 52 53 4f 52 20 35 2c 32 31 10 40 30 31 38 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 ┆ CURSOR 5,21 @0180 INPUT "Indtas┆ 0x0dfc0…0dfe0 74 20 62 72 65 76 65 74 73 20 76 7b 67 74 3a 20 28 69 6b 6b 65 20 6f 76 65 72 20 32 30 30 30 20 ┆t brevets vægt: (ikke over 2000 ┆ 0x0dfe0…0e000 67 2e 29 20 20 20 20 20 22 3a 56 5b 47 54 40 0b 30 31 39 30 20 50 52 49 4e 54 20 0b 13 30 32 30 ┆g.) ":VÆGT@ 0190 PRINT 020┆ 0x0e000…0e020 (7, 0, 1) 30 20 49 46 20 54 41 4c 3d 31 20 54 48 45 4e 20 13 12 30 32 31 30 20 43 41 53 45 20 54 52 55 45 ┆0 IF TAL=1 THEN 0210 CASE TRUE┆ 0x0e020…0e040 20 4f 46 20 12 12 30 32 32 30 20 57 48 45 4e 20 56 5b 47 54 3c 3d 32 30 12 0f 30 32 33 30 20 50 ┆ OF 0220 WHEN VÆGT<=20 0230 P┆ 0x0e040…0e060 4f 52 54 4f 3a 3d 32 35 30 0f 13 30 32 34 30 20 57 48 45 4e 20 56 5b 47 54 3c 3d 31 30 30 13 0f ┆ORTO:=250 0240 WHEN VÆGT<=100 ┆ 0x0e060…0e080 30 32 35 30 20 50 4f 52 54 4f 3a 3d 33 35 30 0f 13 30 32 36 30 20 57 48 45 4e 20 56 5b 47 54 3c ┆0250 PORTO:=350 0260 WHEN VÆGT<┆ 0x0e080…0e0a0 3d 32 35 30 13 0f 30 32 37 30 20 50 4f 52 54 4f 3a 3d 35 30 30 0f 13 30 32 38 30 20 57 48 45 4e ┆=250 0270 PORTO:=500 0280 WHEN┆ 0x0e0a0…0e0c0 20 56 5b 47 54 3c 3d 35 30 30 13 0f 30 32 39 30 20 50 4f 52 54 4f 3a 3d 38 30 30 0f 14 30 33 30 ┆ VÆGT<=500 0290 PORTO:=800 030┆ 0x0e0c0…0e0e0 30 20 57 48 45 4e 20 56 5b 47 54 3c 3d 31 30 30 30 14 10 30 33 31 30 20 50 4f 52 54 4f 3a 3d 33 ┆0 WHEN VÆGT<=1000 0310 PORTO:=3┆ 0x0e0e0…0e100 30 30 30 10 14 30 33 32 30 20 57 48 45 4e 20 56 5b 47 54 3c 3d 32 30 30 30 14 10 30 33 33 30 20 ┆000 0320 WHEN VÆGT<=2000 0330 ┆ 0x0e100…0e120 (7, 0, 2) 50 4f 52 54 4f 3a 3d 39 30 30 30 10 0f 30 33 34 30 20 4f 54 48 45 52 57 49 53 45 20 0f 0b 30 33 ┆PORTO:=9000 0340 OTHERWISE 03┆ 0x0e120…0e140 35 30 20 50 52 49 4e 54 20 0b 43 30 33 36 30 20 50 52 49 4e 54 20 22 20 20 20 20 44 65 74 74 65 ┆50 PRINT C0360 PRINT " Dette┆ 0x0e140…0e160 20 62 72 65 76 20 68 7c 72 65 72 20 76 69 73 74 20 75 6e 64 65 72 20 70 61 6b 6b 65 70 6f 73 74 ┆ brev hører vist under pakkepost┆ 0x0e160…0e180 65 6e 2e 20 50 72 7c 76 20 64 65 72 2e 22 43 10 30 33 37 30 20 43 55 52 53 4f 52 20 35 2c 32 33 ┆en. Prøv der."C 0370 CURSOR 5,23┆ 0x0e180…0e1a0 10 09 30 33 38 30 20 45 4e 44 20 09 0d 30 33 39 30 20 45 4e 44 43 41 53 45 20 0d 0b 30 34 30 30 ┆ 0380 END 0390 ENDCASE 0400┆ 0x0e1a0…0e1c0 20 50 52 49 4e 54 20 0b 43 30 34 31 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 20 20 20 20 42 ┆ PRINT C0410 PRINT USING " B┆ 0x0e1c0…0e1e0 72 65 76 65 74 73 20 76 7b 67 74 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 23 23 23 23 ┆revets vægt: #####┆ 0x0e1e0…0e200 23 23 20 67 2e 20 22 3a 56 5b 47 54 43 48 30 34 32 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 ┆## g. ":VÆGTCH0420 PRINT USING "┆ 0x0e200…0e220 (7, 0, 3) 20 20 20 20 50 6f 72 74 6f 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 ┆ Porto: #┆ 0x0e220…0e240 23 23 23 23 2e 23 23 20 6b 72 2e 22 3a 50 4f 52 54 4f 2f 31 30 30 48 0a 30 34 33 30 20 45 4c 53 ┆####.## kr.":PORTO/100H 0430 ELS┆ 0x0e240…0e260 45 20 0a 1c 30 34 34 30 20 49 46 20 54 41 4c 3d 32 20 4f 52 20 54 41 4c 3d 33 20 54 48 45 4e 20 ┆E 0440 IF TAL=2 OR TAL=3 THEN ┆ 0x0e260…0e280 1c 12 30 34 35 30 20 43 41 53 45 20 54 52 55 45 20 4f 46 20 12 12 30 34 36 30 20 57 48 45 4e 20 ┆ 0450 CASE TRUE OF 0460 WHEN ┆ 0x0e280…0e2a0 56 5b 47 54 3c 3d 32 30 12 1d 30 34 37 30 20 49 46 20 54 41 4c 3d 32 20 54 48 45 4e 20 50 4f 52 ┆VÆGT<=20 0470 IF TAL=2 THEN POR┆ 0x0e2a0…0e2c0 54 4f 3a 3d 32 35 30 1d 1d 30 34 38 30 20 49 46 20 54 41 4c 3d 33 20 54 48 45 4e 20 50 4f 52 54 ┆TO:=250 0480 IF TAL=3 THEN PORT┆ 0x0e2c0…0e2e0 4f 3a 3d 33 35 30 1d 13 30 34 39 30 20 57 48 45 4e 20 56 5b 47 54 3c 3d 31 30 30 13 0f 30 35 30 ┆O:=350 0490 WHEN VÆGT<=100 050┆ 0x0e2e0…0e300 30 20 50 4f 52 54 4f 3a 3d 38 30 30 0f 13 30 35 31 30 20 57 48 45 4e 20 56 5b 47 54 3c 3d 31 30 ┆0 PORTO:=800 0510 WHEN VÆGT<=10┆ 0x0e300…0e320 (7, 0, 4) 30 13 0f 30 35 32 30 20 50 4f 52 54 4f 3a 3d 38 30 30 0f 13 30 35 33 30 20 57 48 45 4e 20 56 5b ┆0 0520 PORTO:=800 0530 WHEN VÆ┆ 0x0e320…0e340 47 54 3c 3d 32 35 30 13 10 30 35 34 30 20 50 4f 52 54 4f 3a 3d 31 37 30 30 10 13 30 35 35 30 20 ┆GT<=250 0540 PORTO:=1700 0550 ┆ 0x0e340…0e360 57 48 45 4e 20 56 5b 47 54 3c 3d 35 30 30 13 10 30 35 36 30 20 50 4f 52 54 4f 3a 3d 33 32 30 30 ┆WHEN VÆGT<=500 0560 PORTO:=3200┆ 0x0e360…0e380 10 14 30 35 37 30 20 57 48 45 4e 20 56 5b 47 54 3c 3d 31 30 30 30 14 10 30 35 38 30 20 50 4f 52 ┆ 0570 WHEN VÆGT<=1000 0580 POR┆ 0x0e380…0e3a0 54 4f 3a 3d 35 36 30 30 10 14 30 35 39 30 20 57 48 45 4e 20 56 5b 47 54 3c 3d 32 30 30 30 14 10 ┆TO:=5600 0590 WHEN VÆGT<=2000 ┆ 0x0e3a0…0e3c0 30 36 30 30 20 50 4f 52 54 4f 3a 3d 39 30 30 30 10 0f 30 36 31 30 20 4f 54 48 45 52 57 49 53 45 ┆0600 PORTO:=9000 0610 OTHERWISE┆ 0x0e3c0…0e3e0 20 0f 0b 30 36 32 30 20 50 52 49 4e 54 20 0b 3a 30 36 33 30 20 50 52 49 4e 54 20 22 20 20 20 20 ┆ 0620 PRINT :0630 PRINT " ┆ 0x0e3e0…0e400 44 65 74 74 65 20 62 72 65 76 20 62 7c 72 20 76 69 73 74 20 67 7d 20 6d 65 64 20 73 74 61 74 73 ┆Dette brev bør vist gå med stats┆ 0x0e400…0e420 (7, 0, 5) 62 61 6e 65 72 6e 65 2e 20 22 3a 10 30 36 34 30 20 43 55 52 53 4f 52 20 35 2c 32 33 10 09 30 36 ┆banerne. ": 0640 CURSOR 5,23 06┆ 0x0e420…0e440 35 30 20 45 4e 44 20 09 0d 30 36 36 30 20 45 4e 44 43 41 53 45 20 0d 41 30 36 37 30 20 50 52 49 ┆50 END 0660 ENDCASE A0670 PRI┆ 0x0e440…0e460 4e 54 20 55 53 49 4e 47 20 22 20 20 20 20 42 72 65 76 65 74 73 20 76 7b 67 74 3a 20 20 20 20 20 ┆NT USING " Brevets vægt: ┆ 0x0e460…0e480 20 20 20 20 20 20 20 23 23 23 23 23 23 23 23 20 67 2e 20 22 3a 56 5b 47 54 41 46 30 36 38 30 20 ┆ ######## g. ":VÆGTAF0680 ┆ 0x0e480…0e4a0 50 52 49 4e 54 20 55 53 49 4e 47 20 22 20 20 20 20 50 6f 72 74 6f 3a 20 20 20 20 20 20 20 20 20 ┆PRINT USING " Porto: ┆ 0x0e4a0…0e4c0 20 20 20 20 20 20 20 20 20 23 23 23 23 23 23 2e 23 23 20 6b 72 2e 22 3a 50 4f 52 54 4f 2f 31 30 ┆ ######.## kr.":PORTO/10┆ 0x0e4c0…0e4e0 30 46 0a 30 36 39 30 20 45 4c 53 45 20 0a 38 30 37 30 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 ┆0F 0690 ELSE 80700 PRINT " ┆ 0x0e4e0…0e500 44 75 20 68 61 72 20 76 69 73 74 20 74 61 73 74 65 74 20 66 6f 72 6b 65 72 74 2e 20 50 72 7c 76 ┆Du har vist tastet forkert. Prøv┆ 0x0e500…0e520 (7, 0, 6) 55 44 4c 41 4e 44 20 20 4b 42 01 08 00 00 00 00 0d 00 0d 0e 00 0d 41 0c 00 20 00 44 4c 41 4e 44 ┆UDLAND KB A DLAND┆ 0x0e520…0e540 20 69 67 65 6e 2e 22 38 0b 30 37 31 30 20 45 4e 44 49 46 20 0b 0b 30 37 32 30 20 45 4e 44 49 46 ┆ igen."8 0710 ENDIF 0720 ENDIF┆ 0x0e540…0e560 20 0b 10 30 37 33 30 20 43 55 52 53 4f 52 20 35 2c 32 33 10 09 30 37 34 30 20 45 4e 44 20 09 00 ┆ 0730 CURSOR 5,23 0740 END ┆ 0x0e560…0e580 00 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 08 30 30 32 30 20 2f 2f 20 08 17 30 30 32 35 20 49 4e 54 45 47 ┆ ---------I 0020 // 0025 INTEG┆ 0x0e580…0e5a0 45 52 20 54 52 55 45 2c 46 41 4c 53 45 17 15 30 30 32 36 20 54 52 55 45 3a 3d 31 3b 46 41 4c 53 ┆ER TRUE,FALSE 0026 TRUE:=1;FALS┆ 0x0e5a0…0e5c0 45 3a 3d 30 15 0b 30 30 33 30 20 43 4c 45 41 52 20 0b 0f 30 30 34 30 20 43 55 52 53 4f 52 20 35 ┆E:=0 0030 CLEAR 0040 CURSOR 5┆ 0x0e5c0…0e5e0 2c 35 0f 38 30 30 35 30 20 50 52 49 4e 54 20 22 42 20 52 20 45 20 56 20 50 20 4f 20 53 20 54 20 ┆,5 80050 PRINT "B R E V P O S T ┆ 0x0e5e0…0e600 20 20 54 20 49 20 4c 20 20 20 55 20 44 20 4c 20 41 20 4e 20 44 20 45 20 54 20 2e 22 38 0f 30 30 ┆ T I L U D L A N D E T ."8 00┆ 0x0e600…0e700 (7, 0, 7) 0x63[0x100] […0x6…] 0x0ed00…0ed20 (7, 0, 14) ExtentHdr {name=»DEMOFIL «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 000f,07 (0x00f600)}, 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 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0010,01 (0x010000)}, 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 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0010,03 (0x010200)}, f04=»A «, postl=0x00fe, f99=»AMME «} 0x10120…10300 Extent[0x1e0] 0x10300…10320 (8, 0, 4) 4f 56 45 52 46 4c 31 20 4b 41 01 0a 00 10 00 0d 00 00 00 10 00 0d 41 0f 00 fe 00 41 4d 4d 45 20 ┆OVERFL1 KA A AMME ┆ 0x10320…10340 3f 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 ┆?0010 // ---------------------- ┆ 0x10340…10360 6f 76 65 72 66 6c 5f 31 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆overfl_1 -----------------------┆ 0x10360…10380 3f 38 30 30 32 30 20 2f 2f 20 55 64 72 65 67 6e 65 72 20 66 6f 72 73 6b 65 6c 6c 69 67 65 20 6f ┆?80020 // Udregner forskellige o┆ 0x10380…103a0 76 65 72 66 6c 61 64 65 72 20 76 2f 6d 75 6c 74 69 66 6f 72 67 72 65 6e 65 74 38 13 30 30 33 30 ┆verflader v/multiforgrenet8 0030┆ 0x103a0…103c0 20 2f 2f 20 49 46 2d 73 7b 74 6e 69 6e 67 2e 13 0b 30 30 34 30 20 43 4c 45 41 52 20 0b 3e 30 30 ┆ // IF-sætning. 0040 CLEAR >00┆ 0x103c0…103e0 35 30 20 50 52 49 4e 54 20 22 44 65 74 74 65 20 70 72 6f 67 72 61 6d 20 75 64 73 6b 72 69 76 65 ┆50 PRINT "Dette program udskrive┆ 0x103e0…10400 72 20 64 65 6e 20 73 61 6d 6c 65 64 65 20 6f 76 65 72 66 6c 61 64 65 20 61 66 3a 22 3e 3e 30 30 ┆r den samlede overflade af:">>00┆ 0x10400…10420 (8, 0, 5) 36 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆60 PRINT "----------------------┆ 0x10420…10440 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 3e 18 30 30 ┆---------------------------"> 00┆ 0x10440…10460 37 30 20 50 52 49 4e 54 20 22 31 2e 20 20 20 4b 61 73 73 65 2e 22 18 1b 30 30 38 30 20 50 52 49 ┆70 PRINT "1. Kasse." 0080 PRI┆ 0x10460…10480 4e 54 20 22 32 2e 20 20 20 43 79 6c 69 6e 64 65 72 2e 22 1b 18 30 30 39 30 20 50 52 49 4e 54 20 ┆NT "2. Cylinder." 0090 PRINT ┆ 0x10480…104a0 22 33 2e 20 20 20 4b 65 67 6c 65 2e 22 18 1c 30 31 30 30 20 50 52 49 4e 54 20 22 34 2e 20 20 20 ┆"3. Kegle." 0100 PRINT "4. ┆ 0x104a0…104c0 4b 65 67 6c 65 73 74 75 62 2e 22 1c 18 30 31 31 30 20 50 52 49 4e 54 20 22 35 2e 20 20 20 4b 75 ┆Keglestub." 0110 PRINT "5. Ku┆ 0x104c0…104e0 67 6c 65 2e 22 18 0b 30 31 32 30 20 50 52 49 4e 54 20 0b 0b 30 31 33 30 20 50 52 49 4e 54 20 0b ┆gle." 0120 PRINT 0130 PRINT ┆ 0x104e0…10500 0b 30 31 34 30 20 50 52 49 4e 54 20 0b 37 30 31 35 30 20 50 52 49 4e 54 20 22 49 6e 64 74 61 73 ┆ 0140 PRINT 70150 PRINT "Indtas┆ 0x10500…10520 (8, 0, 6) 74 20 64 65 74 20 7c 6e 73 6b 65 64 65 20 6e 75 6d 6d 65 72 20 66 6f 72 20 6f 76 65 72 66 6c 61 ┆t det ønskede nummer for overfla┆ 0x10520…10540 64 65 3a 22 3b 37 10 30 31 36 30 20 49 4e 50 55 54 20 5c 4e 53 4b 45 10 3f 30 31 37 30 20 2f 2f ┆de:";7 0160 INPUT ØNSKE ?0170 //┆ 0x10540…10560 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ -------------------------------┆ 0x10560…10580 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3f 3e 30 31 38 30 20 2f ┆------------------------?>0180 /┆ 0x10580…105a0 2f 20 4e 75 20 66 69 6e 64 65 73 20 64 65 20 66 6f 72 73 6b 65 6c 6c 69 67 65 20 72 75 6d 66 61 ┆/ Nu findes de forskellige rumfa┆ 0x105a0…105c0 6e 67 20 76 65 64 20 65 6e 20 6d 75 6c 74 69 66 6f 72 67 72 65 6e 65 74 3e 13 30 31 39 30 20 2f ┆ng ved en multiforgrenet> 0190 /┆ 0x105c0…105e0 2f 20 49 46 2d 73 7b 74 6e 69 6e 67 2e 13 0b 30 32 30 30 20 43 4c 45 41 52 20 0b 15 30 32 31 30 ┆/ IF-sætning. 0200 CLEAR 0210┆ 0x105e0…10600 20 49 46 20 5c 4e 53 4b 45 3d 31 20 54 48 45 4e 20 15 0b 30 32 32 30 20 50 52 49 4e 54 20 0b 2f ┆ IF ØNSKE=1 THEN 0220 PRINT /┆ 0x10600…10620 (8, 0, 7) 30 32 33 30 20 50 52 49 4e 54 20 22 44 65 6e 20 73 61 6d 6c 65 64 65 20 6f 76 65 72 66 6c 61 64 ┆0230 PRINT "Den samlede overflad┆ 0x10620…10640 65 20 61 66 20 65 6e 20 6b 61 73 73 65 3a 22 2f 0b 30 32 34 30 20 50 52 49 4e 54 20 0b 32 30 32 ┆e af en kasse:"/ 0240 PRINT 202┆ 0x10640…10660 35 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6c 7b 6e 67 64 65 3a 20 20 20 20 20 20 20 ┆50 INPUT "Indtast længde: ┆ 0x10660…10680 20 20 20 20 20 20 20 20 22 3a 4c 5b 4e 47 44 45 32 32 30 32 36 30 20 49 4e 50 55 54 20 22 49 6e ┆ ":LÆNGDE220260 INPUT "In┆ 0x10680…106a0 64 74 61 73 74 20 62 72 65 64 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 42 52 ┆dtast bredde: ":BR┆ 0x106a0…106c0 45 44 44 45 32 31 30 32 37 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 68 7c 6a 64 65 3a ┆EDDE210270 INPUT "Indtast højde:┆ 0x106c0…106e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 48 5c 4a 44 45 31 0b 30 32 38 30 20 50 52 ┆ ":HØJDE1 0280 PR┆ 0x106e0…10700 49 4e 54 20 0b 0b 30 32 39 30 20 50 52 49 4e 54 20 0b 3b 30 33 30 30 20 4f 56 45 52 46 4c 41 44 ┆INT 0290 PRINT ;0300 OVERFLAD┆ 0x10700…10720 (8, 0, 8) 45 3a 3d 28 4c 5b 4e 47 44 45 2a 42 52 45 44 44 45 2b 42 52 45 44 44 45 2a 48 5c 4a 44 45 2b 48 ┆E:=(LÆNGDE*BREDDE+BREDDE*HØJDE+H┆ 0x10720…10740 5c 4a 44 45 2a 4c 5b 4e 47 44 45 29 2a 32 3b 39 30 33 31 30 20 50 52 49 4e 54 20 22 44 65 6e 20 ┆ØJDE*LÆNGDE)*2;90310 PRINT "Den ┆ 0x10740…10760 73 61 6d 6c 65 64 65 20 6f 76 65 72 66 6c 61 64 65 20 61 66 20 6b 61 73 73 65 6e 3a 20 20 22 2c ┆samlede overflade af kassen: ",┆ 0x10760…10780 4f 56 45 52 46 4c 41 44 45 39 0a 30 33 32 30 20 45 4c 53 45 20 0a 15 30 33 32 35 20 49 46 20 5c ┆OVERFLADE9 0320 ELSE 0325 IF Ø┆ 0x10780…107a0 4e 53 4b 45 3d 32 20 54 48 45 4e 20 15 32 30 33 33 30 20 50 52 49 4e 54 20 22 44 65 6e 20 73 61 ┆NSKE=2 THEN 20330 PRINT "Den sa┆ 0x107a0…107c0 6d 6c 65 64 65 20 6f 76 65 72 66 6c 61 64 65 20 61 66 20 65 6e 20 63 79 6c 69 6e 64 65 72 3a 22 ┆mlede overflade af en cylinder:"┆ 0x107c0…107e0 32 0b 30 33 34 30 20 50 52 49 4e 54 20 0b 0b 30 33 35 30 20 50 52 49 4e 54 20 0b 34 30 33 36 30 ┆2 0340 PRINT 0350 PRINT 40360┆ 0x107e0…10800 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 63 79 6c 69 6e 64 65 72 65 6e 73 20 72 61 64 69 ┆ INPUT "Indtast cylinderens radi┆ 0x10800…10820 (8, 0, 9) 75 73 3a 20 20 20 20 20 22 3a 52 41 44 49 55 53 34 0b 30 33 37 30 20 50 52 49 4e 54 20 0b 33 30 ┆us: ":RADIUS4 0370 PRINT 30┆ 0x10820…10840 33 38 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 63 79 6c 69 6e 64 65 72 65 6e 73 20 68 ┆380 INPUT "Indtast cylinderens h┆ 0x10840…10860 7c 6a 64 65 3a 20 20 20 20 20 20 22 3a 48 5c 4a 44 45 33 0b 30 33 39 30 20 50 52 49 4e 54 20 0b ┆øjde: ":HØJDE3 0390 PRINT ┆ 0x10860…10880 0b 30 34 30 30 20 50 52 49 4e 54 20 0b 2c 30 34 31 30 20 4f 56 45 52 46 4c 41 44 45 3a 3d 32 2a ┆ 0400 PRINT ,0410 OVERFLADE:=2*┆ 0x10880…108a0 33 2e 31 34 2a 52 41 44 49 55 53 2a 28 48 5c 4a 44 45 2b 52 41 44 49 55 53 29 2c 0b 30 34 32 30 ┆3.14*RADIUS*(HØJDE+RADIUS), 0420┆ 0x108a0…108c0 20 50 52 49 4e 54 20 0b 3b 30 34 33 30 20 50 52 49 4e 54 20 22 44 65 6e 20 74 6f 74 61 6c 65 20 ┆ PRINT ;0430 PRINT "Den totale ┆ 0x108c0…108e0 6f 76 65 72 66 6c 61 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2c 4f 56 45 52 46 ┆overflade: ",OVERF┆ 0x108e0…10900 4c 41 44 45 3b 0a 30 34 34 30 20 45 4c 53 45 20 0a 15 30 34 34 35 20 49 46 20 5c 4e 53 4b 45 3d ┆LADE; 0440 ELSE 0445 IF ØNSKE=┆ 0x10900…10920 (8, 0, 10) 33 20 54 48 45 4e 20 15 29 30 34 35 30 20 50 52 49 4e 54 20 22 54 6f 74 61 6c 6f 76 65 72 66 6c ┆3 THEN )0450 PRINT "Totaloverfl┆ 0x10920…10940 61 64 65 6e 20 61 66 20 65 6e 20 6b 65 67 6c 65 3a 22 29 0b 30 34 36 30 20 50 52 49 4e 54 20 0b ┆aden af en kegle:") 0460 PRINT ┆ 0x10940…10960 34 30 34 37 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6b 65 67 6c 65 6e 73 20 72 61 64 ┆40470 INPUT "Indtast keglens rad┆ 0x10960…10980 69 75 73 3a 20 20 20 20 20 20 20 20 20 22 3a 52 41 44 49 55 53 34 33 30 34 38 30 20 49 4e 50 55 ┆ius: ":RADIUS430480 INPU┆ 0x10980…109a0 54 20 22 49 6e 64 74 61 73 74 20 6b 65 67 6c 65 6e 73 20 68 7c 6a 64 65 3a 20 20 20 20 20 20 20 ┆T "Indtast keglens højde: ┆ 0x109a0…109c0 20 20 20 22 3a 48 5c 4a 44 45 33 23 30 34 39 30 20 53 49 44 45 4e 3a 3d 53 51 52 28 48 5c 4a 44 ┆ ":HØJDE3#0490 SIDEN:=SQR(HØJD┆ 0x109c0…109e0 45 2a 2a 32 2b 52 41 44 49 55 53 2a 2a 32 29 23 30 30 35 30 30 20 4f 56 45 52 46 4c 41 44 45 3a ┆E**2+RADIUS**2)#00500 OVERFLADE:┆ 0x109e0…10a00 3d 33 2e 31 34 2a 52 41 44 49 55 53 2a 2a 32 2b 33 2e 31 34 2a 52 41 44 49 55 53 2a 53 49 44 45 ┆=3.14*RADIUS**2+3.14*RADIUS*SIDE┆ 0x10a00…10a20 (8, 0, 11) 4e 30 0b 30 35 31 30 20 50 52 49 4e 54 20 0b 0b 30 35 32 30 20 50 52 49 4e 54 20 0b 2d 30 35 33 ┆N0 0510 PRINT 0520 PRINT -053┆ 0x10a20…10a40 30 20 50 52 49 4e 54 20 22 54 6f 74 61 6c 6f 76 65 72 66 6c 61 64 65 6e 20 61 66 20 65 6e 20 6b ┆0 PRINT "Totaloverfladen af en k┆ 0x10a40…10a60 65 67 6c 65 3a 20 20 20 20 22 2d 34 30 35 34 30 20 50 52 49 4e 54 20 22 52 61 64 69 75 73 3a 20 ┆egle: "-40540 PRINT "Radius: ┆ 0x10a60…10a80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2c 52 41 44 49 55 53 ┆ ",RADIUS┆ 0x10a80…10aa0 34 33 30 35 35 30 20 50 52 49 4e 54 20 22 48 7c 6a 64 65 6e 3a 20 20 20 20 20 20 20 20 20 20 20 ┆430550 PRINT "Højden: ┆ 0x10aa0…10ac0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2c 48 5c 4a 44 45 33 37 30 35 36 30 20 50 52 49 4e ┆ ",HØJDE370560 PRIN┆ 0x10ac0…10ae0 54 20 22 4f 76 65 72 66 6c 61 64 65 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆T "Overfladen: ┆ 0x10ae0…10b00 20 20 20 22 2c 4f 56 45 52 46 4c 41 44 45 37 0a 30 35 37 30 20 45 4c 53 45 20 0a 15 30 35 37 35 ┆ ",OVERFLADE7 0570 ELSE 0575┆ 0x10b00…10b20 (8, 0, 12) 20 49 46 20 5c 4e 53 4b 45 3d 34 20 54 48 45 4e 20 15 2d 30 35 38 30 20 50 52 49 4e 54 20 22 54 ┆ IF ØNSKE=4 THEN -0580 PRINT "T┆ 0x10b20…10b40 6f 74 61 6c 6f 76 65 72 66 6c 61 64 65 6e 20 61 66 20 65 6e 20 6b 65 67 6c 65 73 74 75 62 3a 22 ┆otaloverfladen af en keglestub:"┆ 0x10b40…10b60 2d 0b 30 35 39 30 20 50 52 49 4e 54 20 0b 0b 30 36 30 30 20 50 52 49 4e 54 20 0b 39 30 36 31 30 ┆- 0590 PRINT 0600 PRINT 90610┆ 0x10b60…10b80 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6b 65 67 6c 65 73 74 75 62 62 65 6e 73 20 6e 65 ┆ INPUT "Indtast keglestubbens ne┆ 0x10b80…10ba0 64 65 72 73 74 65 20 72 61 64 69 75 73 3a 20 20 20 22 3a 52 31 39 39 30 36 32 30 20 49 4e 50 55 ┆derste radius: ":R1990620 INPU┆ 0x10ba0…10bc0 54 20 22 49 6e 64 74 61 73 74 20 6b 65 67 6c 65 73 74 75 62 62 65 6e 73 20 7c 76 65 72 73 74 65 ┆T "Indtast keglestubbens øverste┆ 0x10bc0…10be0 20 72 61 64 69 75 73 3a 20 20 20 20 22 3a 52 32 39 3c 30 36 33 30 20 49 4e 50 55 54 20 22 49 6e ┆ radius: ":R29<0630 INPUT "In┆ 0x10be0…10c00 64 74 61 73 74 20 6b 65 67 6c 65 73 74 75 62 62 65 6e 73 20 68 7c 6a 64 65 3a 20 20 20 20 20 20 ┆dtast keglestubbens højde: ┆ 0x10c00…10c20 (8, 0, 13) 20 20 20 20 20 20 20 22 3a 48 5c 4a 44 45 3c 0b 30 36 34 30 20 50 52 49 4e 54 20 0b 33 30 36 35 ┆ ":HØJDE< 0640 PRINT 3065┆ 0x10c20…10c40 30 20 53 49 44 45 4e 3a 3d 49 4e 54 28 28 53 51 52 28 28 52 32 2d 52 31 29 2a 2a 32 2b 48 5c 4a ┆0 SIDEN:=INT((SQR((R2-R1)**2+HØJ┆ 0x10c40…10c60 44 45 2a 2a 32 29 2a 31 30 30 29 29 2f 31 30 30 33 43 30 36 36 30 20 4f 56 45 52 46 4c 41 44 45 ┆DE**2)*100))/1003C0660 OVERFLADE┆ 0x10c60…10c80 4e 3a 3d 49 4e 54 28 33 2e 31 34 2a 28 52 31 2a 2a 32 2b 52 32 2a 2a 32 29 2b 33 2e 31 34 2a 53 ┆N:=INT(3.14*(R1**2+R2**2)+3.14*S┆ 0x10c80…10ca0 49 44 45 4e 2a 28 52 31 2b 52 32 29 2a 31 30 30 29 2f 31 30 30 43 0b 30 36 37 30 20 50 52 49 4e ┆IDEN*(R1+R2)*100)/100C 0670 PRIN┆ 0x10ca0…10cc0 54 20 0b 3d 30 36 38 30 20 50 52 49 4e 54 20 22 52 61 64 69 75 73 20 69 20 64 65 6e 20 6e 65 64 ┆T =0680 PRINT "Radius i den ned┆ 0x10cc0…10ce0 65 72 73 74 65 20 67 72 75 6e 64 66 6c 61 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 22 2c 52 ┆erste grundflade: ",R┆ 0x10ce0…10d00 31 3d 3d 30 36 39 30 20 50 52 49 4e 54 20 22 52 61 64 69 75 73 20 69 20 64 65 6e 20 7c 76 65 72 ┆1==0690 PRINT "Radius i den øver┆ 0x10d00…10d20 (8, 0, 14) 4f 56 45 52 46 4c 31 20 4b 42 01 0a 00 00 00 00 10 00 03 11 00 07 41 0f 00 20 00 41 4d 4d 45 20 ┆OVERFL1 KB A AMME ┆ 0x10d20…10d40 73 74 65 20 66 6c 61 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2c 52 32 ┆ste flade: ",R2┆ 0x10d40…10d60 3d 40 30 37 30 30 20 50 52 49 4e 54 20 22 53 69 64 65 6c 69 6e 69 65 6e 3a 20 20 20 20 20 20 20 ┆=@0700 PRINT "Sidelinien: ┆ 0x10d60…10d80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2c 53 49 44 ┆ ",SID┆ 0x10d80…10da0 45 4e 40 40 30 37 31 30 20 50 52 49 4e 54 20 22 4b 65 67 6c 65 73 74 75 62 62 65 6e 73 20 68 7c ┆EN@@0710 PRINT "Keglestubbens hø┆ 0x10da0…10dc0 6a 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2c 48 ┆jde: ",H┆ 0x10dc0…10de0 5c 4a 44 45 40 45 30 37 32 30 20 50 52 49 4e 54 20 22 54 6f 74 61 6c 6f 76 65 72 66 6c 61 64 65 ┆ØJDE@E0720 PRINT "Totaloverflade┆ 0x10de0…10e00 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 ┆n: "┆ 0x10e00…10e20 (8, 0, 15) 2c 4f 56 45 52 46 4c 41 44 45 4e 45 0b 30 37 33 30 20 50 52 49 4e 54 20 0b 0a 30 37 34 30 20 45 ┆,OVERFLADENE 0730 PRINT 0740 E┆ 0x10e20…10e40 4c 53 45 20 0a 15 30 37 34 35 20 49 46 20 5c 4e 53 4b 45 3d 35 20 54 48 45 4e 20 15 24 30 37 35 ┆LSE 0745 IF ØNSKE=5 THEN $075┆ 0x10e40…10e60 30 20 50 52 49 4e 54 20 22 4f 76 65 72 66 6c 61 64 65 6e 20 61 66 20 65 6e 20 6b 75 67 6c 65 2e ┆0 PRINT "Overfladen af en kugle.┆ 0x10e60…10e80 22 24 0b 30 37 36 30 20 50 52 49 4e 54 20 0b 3d 30 37 37 30 20 49 4e 50 55 54 20 22 49 6e 64 74 ┆"$ 0760 PRINT =0770 INPUT "Indt┆ 0x10e80…10ea0 61 73 74 20 6b 75 67 6c 65 6e 73 20 72 61 64 69 75 73 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ast kuglens radius: ┆ 0x10ea0…10ec0 20 20 20 20 20 22 3a 52 41 44 49 55 53 3d 21 30 37 38 30 20 4f 56 45 52 46 4c 41 44 45 4e 3a 3d ┆ ":RADIUS=!0780 OVERFLADEN:=┆ 0x10ec0…10ee0 34 2a 52 41 44 49 55 53 2a 2a 32 2a 33 2e 31 34 21 0b 30 37 39 30 20 50 52 49 4e 54 20 0b 41 30 ┆4*RADIUS**2*3.14! 0790 PRINT A0┆ 0x10ee0…10f00 38 30 30 20 50 52 49 4e 54 20 22 4f 76 65 72 66 6c 61 64 65 6e 20 61 66 20 64 65 6e 6e 65 20 6b ┆800 PRINT "Overfladen af denne k┆ 0x10f00…10f20 (8, 0, 16) 75 67 6c 65 20 65 72 3a 20 20 20 20 20 20 20 20 20 20 20 20 22 2c 4f 56 45 52 46 4c 41 44 45 4e ┆ugle er: ",OVERFLADEN┆ 0x10f20…10f40 41 0b 30 38 31 30 20 50 52 49 4e 54 20 0b 0a 30 38 32 30 20 45 4c 53 45 20 0a 11 30 38 33 30 20 ┆A 0810 PRINT 0820 ELSE 0830 ┆ 0x10f40…10f60 43 55 52 53 4f 52 20 31 30 2c 32 31 11 3b 30 38 34 30 20 50 52 49 4e 54 20 22 44 75 20 68 61 72 ┆CURSOR 10,21 ;0840 PRINT "Du har┆ 0x10f60…10f80 20 69 6e 64 74 61 73 74 65 74 20 65 74 20 66 6f 72 6b 65 72 74 20 6e 75 6d 6d 65 72 2e 20 50 72 ┆ indtastet et forkert nummer. Pr┆ 0x10f80…10fa0 7c 76 20 69 67 65 6e 2e 22 3b 0b 30 38 35 30 20 45 4e 44 49 46 20 0b 0b 30 38 35 31 20 45 4e 44 ┆øv igen."; 0850 ENDIF 0851 END┆ 0x10fa0…10fc0 49 46 20 0b 0b 30 38 35 32 20 45 4e 44 49 46 20 0b 0b 30 38 35 33 20 45 4e 44 49 46 20 0b 00 00 ┆IF 0852 ENDIF 0853 ENDIF ┆ 0x10fc0…10fe0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆ […0x1…] 0x11000…11100 (8, 1, 1) 0x63[0x100] […0x6…] 0x11700…11720 (8, 1, 8) ExtentHdr {name=»BISECTIO«, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0012,01 (0x012000)}, 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 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0012,0b (0x012a00)}, 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 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0012,0f (0x012e00)}, f04=»A «, postl=0x00fe, f99=»AX_MI«} 0x12b20…12f00 Extent[0x3e0] 0x12f00…12f20 (9, 0, 16) 50 41 4b 4b 45 50 4f 53 4b 41 01 05 00 13 00 04 00 00 00 13 00 04 41 12 00 fe 00 41 58 5f 4d 49 ┆PAKKEPOSKA A AX_MI┆ 0x12f20…12f40 49 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆I0010 // -----------------------┆ 0x12f40…12f60 2d 2d 2d 2d 2d 20 70 61 6b 6b 65 70 6f 73 74 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆----- pakkepost ----------------┆ 0x12f60…12f80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 08 30 30 32 30 20 2f 2f 20 08 17 30 30 32 35 20 49 4e 54 45 47 ┆----------I 0020 // 0025 INTEG┆ 0x12f80…12fa0 45 52 20 54 52 55 45 2c 46 41 4c 53 45 17 15 30 30 32 36 20 54 52 55 45 3a 3d 31 3b 46 41 4c 53 ┆ER TRUE,FALSE 0026 TRUE:=1;FALS┆ 0x12fa0…12fc0 45 3a 3d 30 15 0b 30 30 33 30 20 43 4c 45 41 52 20 0b 0b 30 30 33 35 20 50 52 49 4e 54 20 0b 46 ┆E:=0 0030 CLEAR 0035 PRINT F┆ 0x12fc0…12fe0 30 30 34 30 20 49 4e 50 55 54 20 22 50 61 6b 6b 65 6e 73 20 76 7b 67 74 3a 20 20 20 20 28 69 6b ┆0040 INPUT "Pakkens vægt: (ik┆ 0x12fe0…13000 6b 65 20 6f 76 65 72 20 32 30 20 6b 67 2e 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ke over 20 kg.) ┆ 0x13000…13020 (9, 1, 1) 22 3a 56 5b 47 54 46 0b 30 30 35 30 20 50 52 49 4e 54 20 0b 4b 30 30 36 30 20 49 4e 50 55 54 20 ┆":VÆGTF 0050 PRINT K0060 INPUT ┆ 0x13020…13040 22 45 72 20 70 61 6b 6b 65 6e 20 61 6c 6d 69 6e 64 65 6c 69 67 20 28 74 61 6b 73 74 20 31 29 20 ┆"Er pakken almindelig (takst 1) ┆ 0x13040…13060 65 6c 6c 65 72 20 76 6f 6c 75 6d 69 6e 7c 73 20 28 74 61 6b 73 74 20 32 29 3a 20 22 3a 54 41 4c ┆eller voluminøs (takst 2): ":TAL┆ 0x13060…13080 4b 0b 30 30 37 30 20 50 52 49 4e 54 20 0b 13 30 30 38 30 20 49 46 20 54 41 4c 3d 31 20 54 48 45 ┆K 0070 PRINT 0080 IF TAL=1 THE┆ 0x13080…130a0 4e 20 13 12 30 30 39 30 20 43 41 53 45 20 54 52 55 45 20 4f 46 20 12 11 30 31 30 30 20 57 48 45 ┆N 0090 CASE TRUE OF 0100 WHE┆ 0x130a0…130c0 4e 20 56 5b 47 54 3c 3d 35 11 10 30 31 31 30 20 50 4f 52 54 4f 3a 3d 31 36 30 30 10 12 30 31 32 ┆N VÆGT<=5 0110 PORTO:=1600 012┆ 0x130c0…130e0 30 20 57 48 45 4e 20 56 5b 47 54 3c 3d 31 30 12 10 30 31 33 30 20 50 4f 52 54 4f 3a 3d 33 30 30 ┆0 WHEN VÆGT<=10 0130 PORTO:=300┆ 0x130e0…13100 30 10 12 30 31 34 30 20 57 48 45 4e 20 56 5b 47 54 3c 3d 31 35 12 10 30 31 35 30 20 50 4f 52 54 ┆0 0140 WHEN VÆGT<=15 0150 PORT┆ 0x13100…13120 (9, 1, 2) 4f 3a 3d 35 30 30 30 10 12 30 31 36 30 20 57 48 45 4e 20 56 5b 47 54 3c 3d 32 30 12 10 30 31 37 ┆O:=5000 0160 WHEN VÆGT<=20 017┆ 0x13120…13140 30 20 50 4f 52 54 4f 3a 3d 36 30 30 30 10 0f 30 31 38 30 20 4f 54 48 45 52 57 49 53 45 20 0f 0b ┆0 PORTO:=6000 0180 OTHERWISE ┆ 0x13140…13160 30 31 39 30 20 50 52 49 4e 54 20 0b 45 30 32 30 30 20 50 52 49 4e 54 20 22 44 65 6e 6e 65 20 70 ┆0190 PRINT E0200 PRINT "Denne p┆ 0x13160…13180 61 6b 6b 65 20 68 7c 72 65 72 20 76 69 73 74 20 75 6e 64 65 72 20 65 6e 20 76 6f 67 6e 6d 61 6e ┆akke hører vist under en vognman┆ 0x13180…131a0 64 20 28 20 65 6c 6c 65 72 20 46 61 6c 63 6b 29 2e 22 45 09 30 32 31 30 20 45 4e 44 20 09 0d 30 ┆d ( eller Falck)."E 0210 END 0┆ 0x131a0…131c0 32 32 30 20 45 4e 44 43 41 53 45 20 0d 0b 30 32 33 30 20 50 52 49 4e 54 20 0b 3f 30 32 34 30 20 ┆220 ENDCASE 0230 PRINT ?0240 ┆ 0x131c0…131e0 50 52 49 4e 54 20 55 53 49 4e 47 20 22 50 61 6b 6b 65 6e 73 20 76 7b 67 74 3a 20 20 20 20 20 20 ┆PRINT USING "Pakkens vægt: ┆ 0x131e0…13200 20 20 20 20 20 20 20 20 20 23 23 23 23 2e 23 23 20 6b 67 2e 22 3a 56 5b 47 54 3f 44 30 32 35 30 ┆ ####.## kg.":VÆGT?D0250┆ 0x13200…13220 (9, 1, 3) 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 50 6f 72 74 6f 3a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PRINT USING "Porto: ┆ 0x13220…13240 20 20 20 20 20 20 20 20 20 23 23 23 23 23 2e 23 23 20 6b 72 2e 22 3a 50 4f 52 54 4f 2f 31 30 30 ┆ #####.## kr.":PORTO/100┆ 0x13240…13260 44 0a 30 32 36 30 20 45 4c 53 45 20 0a 13 30 32 37 30 20 49 46 20 54 41 4c 3d 32 20 54 48 45 4e ┆D 0260 ELSE 0270 IF TAL=2 THEN┆ 0x13260…13280 20 13 12 30 32 38 30 20 43 41 53 45 20 54 52 55 45 20 4f 46 20 12 11 30 32 39 30 20 57 48 45 4e ┆ 0280 CASE TRUE OF 0290 WHEN┆ 0x13280…132a0 20 56 5b 47 54 3c 3d 35 11 10 30 33 30 30 20 50 4f 52 54 4f 3a 3d 33 32 30 30 10 12 30 33 31 30 ┆ VÆGT<=5 0300 PORTO:=3200 0310┆ 0x132a0…132c0 20 57 48 45 4e 20 56 5b 47 54 3c 3d 31 30 12 10 30 33 32 30 20 50 4f 52 54 4f 3a 3d 36 30 30 30 ┆ WHEN VÆGT<=10 0320 PORTO:=6000┆ 0x132c0…132e0 10 12 30 33 33 30 20 57 48 45 4e 20 56 5b 47 54 3c 3d 31 35 12 11 30 33 34 30 20 50 4f 52 54 4f ┆ 0330 WHEN VÆGT<=15 0340 PORTO┆ 0x132e0…13300 3a 3d 31 30 30 30 30 11 12 30 33 35 30 20 57 48 45 4e 20 56 5b 47 54 3c 3d 32 30 12 11 30 33 36 ┆:=10000 0350 WHEN VÆGT<=20 036┆ 0x13300…13320 (9, 1, 4) 30 20 50 4f 52 54 4f 3a 3d 31 32 30 30 30 11 0f 30 33 37 30 20 4f 54 48 45 52 57 49 53 45 20 0f ┆0 PORTO:=12000 0370 OTHERWISE ┆ 0x13320…13340 0b 30 33 38 30 20 50 52 49 4e 54 20 0b 3d 30 33 39 30 20 50 52 49 4e 54 20 22 44 65 6e 6e 65 20 ┆ 0380 PRINT =0390 PRINT "Denne ┆ 0x13340…13360 70 61 6b 6b 65 20 62 7c 72 20 76 69 73 74 20 74 72 61 6e 73 70 6f 72 74 65 72 65 73 20 6d 65 64 ┆pakke bør vist transporteres med┆ 0x13360…13380 20 66 72 61 67 74 62 7d 64 2e 22 3d 09 30 34 30 30 20 45 4e 44 20 09 0d 30 34 31 30 20 45 4e 44 ┆ fragtbåd."= 0400 END 0410 END┆ 0x13380…133a0 43 41 53 45 20 0d 3d 30 34 32 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 50 61 6b 6b 65 6e 73 ┆CASE =0420 PRINT USING "Pakkens┆ 0x133a0…133c0 20 76 7b 67 74 3a 20 20 20 20 20 20 20 20 20 20 20 20 23 23 23 23 23 2e 23 23 20 6b 67 2e 22 3a ┆ vægt: #####.## kg.":┆ 0x133c0…133e0 56 5b 47 54 3d 42 30 34 33 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 50 6f 72 74 6f 3a 20 20 ┆VÆGT=B0430 PRINT USING "Porto: ┆ 0x133e0…13400 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 23 23 23 23 23 2e 23 23 20 6b 72 2e 22 3a 50 ┆ ######.## kr.":P┆ 0x13400…13420 (9, 1, 5) 50 41 4b 4b 45 50 4f 53 4b 42 01 05 00 00 00 00 12 00 0f 13 00 09 41 12 00 20 00 41 58 5f 4d 49 ┆PAKKEPOSKB A AX_MI┆ 0x13420…13440 4f 52 54 4f 2f 31 30 30 42 0a 30 34 34 30 20 45 4c 53 45 20 0a 33 30 34 35 30 20 50 52 49 4e 54 ┆ORTO/100B 0440 ELSE 30450 PRINT┆ 0x13440…13460 20 22 44 75 20 68 61 72 20 76 69 73 74 20 74 61 73 74 65 74 20 66 6f 72 6b 65 72 74 2e 20 50 72 ┆ "Du har vist tastet forkert. Pr┆ 0x13460…13480 7c 76 20 69 67 65 6e 2e 22 33 0b 30 34 36 30 20 45 4e 44 49 46 20 0b 0b 30 34 37 30 20 45 4e 44 ┆øv igen."3 0460 ENDIF 0470 END┆ 0x13480…134a0 49 46 20 0b 00 00 45 2c 46 41 4c 53 45 17 15 30 30 32 36 20 54 52 55 45 3a 3d 31 3b 46 41 4c 53 ┆IF E,FALSE 0026 TRUE:=1;FALS┆ 0x134a0…134c0 45 3a 3d 30 15 0b 30 30 33 30 20 43 4c 45 41 52 20 0b 0b 30 30 33 35 20 50 52 49 4e 54 20 0b 46 ┆E:=0 0030 CLEAR 0035 PRINT F┆ 0x134c0…134e0 30 30 34 30 20 49 4e 50 55 54 20 22 50 61 6b 6b 65 6e 73 20 76 7b 67 74 3a 20 20 20 20 28 69 6b ┆0040 INPUT "Pakkens vægt: (ik┆ 0x134e0…13500 6b 65 20 6f 76 65 72 20 32 30 20 6b 67 2e 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ke over 20 kg.) ┆ 0x13500…13600 (9, 1, 6) 0x63[0x100] […0x3…] 0x13900…13920 (9, 1, 10) 52 45 4a 53 45 42 32 20 4b 41 01 0a 00 14 00 03 00 00 00 14 00 03 00 00 00 fe 00 00 00 00 00 00 ┆REJSEB2 KA ┆ 0x13920…13940 43 30 31 30 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆C0100 // -----------------------┆ 0x13940…13960 20 52 65 6a 73 65 62 75 72 65 61 75 2d 32 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ Rejsebureau-2 -----------------┆ 0x13960…13980 2d 2d 2d 2d 43 42 30 31 31 30 20 2f 2f 20 50 72 6f 67 72 61 6d 6d 65 74 20 75 64 73 6b 72 69 76 ┆----CB0110 // Programmet udskriv┆ 0x13980…139a0 65 72 20 70 72 69 73 20 6f 67 20 72 65 73 74 61 6e 74 61 6c 20 66 6f 72 20 64 65 73 74 69 6e 61 ┆er pris og restantal for destina┆ 0x139a0…139c0 74 69 6f 6e 65 72 20 69 42 0f 30 31 32 30 20 2f 2f 20 45 75 72 6f 70 61 2e 0f 08 30 31 33 30 20 ┆tioner iB 0120 // Europa. 0130 ┆ 0x139c0…139e0 2f 2f 20 08 2d 30 31 34 30 20 49 4e 54 45 47 45 52 20 54 52 55 45 2c 46 41 4c 53 45 2c 41 4e 54 ┆// -0140 INTEGER TRUE,FALSE,ANT┆ 0x139e0…13a00 41 4c 52 45 4a 53 45 4d 5d 4c 2c 49 2c 41 4e 54 41 4c 2d 15 30 31 35 30 20 46 41 4c 53 45 3a 3d ┆ALREJSEMÅL,I,ANTAL- 0150 FALSE:=┆ 0x13a00…13a20 (9, 1, 11) 30 3b 54 52 55 45 3a 3d 31 15 3f 30 31 36 30 20 44 49 4d 20 52 45 4a 53 45 4d 5d 4c 24 20 4f 46 ┆0;TRUE:=1 ?0160 DIM REJSEMÅL$ OF┆ 0x13a20…13a40 20 33 30 2c 44 45 53 54 49 4e 41 54 49 4f 4e 24 20 4f 46 20 33 30 2c 5c 4e 53 4b 45 24 20 4f 46 ┆ 30,DESTINATION$ OF 30,ØNSKE$ OF┆ 0x13a40…13a60 20 33 2c 53 24 20 4f 46 20 31 3f 0e 30 31 37 30 20 45 58 45 43 20 4d 45 4e 55 0e 08 30 31 38 30 ┆ 3,S$ OF 1? 0170 EXEC MENU 0180┆ 0x13a60…13a80 20 2f 2f 20 08 0e 30 31 39 30 20 50 52 4f 43 20 4d 45 4e 55 0e 0d 30 32 30 30 20 52 45 53 54 4f ┆ // 0190 PROC MENU 0200 RESTO┆ 0x13a80…13aa0 52 45 20 0d 0b 30 32 31 30 20 43 4c 45 41 52 20 0b 0f 30 32 32 30 20 43 55 52 53 4f 52 20 31 2c ┆RE 0210 CLEAR 0220 CURSOR 1,┆ 0x13aa0…13ac0 33 0f 3e 30 32 33 30 20 50 52 49 4e 54 20 22 20 20 52 20 45 20 4a 20 53 20 45 20 42 20 55 20 52 ┆3 >0230 PRINT " R E J S E B U R┆ 0x13ac0…13ae0 20 45 20 41 20 55 20 20 20 20 20 27 44 65 6e 20 67 79 6c 64 6e 65 20 73 6f 6c 27 20 20 20 20 20 ┆ E A U 'Den gyldne sol' ┆ 0x13ae0…13b00 22 3e 0f 30 32 34 30 20 43 55 52 53 4f 52 20 31 2c 34 0f 3e 30 32 35 30 20 50 52 49 4e 54 20 22 ┆"> 0240 CURSOR 1,4 >0250 PRINT "┆ 0x13b00…13b20 (9, 1, 12) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆ 0x13b20…13b40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 3e 10 30 32 36 30 20 43 55 52 53 4f 52 20 ┆-----------------"> 0260 CURSOR ┆ 0x13b40…13b60 31 2c 31 30 10 30 30 32 37 30 20 50 52 49 4e 54 20 22 56 69 20 68 61 72 20 66 7c 6c 67 65 6e 64 ┆1,10 00270 PRINT "Vi har følgend┆ 0x13b60…13b80 65 20 64 65 73 74 69 6e 61 74 69 6f 6e 65 72 3a 20 20 20 20 20 22 30 10 30 32 38 30 20 43 55 52 ┆e destinationer: "0 0280 CUR┆ 0x13b80…13ba0 53 4f 52 20 31 2c 31 31 10 30 30 32 39 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆SOR 1,11 00290 PRINT "----------┆ 0x13ba0…13bc0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 20 20 20 22 30 10 30 33 30 30 ┆-------------------- "0 0300┆ 0x13bc0…13be0 20 43 55 52 53 4f 52 20 31 2c 31 33 10 45 30 33 31 30 20 50 52 49 4e 54 20 22 4c 6f 6e 64 6f 6e ┆ CURSOR 1,13 E0310 PRINT "London┆ 0x13be0…13c00 20 2d 20 50 61 72 69 73 20 2d 20 4f 73 6c 6f 20 2d 20 53 74 6f 63 6b 68 6f 6c 6d 20 2d 20 4d 61 ┆ - Paris - Oslo - Stockholm - Ma┆ 0x13c00…13c20 (9, 1, 13) 64 72 69 64 20 2d 20 48 65 6c 73 69 6e 67 66 6f 72 73 22 45 44 30 33 32 30 20 50 52 49 4e 54 20 ┆drid - Helsingfors"ED0320 PRINT ┆ 0x13c20…13c40 22 52 6f 6d 20 2d 20 4d 6f 73 6b 76 61 20 2d 20 42 65 72 6e 20 2d 20 41 6d 73 74 65 72 64 61 6d ┆"Rom - Moskva - Bern - Amsterdam┆ 0x13c40…13c60 20 2d 20 42 72 75 78 65 6c 6c 65 73 20 2d 20 4c 69 73 73 61 62 6f 6e 20 22 44 10 30 33 33 30 20 ┆ - Bruxelles - Lissabon "D 0330 ┆ 0x13c60…13c80 43 55 52 53 4f 52 20 31 2c 31 38 10 35 30 33 34 30 20 49 4e 50 55 54 20 22 48 76 6f 72 68 65 6e ┆CURSOR 1,18 50340 INPUT "Hvorhen┆ 0x13c80…13ca0 20 7c 6e 73 6b 65 72 20 44 65 20 61 74 20 72 65 6a 73 65 3f 20 20 20 22 3a 52 45 4a 53 45 4d 5d ┆ ønsker De at rejse? ":REJSEMÅ┆ 0x13ca0…13cc0 4c 24 35 08 30 33 35 30 20 2f 2f 20 08 12 30 33 36 30 20 46 55 4e 44 45 54 3a 3d 46 41 4c 53 45 ┆L$5 0350 // 0360 FUNDET:=FALSE┆ 0x13cc0…13ce0 12 1e 30 33 37 30 20 4f 50 45 4e 20 22 73 79 73 74 69 6d 65 3a 72 65 6a 73 65 66 69 6c 22 2c 57 ┆ 0370 OPEN "systime:rejsefil",W┆ 0x13ce0…13d00 1e 33 30 33 38 30 20 47 45 54 20 22 73 79 73 74 69 6d 65 3a 72 65 6a 73 65 66 69 6c 22 3a 44 45 ┆ 30380 GET "systime:rejsefil":DE┆ 0x13d00…13d20 (9, 1, 14) 53 54 49 4e 41 54 49 4f 4e 24 2c 50 52 49 53 2c 41 4e 54 41 4c 33 2a 30 33 39 30 20 57 48 49 4c ┆STINATION$,PRIS,ANTAL3*0390 WHIL┆ 0x13d20…13d40 45 20 4e 4f 54 20 45 4f 46 28 22 73 79 73 74 69 6d 65 3a 72 65 6a 73 65 66 69 6c 22 29 20 44 4f ┆E NOT EOF("systime:rejsefil") DO┆ 0x13d40…13d60 20 2a 24 30 34 30 30 20 49 46 20 44 45 53 54 49 4e 41 54 49 4f 4e 24 3d 52 45 4a 53 45 4d 5d 4c ┆ *$0400 IF DESTINATION$=REJSEMÅL┆ 0x13d60…13d80 24 20 54 48 45 4e 20 24 0b 30 34 31 30 20 43 4c 45 41 52 20 0b 12 30 34 32 30 20 45 58 45 43 20 ┆$ THEN $ 0410 CLEAR 0420 EXEC ┆ 0x13d80…13da0 55 44 53 4b 52 49 46 54 12 11 30 34 33 30 20 45 58 45 43 20 50 52 49 4e 54 45 52 11 11 30 34 34 ┆UDSKRIFT 0430 EXEC PRINTER 044┆ 0x13da0…13dc0 30 20 46 55 4e 44 45 54 3a 3d 54 52 55 45 11 0b 30 34 35 30 20 45 4e 44 49 46 20 0b 33 30 34 36 ┆0 FUNDET:=TRUE 0450 ENDIF 3046┆ 0x13dc0…13de0 30 20 47 45 54 20 22 73 79 73 74 69 6d 65 3a 72 65 6a 73 65 66 69 6c 22 3a 44 45 53 54 49 4e 41 ┆0 GET "systime:rejsefil":DESTINA┆ 0x13de0…13e00 54 49 4f 4e 24 2c 50 52 49 53 2c 41 4e 54 41 4c 33 0e 30 34 37 30 20 45 4e 44 57 48 49 4c 45 20 ┆TION$,PRIS,ANTAL3 0470 ENDWHILE ┆ 0x13e00…13e20 (9, 1, 15) 0e 0b 30 34 38 30 20 43 4c 4f 53 45 20 0b 27 30 34 39 30 20 49 46 20 4e 4f 54 20 46 55 4e 44 45 ┆ 0480 CLOSE '0490 IF NOT FUNDE┆ 0x13e20…13e40 54 20 54 48 45 4e 20 45 58 45 43 20 46 45 4a 4c 53 4b 52 49 46 54 27 11 30 35 30 30 20 45 4e 44 ┆T THEN EXEC FEJLSKRIFT' 0500 END┆ 0x13e40…13e60 50 52 4f 43 20 4d 45 4e 55 11 08 30 35 31 30 20 2f 2f 20 08 14 30 35 32 30 20 50 52 4f 43 20 46 ┆PROC MENU 0510 // 0520 PROC F┆ 0x13e60…13e80 45 4a 4c 53 4b 52 49 46 54 14 0b 30 35 33 30 20 43 4c 45 41 52 20 0b 10 30 35 34 30 20 43 55 52 ┆EJLSKRIFT 0530 CLEAR 0540 CUR┆ 0x13e80…13ea0 53 4f 52 20 31 2c 31 30 10 3a 30 35 35 30 20 50 52 49 4e 54 20 22 56 69 20 68 61 72 20 64 65 73 ┆SOR 1,10 :0550 PRINT "Vi har des┆ 0x13ea0…13ec0 76 7b 72 72 65 20 69 6e 67 65 6e 20 72 65 6a 73 65 72 20 74 69 6c 3a 20 20 22 3b 52 45 4a 53 45 ┆værre ingen rejser til: ";REJSE┆ 0x13ec0…13ee0 4d 5d 4c 24 3a 10 30 35 36 30 20 43 55 52 53 4f 52 20 31 2c 32 30 10 45 30 35 37 30 20 49 4e 50 ┆MÅL$: 0560 CURSOR 1,20 E0570 INP┆ 0x13ee0…13f00 55 54 20 22 48 61 72 20 44 65 20 69 6b 6b 65 20 6c 79 73 74 20 74 69 6c 20 61 74 20 72 65 6a 73 ┆UT "Har De ikke lyst til at rejs┆ 0x13f00…13f20 (9, 1, 16) 65 20 65 74 20 61 6e 64 65 74 20 73 74 65 64 20 68 65 6e 3f 20 22 3a 5c 4e 53 4b 45 24 45 1f 30 ┆e et andet sted hen? ":ØNSKE$E 0┆ 0x13f20…13f40 35 38 30 20 49 46 20 5c 4e 53 4b 45 24 20 49 4e 20 22 4a 41 2c 6a 61 22 20 54 48 45 4e 20 1f 0e ┆580 IF ØNSKE$ IN "JA,ja" THEN ┆ 0x13f40…13f60 30 35 39 30 20 45 58 45 43 20 4d 45 4e 55 0e 0a 30 36 30 30 20 45 4c 53 45 20 0a 09 30 36 31 30 ┆0590 EXEC MENU 0600 ELSE 0610┆ 0x13f60…13f80 20 45 4e 44 20 09 0b 30 36 32 30 20 45 4e 44 49 46 20 0b 17 30 36 33 30 20 45 4e 44 50 52 4f 43 ┆ END 0620 ENDIF 0630 ENDPROC┆ 0x13f80…13fa0 20 46 45 4a 4c 53 4b 52 49 46 54 17 08 30 36 34 30 20 2f 2f 20 08 12 30 36 35 30 20 50 52 4f 43 ┆ FEJLSKRIFT 0640 // 0650 PROC┆ 0x13fa0…13fc0 20 55 44 53 4b 52 49 46 54 12 0f 30 36 36 30 20 43 55 52 53 4f 52 20 31 2c 36 0f 3c 30 36 37 30 ┆ UDSKRIFT 0660 CURSOR 1,6 <0670┆ 0x13fc0…13fe0 20 50 52 49 4e 54 20 22 20 20 52 20 65 20 6a 20 64 20 65 20 62 20 75 20 72 20 65 20 61 20 75 20 ┆ PRINT " R e j d e b u r e a u ┆ 0x13fe0…14000 20 20 20 27 44 65 6e 20 67 79 6c 64 6e 65 20 73 6f 6c 27 20 20 20 20 22 3c 0f 30 36 38 30 20 43 ┆ 'Den gyldne sol' "< 0680 C┆ 0x14000…14020 (10, 0, 1) 55 52 53 4f 52 20 31 2c 37 0f 3c 30 36 39 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆URSOR 1,7 <0690 PRINT "---------┆ 0x14020…14040 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆ 0x14040…14060 2d 2d 2d 2d 2d 2d 22 3c 10 30 37 30 30 20 43 55 52 53 4f 52 20 31 2c 31 30 10 3c 30 37 31 30 20 ┆------"< 0700 CURSOR 1,10 <0710 ┆ 0x14060…14080 50 52 49 4e 54 20 22 56 69 20 6b 61 6e 20 74 69 6c 62 79 64 65 20 44 65 6d 20 65 6e 20 72 65 6a ┆PRINT "Vi kan tilbyde Dem en rej┆ 0x14080…140a0 73 65 20 74 69 6c 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3c 10 30 37 32 30 20 43 55 ┆se til: "< 0720 CU┆ 0x140a0…140c0 52 53 4f 52 20 31 2c 31 32 10 3b 30 37 33 30 20 50 52 49 4e 54 20 22 52 65 6a 73 65 6d 7d 6c 3a ┆RSOR 1,12 ;0730 PRINT "Rejsemål:┆ 0x140c0…140e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3b 44 45 53 54 49 4e ┆ ";DESTIN┆ 0x140e0…14100 41 54 49 4f 4e 24 3b 10 30 37 34 30 20 43 55 52 53 4f 52 20 31 2c 31 33 10 44 30 37 35 30 20 50 ┆ATION$; 0740 CURSOR 1,13 D0750 P┆ 0x14100…14120 (10, 0, 2) 52 49 4e 54 20 55 53 49 4e 47 20 22 50 72 69 73 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RINT USING "Pris: ┆ 0x14120…14140 20 20 20 20 20 20 20 20 20 23 23 23 23 23 23 23 23 2e 23 23 20 6b 72 2e 22 3a 50 52 49 53 44 10 ┆ ########.## kr.":PRISD ┆ 0x14140…14160 30 37 36 30 20 43 55 52 53 4f 52 20 31 2c 31 34 10 34 30 37 37 30 20 50 52 49 4e 54 20 22 52 65 ┆0760 CURSOR 1,14 40770 PRINT "Re┆ 0x14160…14180 73 74 70 6c 61 64 73 65 72 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 ┆stpladser: "┆ 0x14180…141a0 3b 41 4e 54 41 4c 34 15 30 37 38 30 20 45 4e 44 50 52 4f 43 20 55 44 53 4b 52 49 46 54 15 08 30 ┆;ANTAL4 0780 ENDPROC UDSKRIFT 0┆ 0x141a0…141c0 37 39 30 20 2f 2f 20 08 11 30 38 30 30 20 50 52 4f 43 20 50 52 49 4e 54 45 52 11 16 30 38 31 30 ┆790 // 0800 PROC PRINTER 0810┆ 0x141c0…141e0 20 53 45 4c 45 43 54 20 4f 55 54 50 55 54 20 22 54 22 16 10 30 38 33 30 20 43 55 52 53 4f 52 20 ┆ SELECT OUTPUT "T" 0830 CURSOR ┆ 0x141e0…14200 31 2c 32 32 10 36 30 38 34 30 20 49 4e 50 55 54 20 22 5c 6e 73 6b 65 73 20 75 64 73 6b 72 69 66 ┆1,22 60840 INPUT "Ønskes udskrif┆ 0x14200…14220 (10, 0, 3) 74 20 70 7d 20 70 72 69 6e 74 65 72 3f 20 20 20 28 6a 2f 6e 29 20 20 20 22 3a 53 24 36 1e 30 38 ┆t på printer? (j/n) ":S$6 08┆ 0x14220…14240 35 30 20 49 46 20 53 24 3d 22 4a 22 20 4f 52 20 53 24 3d 22 6a 22 20 54 48 45 4e 20 1e 16 30 38 ┆50 IF S$="J" OR S$="j" THEN 08┆ 0x14240…14260 36 30 20 53 45 4c 45 43 54 20 4f 55 54 50 55 54 20 22 50 22 16 1b 30 38 37 30 20 49 46 20 53 54 ┆60 SELECT OUTPUT "P" 0870 IF ST┆ 0x14260…14280 41 54 55 53 28 22 50 22 29 3d 31 20 54 48 45 4e 20 1b 10 30 38 38 30 20 43 55 52 53 4f 52 20 31 ┆ATUS("P")=1 THEN 0880 CURSOR 1┆ 0x14280…142a0 2c 32 32 10 36 30 38 39 30 20 50 52 49 4e 54 20 22 3c 5a 3e 50 72 69 6e 74 65 72 20 65 72 20 72 ┆,22 60890 PRINT "<Z>Printer er r┆ 0x142a0…142c0 65 73 65 72 76 65 72 65 74 20 61 66 20 61 6e 64 65 6e 20 62 72 75 67 65 72 2c 22 36 41 30 39 30 ┆eserveret af anden bruger,"6A090┆ 0x142c0…142e0 30 20 49 4e 50 55 54 20 22 20 53 6b 61 6c 20 64 65 72 20 76 65 6e 74 65 73 20 70 7d 20 61 74 20 ┆0 INPUT " Skal der ventes på at ┆ 0x142e0…14300 64 65 6e 20 62 6c 69 76 65 72 20 6c 65 64 69 67 3f 20 20 28 6a 2f 6e 29 20 20 22 3a 53 24 41 1e ┆den bliver ledig? (j/n) ":S$A ┆ 0x14300…14320 (10, 0, 4) 52 45 4a 53 45 42 32 20 4b 42 01 0a 00 00 00 00 13 00 09 14 00 0d 00 00 00 20 00 00 00 00 00 00 ┆REJSEB2 KB ┆ 0x14320…14340 30 39 31 30 20 49 46 20 53 24 3d 22 4a 22 20 4f 52 20 53 24 3d 22 6a 22 20 54 48 45 4e 20 1e 10 ┆0910 IF S$="J" OR S$="j" THEN ┆ 0x14340…14360 30 39 32 30 20 43 55 52 53 4f 52 20 31 2c 32 33 10 37 30 39 33 30 20 50 52 49 4e 54 20 22 3c 5a ┆0920 CURSOR 1,23 70930 PRINT "<Z┆ 0x14360…14380 3e 44 65 72 20 76 65 6e 74 65 73 20 70 7d 20 61 74 20 70 72 69 6e 74 65 72 65 6e 20 62 6c 69 76 ┆>Der ventes på at printeren bliv┆ 0x14380…143a0 65 72 20 6c 65 64 69 67 22 37 2d 30 39 34 30 20 57 48 49 4c 45 20 53 54 41 54 55 53 28 22 50 22 ┆er ledig"7-0940 WHILE STATUS("P"┆ 0x143a0…143c0 29 3d 31 20 44 4f 20 53 45 4c 45 43 54 20 4f 55 54 50 55 54 20 22 50 22 2d 0a 30 39 35 30 20 45 ┆)=1 DO SELECT OUTPUT "P"- 0950 E┆ 0x143c0…143e0 4c 53 45 20 0a 16 30 39 36 30 20 53 45 4c 45 43 54 20 4f 55 54 50 55 54 20 22 54 22 16 0b 30 39 ┆LSE 0960 SELECT OUTPUT "T" 09┆ 0x143e0…14400 37 30 20 45 4e 44 49 46 20 0b 0b 30 39 38 30 20 45 4e 44 49 46 20 0b 12 30 39 39 30 20 45 58 45 ┆70 ENDIF 0980 ENDIF 0990 EXE┆ 0x14400…14420 (10, 0, 5) 43 20 55 44 53 4b 52 49 46 54 12 0b 31 30 30 30 20 45 4e 44 49 46 20 0b 16 31 30 31 30 20 53 45 ┆C UDSKRIFT 1000 ENDIF 1010 SE┆ 0x14420…14440 4c 45 43 54 20 4f 55 54 50 55 54 20 22 54 22 16 10 31 30 32 30 20 43 55 52 53 4f 52 20 31 2c 32 ┆LECT OUTPUT "T" 1020 CURSOR 1,2┆ 0x14440…14460 31 10 34 31 30 33 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆1 41030 PRINT " ┆ 0x14460…14480 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 34 3c 31 30 34 30 20 50 52 ┆ "4<1040 PR┆ 0x14480…144a0 49 4e 54 20 22 53 7d 20 73 6c 75 74 74 65 72 20 76 69 20 66 6f 72 20 69 20 64 61 67 20 2e 20 20 ┆INT "Så slutter vi for i dag . ┆ 0x144a0…144c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3c 09 31 30 35 30 20 45 4e 44 20 ┆ "< 1050 END ┆ 0x144c0…144e0 09 14 31 30 38 30 20 45 4e 44 50 52 4f 43 20 50 52 49 4e 54 45 52 14 08 31 30 39 30 20 2f 2f 20 ┆ 1080 ENDPROC PRINTER 1090 // ┆ 0x144e0…14500 08 15 31 31 30 30 20 50 52 4f 43 20 45 4f 46 28 46 4e 41 56 4e 24 29 15 1d 31 31 31 30 20 45 4f ┆ 1100 PROC EOF(FNAVN$) 1110 EO┆ 0x14500…14520 (10, 0, 6) 46 3a 3d 28 53 54 41 54 55 53 28 46 4e 41 56 4e 24 29 3d 31 39 29 1d 10 31 31 32 30 20 45 4e 44 ┆F:=(STATUS(FNAVN$)=19) 1120 END┆ 0x14520…14540 50 52 4f 43 20 45 4f 46 10 00 00 2f 2f 20 08 08 30 39 33 30 20 2f 2f 20 08 19 30 39 34 30 20 44 ┆PROC EOF // 0930 // 0940 D┆ 0x14540…14560 41 54 41 20 22 4c 6f 6e 64 6f 6e 22 2c 32 32 33 33 2c 36 19 19 30 39 35 30 20 44 41 54 41 20 22 ┆ATA "London",2233,6 0950 DATA "┆ 0x14560…14580 50 61 72 69 73 22 2c 32 30 30 30 2c 31 32 19 17 30 39 36 30 20 44 41 54 41 20 22 4f 73 6c 6f 22 ┆Paris",2000,12 0960 DATA "Oslo"┆ 0x14580…145a0 2c 31 32 30 30 2c 35 17 1c 30 39 37 30 20 44 41 54 41 20 22 53 74 6f 63 6b 68 6f 6c 6d 22 2c 31 ┆,1200,5 0970 DATA "Stockholm",1┆ 0x145a0…145c0 34 30 30 2c 37 1c 19 30 39 38 30 20 44 41 54 41 20 22 4d 61 64 72 69 64 22 2c 33 30 30 30 2c 38 ┆400,7 0980 DATA "Madrid",3000,8┆ 0x145c0…145e0 19 1f 30 39 39 30 20 44 41 54 41 20 22 48 65 6c 73 69 6e 67 66 6f 72 73 22 2c 31 36 30 30 2c 31 ┆ 0990 DATA "Helsingfors",1600,1┆ 0x145e0…14600 34 1f 17 31 30 30 30 20 44 41 54 41 20 22 52 6f 6d 22 2c 33 30 30 30 2c 31 35 17 19 31 30 31 30 ┆4 1000 DATA "Rom",3000,15 1010┆ 0x14600…14620 (10, 0, 7) 20 44 41 54 41 20 22 4d 6f 73 6b 76 61 22 2c 32 36 30 30 2c 38 19 17 31 30 32 30 20 44 41 54 41 ┆ DATA "Moskva",2600,8 1020 DATA┆ 0x14620…14640 20 22 42 65 72 6e 22 2c 31 36 34 30 2c 35 17 1b 31 30 33 30 20 44 41 54 41 20 22 41 6d 73 74 65 ┆ "Bern",1640,5 1030 DATA "Amste┆ 0x14640…14660 72 64 61 6d 22 2c 37 30 30 2c 34 1b 1b 31 30 34 30 20 44 41 54 41 20 22 42 72 75 78 65 6c 6c 65 ┆rdam",700,4 1040 DATA "Bruxelle┆ 0x14660…14680 73 22 2c 39 30 30 2c 35 1b 1b 31 30 35 30 20 44 41 54 41 20 22 4c 69 73 73 61 62 6f 6e 22 2c 33 ┆s",900,5 1050 DATA "Lissabon",3┆ 0x14680…146a0 34 30 30 2c 36 1b 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆400,6 cccccccccccccccccccccccc┆ 0x146a0…146c0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆ […0x2…] 0x14700…14800 (10, 0, 8) 0x63[0x100] […0x5…] 0x14d00…14d20 (10, 0, 14) ExtentHdr {name=»STOPUR «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0015,07 (0x015600)}, 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 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0015,0a (0x015900)}, f04=»A «, postl=0x00fe, f99=»ENTEF«} 0x15720…15a00 Extent[0x2e0] 0x15a00…15a20 (10, 1, 11) 42 49 4e 5b 52 5f 32 20 4b 41 01 05 00 15 00 0f 00 00 00 15 00 0f 41 14 00 fe 00 45 4e 54 45 46 ┆BINÆR_2 KA A ENTEF┆ 0x15a20…15a40 3b 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆;0010 // -----------------------┆ 0x15a40…15a60 2d 2d 2d 20 62 69 6e 7b 72 5f 32 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3b 08 30 30 ┆--- binær_2 ----------------; 00┆ 0x15a60…15a80 32 30 20 2f 2f 20 08 2b 30 30 32 35 20 49 4e 54 45 47 45 52 20 45 4b 53 50 4f 4e 45 4e 54 2c 4a ┆20 // +0025 INTEGER EKSPONENT,J┆ 0x15a80…15aa0 2c 50 49 4c 2c 50 4f 54 45 4e 53 2c 4d 41 58 2c 53 55 4d 2b 11 30 30 33 30 20 50 52 4f 43 20 4f ┆,PIL,POTENS,MAX,SUM+ 0030 PROC O┆ 0x15aa0…15ac0 50 53 54 41 52 54 11 0b 30 30 34 30 20 43 4c 45 41 52 20 0b 0c 30 30 35 30 20 52 45 50 45 41 54 ┆PSTART 0040 CLEAR 0050 REPEAT┆ 0x15ac0…15ae0 20 0c 38 30 30 36 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 74 6f 65 72 2d 65 6b 73 70 ┆ 80060 INPUT "Indtast toer-eksp┆ 0x15ae0…15b00 6f 6e 65 6e 74 20 28 6d 61 78 20 39 29 3a 20 20 22 3a 45 4b 53 50 4f 4e 45 4e 54 38 44 30 30 37 ┆onent (max 9): ":EKSPONENT8D007┆ 0x15b00…15b20 (10, 1, 12) 30 20 55 4e 54 49 4c 20 45 4b 53 50 4f 4e 45 4e 54 3e 30 20 41 4e 44 20 45 4b 53 50 4f 4e 45 4e ┆0 UNTIL EKSPONENT>0 AND EKSPONEN┆ 0x15b20…15b40 54 3c 31 30 20 41 4e 44 20 49 4e 54 28 45 4b 53 50 4f 4e 45 4e 54 29 3d 45 4b 53 50 4f 4e 45 4e ┆T<10 AND INT(EKSPONENT)=EKSPONEN┆ 0x15b40…15b60 54 44 16 30 30 38 30 20 4d 41 58 3a 3d 32 2a 2a 45 4b 53 50 4f 4e 45 4e 54 16 0b 30 30 39 30 20 ┆TD 0080 MAX:=2**EKSPONENT 0090 ┆ 0x15b60…15b80 43 4c 45 41 52 20 0b 2e 30 31 30 30 20 50 52 49 4e 54 20 22 54 7b 6e 6b 20 70 7d 20 65 74 20 74 ┆CLEAR .0100 PRINT "Tænk på et t┆ 0x15b80…15ba0 61 6c 20 6d 65 6c 6c 65 6d 20 30 20 6f 67 20 22 3b 4d 41 58 2d 31 2e 13 30 31 31 30 20 44 49 4d ┆al mellem 0 og ";MAX-1. 0110 DIM┆ 0x15ba0…15bc0 20 53 56 41 52 24 20 4f 46 20 31 13 17 30 31 31 35 20 49 4e 54 45 47 45 52 20 54 41 4c 28 4d 41 ┆ SVAR$ OF 1 0115 INTEGER TAL(MA┆ 0x15bc0…15be0 58 2f 32 29 17 08 30 31 32 30 20 2f 2f 20 08 14 30 31 33 30 20 45 4e 44 50 52 4f 43 20 4f 50 53 ┆X/2) 0120 // 0130 ENDPROC OPS┆ 0x15be0…15c00 54 41 52 54 14 08 30 31 34 30 20 2f 2f 20 08 19 30 31 35 30 20 50 52 4f 43 20 55 44 56 5b 4c 47 ┆TART 0140 // 0150 PROC UDVÆLG┆ 0x15c00…15c20 (10, 1, 13) 54 41 4c 28 45 4b 53 50 29 19 14 30 31 36 30 20 50 4f 54 45 4e 53 3a 3d 32 2a 2a 45 4b 53 50 14 ┆TAL(EKSP) 0160 POTENS:=2**EKSP ┆ 0x15c20…15c40 0b 30 31 37 30 20 50 49 4c 3a 3d 31 0b 18 30 31 38 30 20 46 4f 52 20 4a 3a 3d 31 20 54 4f 20 4d ┆ 0170 PIL:=1 0180 FOR J:=1 TO M┆ 0x15c40…15c60 41 58 20 44 4f 20 18 24 30 31 39 30 20 49 46 20 28 4a 20 44 49 56 20 50 4f 54 45 4e 53 29 20 4d ┆AX DO $0190 IF (J DIV POTENS) M┆ 0x15c60…15c80 4f 44 20 32 3d 31 20 54 48 45 4e 20 24 1b 30 32 30 30 20 54 41 4c 28 50 49 4c 29 3a 3d 4a 3b 50 ┆OD 2=1 THEN $ 0200 TAL(PIL):=J;P┆ 0x15c80…15ca0 49 4c 3a 3d 50 49 4c 2b 31 1b 0b 30 32 31 30 20 45 4e 44 49 46 20 0b 0b 30 32 32 30 20 4e 45 58 ┆IL:=PIL+1 0210 ENDIF 0220 NEX┆ 0x15ca0…15cc0 54 20 4a 0b 16 30 32 33 30 20 45 4e 44 50 52 4f 43 20 55 44 56 5b 4c 47 54 41 4c 16 08 30 32 34 ┆T J 0230 ENDPROC UDVÆLGTAL 024┆ 0x15cc0…15ce0 30 20 2f 2f 20 08 11 30 32 35 30 20 50 52 4f 43 20 55 44 53 4b 52 49 56 11 0b 30 32 35 35 20 43 ┆0 // 0250 PROC UDSKRIV 0255 C┆ 0x15ce0…15d00 4c 45 41 52 20 0b 0f 30 32 36 30 20 43 55 52 53 4f 52 20 31 2c 32 0f 1a 30 32 38 30 20 46 4f 52 ┆LEAR 0260 CURSOR 1,2 0280 FOR┆ 0x15d00…15d20 (10, 1, 14) 20 4b 3a 3d 31 20 54 4f 20 4d 41 58 2f 32 20 44 4f 20 1a 12 30 32 39 30 20 50 52 49 4e 54 20 54 ┆ K:=1 TO MAX/2 DO 0290 PRINT T┆ 0x15d20…15d40 41 4c 28 4b 29 3b 12 0b 30 33 30 30 20 4e 45 58 54 20 4b 0b 0b 30 33 31 30 20 50 52 49 4e 54 20 ┆AL(K); 0300 NEXT K 0310 PRINT ┆ 0x15d40…15d60 0b 14 30 33 32 30 20 45 4e 44 50 52 4f 43 20 55 44 53 4b 52 49 56 14 08 30 33 33 30 20 2f 2f 20 ┆ 0320 ENDPROC UDSKRIV 0330 // ┆ 0x15d60…15d80 08 11 30 33 34 30 20 45 58 45 43 20 4f 50 53 54 41 52 54 11 08 30 33 35 30 20 2f 2f 20 08 20 30 ┆ 0340 EXEC OPSTART 0350 // 0┆ 0x15d80…15da0 33 35 35 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 34 30 30 20 44 4f 20 2f 2f 20 70 61 75 73 65 20 ┆355 FOR I:=1 TO 400 DO // pause ┆ 0x15da0…15dc0 0b 30 33 36 30 20 53 55 4d 3a 3d 30 0b 20 30 33 37 30 20 46 4f 52 20 49 3a 3d 30 20 54 4f 20 45 ┆ 0360 SUM:=0 0370 FOR I:=0 TO E┆ 0x15dc0…15de0 4b 53 50 4f 4e 45 4e 54 2d 31 20 44 4f 20 20 16 30 33 38 30 20 45 58 45 43 20 55 44 56 5b 4c 47 ┆KSPONENT-1 DO 0380 EXEC UDVÆLG┆ 0x15de0…15e00 54 41 4c 28 49 29 16 11 30 33 39 30 20 45 58 45 43 20 55 44 53 4b 52 49 56 11 0c 30 34 30 30 20 ┆TAL(I) 0390 EXEC UDSKRIV 0400 ┆ 0x15e00…15e20 (10, 1, 15) 52 45 50 45 41 54 20 0c 11 30 34 31 30 20 43 55 52 53 4f 52 20 32 30 2c 32 32 11 14 30 34 32 30 ┆REPEAT 0410 CURSOR 20,22 0420┆ 0x15e20…15e40 20 50 52 49 4e 54 20 43 48 52 24 28 33 31 29 3b 14 3c 30 34 33 30 20 49 4e 50 55 54 20 22 56 61 ┆ PRINT CHR$(31); <0430 INPUT "Va┆ 0x15e40…15e60 72 20 74 61 6c 6c 65 74 20 62 6c 61 6e 64 74 20 64 65 20 75 64 73 6b 72 65 76 6e 65 3f 20 20 20 ┆r tallet blandt de udskrevne? ┆ 0x15e60…15e80 20 28 6a 2f 6e 29 20 22 3a 53 56 41 52 24 3c 18 30 34 34 30 20 55 4e 54 49 4c 20 53 56 41 52 24 ┆ (j/n) ":SVAR$< 0440 UNTIL SVAR$┆ 0x15e80…15ea0 20 49 4e 20 22 6a 6e 22 18 24 30 34 35 30 20 49 46 20 53 56 41 52 24 3d 22 6a 22 20 54 48 45 4e ┆ IN "jn" $0450 IF SVAR$="j" THEN┆ 0x15ea0…15ec0 20 53 55 4d 3a 3d 53 55 4d 2b 32 2a 2a 49 24 0b 30 34 36 30 20 4e 45 58 54 20 49 0b 11 30 34 37 ┆ SUM:=SUM+2**I$ 0460 NEXT I 047┆ 0x15ec0…15ee0 30 20 43 55 52 53 4f 52 20 32 30 2c 31 32 11 23 30 34 38 30 20 50 52 49 4e 54 20 22 44 75 20 74 ┆0 CURSOR 20,12 #0480 PRINT "Du t┆ 0x15ee0…15f00 7b 6e 6b 74 65 20 70 7d 3a 20 20 20 20 20 22 3b 53 55 4d 23 11 30 34 39 30 20 43 55 52 53 4f 52 ┆ænkte på: ";SUM# 0490 CURSOR┆ 0x15f00…15f20 (10, 1, 16) 42 49 4e 5b 52 5f 32 20 4b 42 01 05 00 00 00 00 15 00 0a 16 00 04 41 14 00 20 00 45 4e 54 45 46 ┆BINÆR_2 KB A ENTEF┆ 0x15f20…15f40 20 32 30 2c 31 33 11 25 30 35 30 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ 20,13 %0500 PRINT "------------┆ 0x15f40…15f60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 25 10 30 35 31 30 20 43 55 52 53 4f 52 20 31 2c 32 31 10 ┆------------"% 0510 CURSOR 1,21 ┆ 0x15f60…15f80 00 00 20 2f 2f 20 08 2b 30 30 32 35 20 49 4e 54 45 47 45 52 20 45 4b 53 50 4f 4e 45 4e 54 2c 4a ┆ // +0025 INTEGER EKSPONENT,J┆ 0x15f80…15fa0 2c 50 49 4c 2c 50 4f 54 45 4e 53 2c 4d 41 58 2c 53 55 4d 2b 11 30 30 33 30 20 50 52 4f 43 20 4f ┆,PIL,POTENS,MAX,SUM+ 0030 PROC O┆ 0x15fa0…15fc0 50 53 54 41 52 54 11 0b 30 30 34 30 20 43 4c 45 41 52 20 0b 0c 30 30 35 30 20 52 45 50 45 41 54 ┆PSTART 0040 CLEAR 0050 REPEAT┆ 0x15fc0…15fe0 20 0c 38 30 30 36 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 74 6f 65 72 2d 65 6b 73 70 ┆ 80060 INPUT "Indtast toer-eksp┆ 0x15fe0…16000 6f 6e 65 6e 74 20 28 6d 61 78 20 39 29 3a 20 20 22 3a 45 4b 53 50 4f 4e 45 4e 54 38 44 30 30 37 ┆onent (max 9): ":EKSPONENT8D007┆ 0x16000…16100 (11, 0, 1) 0x63[0x100] […0x3…] 0x16400…16420 (11, 0, 5) 4b 4f 52 52 45 4c 41 54 4b 41 01 0a 00 16 00 0e 00 00 00 16 00 0e 00 00 00 fe 00 00 00 00 00 00 ┆KORRELATKA ┆ 0x16420…16440 45 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆E0010 // -----------------------┆ 0x16440…16460 2d 2d 2d 20 6b 6f 72 72 65 6c 61 74 69 6f 6e 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--- korrelation ----------------┆ 0x16460…16480 2d 2d 2d 2d 2d 2d 45 3d 30 30 32 30 20 2f 2f 20 50 72 6f 67 72 61 6d 6d 65 74 20 66 69 6e 64 65 ┆------E=0020 // Programmet finde┆ 0x16480…164a0 72 20 65 6e 20 72 7b 6b 6b 65 20 64 65 73 6b 72 69 70 74 6f 72 65 72 20 66 6f 72 20 6e 20 74 61 ┆r en række deskriptorer for n ta┆ 0x164a0…164c0 6c 70 61 72 3a 3d 26 30 30 33 30 20 2f 2f 20 28 78 31 2c 79 31 29 2c 28 78 32 2c 79 32 29 2c 20 ┆lpar:=&0030 // (x1,y1),(x2,y2), ┆ 0x164c0…164e0 2e 2e 2e 20 2c 28 78 6e 2c 79 6e 29 2e 26 2b 30 30 34 30 20 2f 2f 20 6e 20 61 6e 67 69 76 65 73 ┆... ,(xn,yn).&+0040 // n angives┆ 0x164e0…16500 20 69 20 64 65 6e 20 66 7c 72 73 74 65 20 64 61 74 61 73 7b 74 6e 69 6e 67 2e 2b 37 30 30 35 30 ┆ i den første datasætning.+70050┆ 0x16500…16520 (11, 0, 6) 20 2f 2f 20 78 31 2c 78 32 2c 20 2e 2e 2e 20 2c 78 6e 20 61 6e 67 69 76 65 73 20 69 20 64 65 20 ┆ // x1,x2, ... ,xn angives i de ┆ 0x16520…16540 6e 7b 73 74 65 20 64 61 74 61 73 7b 74 6e 69 6e 67 65 72 37 37 30 30 36 30 20 2f 2f 20 79 31 2c ┆næste datasætninger770060 // y1,┆ 0x16540…16560 79 32 2c 20 2e 2e 2e 20 2c 79 6e 20 61 6e 67 69 76 65 73 20 69 20 64 65 20 6e 7b 73 74 65 20 64 ┆y2, ... ,yn angives i de næste d┆ 0x16560…16580 61 74 61 73 7b 74 6e 69 6e 67 65 72 37 08 30 30 37 30 20 2f 2f 20 08 0b 30 30 38 30 20 43 4c 45 ┆atasætninger7 0070 // 0080 CLE┆ 0x16580…165a0 41 52 20 0b 0b 30 30 39 30 20 52 45 41 44 20 4e 0b 1a 30 31 30 30 20 44 49 4d 20 58 28 4e 29 2c ┆AR 0090 READ N 0100 DIM X(N),┆ 0x165a0…165c0 59 28 4e 29 2c 53 24 20 4f 46 20 31 1a 2c 30 31 31 30 20 53 55 4d 31 3a 3d 30 3b 53 55 4d 32 3a ┆Y(N),S$ OF 1 ,0110 SUM1:=0;SUM2:┆ 0x165c0…165e0 3d 30 3b 53 55 4d 33 3a 3d 30 3b 53 55 4d 34 3a 3d 30 3b 53 55 4d 35 3a 3d 30 2c 16 30 31 32 30 ┆=0;SUM3:=0;SUM4:=0;SUM5:=0, 0120┆ 0x165e0…16600 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 4e 20 44 4f 20 16 0e 30 31 33 30 20 52 45 41 44 20 58 28 ┆ FOR I:=1 TO N DO 0130 READ X(┆ 0x16600…16620 (11, 0, 7) 49 29 0e 0b 30 31 34 30 20 4e 45 58 54 20 49 0b 16 30 31 35 30 20 46 4f 52 20 49 3a 3d 31 20 54 ┆I) 0140 NEXT I 0150 FOR I:=1 T┆ 0x16620…16640 4f 20 4e 20 44 4f 20 16 0e 30 31 36 30 20 52 45 41 44 20 59 28 49 29 0e 0b 30 31 37 30 20 4e 45 ┆O N DO 0160 READ Y(I) 0170 NE┆ 0x16640…16660 58 54 20 49 0b 16 30 31 38 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 4e 20 44 4f 20 16 14 30 31 ┆XT I 0180 FOR I:=1 TO N DO 01┆ 0x16660…16680 39 30 20 53 55 4d 31 3a 3d 53 55 4d 31 2b 58 28 49 29 14 14 30 32 30 30 20 53 55 4d 32 3a 3d 53 ┆90 SUM1:=SUM1+X(I) 0200 SUM2:=S┆ 0x16680…166a0 55 4d 32 2b 59 28 49 29 14 17 30 32 31 30 20 53 55 4d 33 3a 3d 53 55 4d 33 2b 58 28 49 29 2a 2a ┆UM2+Y(I) 0210 SUM3:=SUM3+X(I)**┆ 0x166a0…166c0 32 17 17 30 32 32 30 20 53 55 4d 34 3a 3d 53 55 4d 34 2b 59 28 49 29 2a 2a 32 17 19 30 32 33 30 ┆2 0220 SUM4:=SUM4+Y(I)**2 0230┆ 0x166c0…166e0 20 53 55 4d 35 3a 3d 53 55 4d 35 2b 58 28 49 29 2a 59 28 49 29 19 0b 30 32 34 30 20 4e 45 58 54 ┆ SUM5:=SUM5+X(I)*Y(I) 0240 NEXT┆ 0x166e0…16700 20 49 0b 0f 30 32 35 30 20 4d 58 3a 3d 53 55 4d 31 2f 4e 0f 0f 30 32 36 30 20 4d 59 3a 3d 53 55 ┆ I 0250 MX:=SUM1/N 0260 MY:=SU┆ 0x16700…16720 (11, 0, 8) 4d 32 2f 4e 0f 15 30 32 37 30 20 56 58 3a 3d 53 55 4d 33 2f 4e 2d 4d 58 2a 4d 58 15 15 30 32 38 ┆M2/N 0270 VX:=SUM3/N-MX*MX 028┆ 0x16720…16740 30 20 56 59 3a 3d 53 55 4d 34 2f 4e 2d 4d 59 2a 4d 59 15 18 30 32 39 30 20 43 4f 56 58 59 3a 3d ┆0 VY:=SUM4/N-MY*MY 0290 COVXY:=┆ 0x16740…16760 53 55 4d 35 2f 4e 2d 4d 58 2a 4d 59 18 10 30 33 30 30 20 53 58 3a 3d 53 51 52 28 56 58 29 10 10 ┆SUM5/N-MX*MY 0300 SX:=SQR(VX) ┆ 0x16760…16780 30 33 31 30 20 53 59 3a 3d 53 51 52 28 56 59 29 10 13 30 33 32 30 20 52 3a 3d 43 4f 56 58 59 2f ┆0310 SY:=SQR(VY) 0320 R:=COVXY/┆ 0x16780…167a0 53 58 2f 53 59 13 10 30 33 33 30 20 41 3a 3d 43 4f 56 58 59 2f 56 58 10 0f 30 33 34 30 20 42 3a ┆SX/SY 0330 A:=COVXY/VX 0340 B:┆ 0x167a0…167c0 3d 4d 59 2d 41 2a 4d 58 0f 3b 30 33 35 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 4f 62 73 65 ┆=MY-A*MX ;0350 PRINT USING "Obse┆ 0x167c0…167e0 72 76 61 74 69 6f 6e 73 73 7b 74 65 74 20 62 65 73 74 7d 72 20 61 66 23 23 23 20 74 61 6c 70 61 ┆rvationssætet består af### talpa┆ 0x167e0…16800 72 2e 22 3a 4e 3b 0b 30 33 36 30 20 50 52 49 4e 54 20 0b 22 30 33 37 30 20 50 52 49 4e 54 20 22 ┆r.":N; 0360 PRINT "0370 PRINT "┆ 0x16800…16820 (11, 0, 9) 4f 62 73 65 72 76 61 74 69 6f 6e 73 73 7b 74 74 65 74 20 58 3a 22 22 16 30 33 38 30 20 46 4f 52 ┆Observationssættet X:"" 0380 FOR┆ 0x16820…16840 20 49 3a 3d 31 20 54 4f 20 4e 20 44 4f 20 16 21 30 33 39 30 20 50 52 49 4e 54 20 55 53 49 4e 47 ┆ I:=1 TO N DO !0390 PRINT USING┆ 0x16840…16860 20 22 2b 23 23 23 23 2c 20 20 22 3a 58 28 49 29 2c 21 0b 30 34 30 30 20 4e 45 58 54 20 49 0b 0b ┆ "+####, ":X(I),! 0400 NEXT I ┆ 0x16860…16880 30 34 31 30 20 50 52 49 4e 54 20 0b 0b 30 34 32 30 20 50 52 49 4e 54 20 0b 22 30 34 33 30 20 50 ┆0410 PRINT 0420 PRINT "0430 P┆ 0x16880…168a0 52 49 4e 54 20 22 4f 62 73 65 72 76 61 74 69 6f 6e 73 73 7b 74 74 65 74 20 59 3a 22 22 16 30 34 ┆RINT "Observationssættet Y:"" 04┆ 0x168a0…168c0 34 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 4e 20 44 4f 20 16 21 30 34 35 30 20 50 52 49 4e 54 ┆40 FOR I:=1 TO N DO !0450 PRINT┆ 0x168c0…168e0 20 55 53 49 4e 47 20 22 2b 23 23 23 23 2c 20 20 22 3a 59 28 49 29 2c 21 0b 30 34 36 30 20 4e 45 ┆ USING "+####, ":Y(I),! 0460 NE┆ 0x168e0…16900 58 54 20 49 0b 0b 30 34 37 30 20 50 52 49 4e 54 20 0b 0b 30 34 38 30 20 50 52 49 4e 54 20 0b 43 ┆XT I 0470 PRINT 0480 PRINT C┆ 0x16900…16920 (11, 0, 10) 30 34 39 30 20 50 52 49 4e 54 20 22 4f 62 73 65 72 76 61 74 69 6f 6e 73 73 7b 74 74 65 6e 65 20 ┆0490 PRINT "Observationssættene ┆ 0x16920…16940 58 20 6f 67 20 59 20 68 61 72 20 66 7c 6c 67 65 6e 64 65 20 64 65 73 6b 72 69 70 74 6f 72 65 72 ┆X og Y har følgende deskriptorer┆ 0x16940…16960 3a 20 22 43 0b 30 35 30 30 20 50 52 49 4e 54 20 0b 29 30 35 31 30 20 50 52 49 4e 54 20 55 53 49 ┆: "C 0500 PRINT )0510 PRINT USI┆ 0x16960…16980 4e 47 20 22 4d 28 58 29 20 20 20 20 20 3d 2b 23 23 23 23 2e 23 23 23 22 3a 4d 58 29 29 30 35 32 ┆NG "M(X) =+####.###":MX))052┆ 0x16980…169a0 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 4d 28 59 29 20 20 20 20 20 3d 2b 23 23 23 23 2e 23 ┆0 PRINT USING "M(Y) =+####.#┆ 0x169a0…169c0 23 23 22 3a 4d 59 29 29 30 35 33 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 56 28 58 29 20 20 ┆##":MY))0530 PRINT USING "V(X) ┆ 0x169c0…169e0 20 20 20 3d 2b 23 23 23 23 2e 23 23 23 22 3a 56 58 29 29 30 35 34 30 20 50 52 49 4e 54 20 55 53 ┆ =+####.###":VX))0540 PRINT US┆ 0x169e0…16a00 49 4e 47 20 22 56 28 59 29 20 20 20 20 20 3d 2b 23 23 23 23 2e 23 23 23 22 3a 56 59 29 29 30 35 ┆ING "V(Y) =+####.###":VY))05┆ 0x16a00…16a20 (11, 0, 11) 35 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 53 28 58 29 20 20 20 20 20 3d 2b 23 23 23 23 2e ┆50 PRINT USING "S(X) =+####.┆ 0x16a20…16a40 23 23 23 22 3a 53 58 29 29 30 35 36 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 53 28 59 29 20 ┆###":SX))0560 PRINT USING "S(Y) ┆ 0x16a40…16a60 20 20 20 20 3d 2b 23 23 23 23 2e 23 23 23 22 3a 53 59 29 2c 30 35 37 30 20 50 52 49 4e 54 20 55 ┆ =+####.###":SY),0570 PRINT U┆ 0x16a60…16a80 53 49 4e 47 20 22 43 4f 56 28 58 2c 59 29 20 3d 2b 23 23 23 23 2e 23 23 23 22 3a 43 4f 56 58 59 ┆SING "COV(X,Y) =+####.###":COVXY┆ 0x16a80…16aa0 2c 28 30 35 38 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 52 28 58 2c 59 29 20 20 20 3d 2b 23 ┆,(0580 PRINT USING "R(X,Y) =+#┆ 0x16aa0…16ac0 23 23 23 2e 23 23 23 22 3a 52 28 0b 30 35 39 30 20 50 52 49 4e 54 20 0b 3b 30 36 30 30 20 50 52 ┆###.###":R( 0590 PRINT ;0600 PR┆ 0x16ac0…16ae0 49 4e 54 20 22 59 2d 72 65 67 72 65 73 73 69 6f 6e 73 6c 69 6e 69 65 6e 20 79 3a 3d 61 78 20 2b ┆INT "Y-regressionslinien y:=ax +┆ 0x16ae0…16b00 20 62 20 65 72 20 66 61 73 74 6c 61 67 74 20 76 65 64 3a 22 3b 35 30 36 31 30 20 50 52 49 4e 54 ┆ b er fastlagt ved:";50610 PRINT┆ 0x16b00…16b20 (11, 0, 12) 20 55 53 49 4e 47 20 22 61 3d 2b 23 23 23 2e 23 23 23 20 20 20 20 20 20 20 20 20 62 3d 2b 23 23 ┆ USING "a=+###.### b=+##┆ 0x16b20…16b40 23 2e 23 23 23 20 22 3a 41 2c 42 35 0b 30 36 33 30 20 50 52 49 4e 54 20 0b 0b 30 36 34 30 20 44 ┆#.### ":A,B5 0630 PRINT 0640 D┆ 0x16b40…16b60 41 54 41 20 38 0b 1b 30 36 35 30 20 44 41 54 41 20 35 2c 37 2c 38 2c 31 30 2c 38 2c 31 31 2c 39 ┆ATA 8 0650 DATA 5,7,8,10,8,11,9┆ 0x16b60…16b80 2c 37 1b 1a 30 36 36 30 20 44 41 54 41 20 31 32 2c 38 2c 37 2c 36 2c 38 2c 34 2c 37 2c 39 1a 40 ┆,7 0660 DATA 12,8,7,6,8,4,7,9 @┆ 0x16b80…16ba0 30 36 37 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 4c 69 6e 69 65 6e 73 20 6c 69 67 6e 69 6e ┆0670 PRINT USING "Liniens lignin┆ 0x16ba0…16bc0 67 3a 20 20 20 79 20 3d 20 2b 23 23 23 2e 23 23 23 78 20 2b 23 23 23 2e 23 23 23 22 3a 41 2c 42 ┆g: y = +###.###x +###.###":A,B┆ 0x16bc0…16be0 40 11 30 36 39 30 20 43 55 52 53 4f 52 20 37 30 2c 32 34 11 17 30 37 30 30 20 49 4e 50 55 54 20 ┆@ 0690 CURSOR 70,24 0700 INPUT ┆ 0x16be0…16c00 22 52 65 74 75 72 6e 21 22 3a 53 24 17 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆"Return!":S$ ccccccccccccccccc┆ 0x16c00…16d00 (11, 0, 13) 0x63[0x100] […0x1…] 0x16e00…16e20 (11, 0, 15) 4b 4f 52 52 45 4c 41 54 4b 42 01 0a 00 00 00 00 16 00 04 17 00 08 00 00 00 20 00 00 00 00 00 00 ┆KORRELATKB ┆ 0x16e20…16e40 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆ […0x6…] 0x16f00…17000 (11, 0, 16) 0x63[0x100] […0x8…] 0x17800…17820 (11, 1, 9) ExtentHdr {name=»INFO «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0018,02 (0x018100)}, 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 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0018,03 (0x018200)}, 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 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0018,0d (0x018c00)}, 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 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0019,07 (0x019600)}, f04=» «, postl=0x00fe, f99=» «} 0x18d20…19700 Extent[0x9e0] 0x19700…19720 (12, 1, 8) 41 4e 54 49 4c 4f 47 20 4b 41 01 01 00 19 00 08 00 00 00 19 00 08 41 19 00 fe 00 00 00 00 00 00 ┆ANTILOG KA A ┆ 0x19720…19740 32 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 61 6e 74 69 6c 6f 67 20 2d 2d ┆20010 // ------------ antilog --┆ 0x19740…19760 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 32 14 30 30 32 30 20 50 52 4f 43 20 41 ┆-------------------2 0020 PROC A┆ 0x19760…19780 4e 54 49 4c 4f 47 28 58 29 14 13 30 30 33 30 20 41 4e 54 49 4c 4f 47 3a 3d 31 30 2a 2a 58 13 14 ┆NTILOG(X) 0030 ANTILOG:=10**X ┆ 0x19780…197a0 30 30 34 30 20 45 4e 44 50 52 4f 43 20 41 4e 54 49 4c 4f 47 14 08 30 30 35 30 20 2f 2f 20 08 0b ┆0040 ENDPROC ANTILOG 0050 // ┆ 0x197a0…197c0 30 30 36 30 20 43 4c 45 41 52 20 0b 0b 30 30 36 35 20 50 52 49 4e 54 20 0b 22 30 30 37 30 20 49 ┆0060 CLEAR 0065 PRINT "0070 I┆ 0x197c0…197e0 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 65 74 20 74 61 6c 3a 20 20 20 20 22 3a 41 22 29 30 30 ┆NPUT "Indtast et tal: ":A")00┆ 0x197e0…19800 38 30 20 50 52 49 4e 54 20 22 41 6e 74 69 6c 6f 67 28 22 3b 41 3b 22 29 20 3d 20 22 3b 41 4e 54 ┆80 PRINT "Antilog(";A;") = ";ANT┆ 0x19800…19820 (12, 1, 9) 41 4e 54 49 4c 4f 47 20 4b 42 01 01 00 00 00 00 19 00 07 19 00 09 41 19 00 20 00 00 00 00 00 00 ┆ANTILOG KB A ┆ 0x19820…19840 49 4c 4f 47 28 41 29 29 00 00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 61 6e 74 69 6c 6f 67 20 2d 2d ┆ILOG(A)) ----------- antilog --┆ 0x19840…19860 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 32 14 30 30 32 30 20 50 52 4f 43 20 41 ┆-------------------2 0020 PROC A┆ 0x19860…19880 4e 54 49 4c 4f 47 28 58 29 14 13 30 30 33 30 20 41 4e 54 49 4c 4f 47 3a 3d 31 30 2a 2a 58 13 14 ┆NTILOG(X) 0030 ANTILOG:=10**X ┆ 0x19880…198a0 30 30 34 30 20 45 4e 44 50 52 4f 43 20 41 4e 54 49 4c 4f 47 14 08 30 30 35 30 20 2f 2f 20 08 0b ┆0040 ENDPROC ANTILOG 0050 // ┆ 0x198a0…198c0 30 30 36 30 20 43 4c 45 41 52 20 0b 0b 30 30 36 35 20 50 52 49 4e 54 20 0b 22 30 30 37 30 20 49 ┆0060 CLEAR 0065 PRINT "0070 I┆ 0x198c0…198e0 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 65 74 20 74 61 6c 3a 20 20 20 20 22 3a 41 22 00 00 00 ┆NPUT "Indtast et tal: ":A" ┆ 0x198e0…19900 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x19900…19920 (12, 1, 10) ExtentHdr {name=»TELEFON «, typ=»K«, seg=»A«, next=0x00, basis=0x0022, nextext={DA 0000,00 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 001b,0b (0x01ba00)}, 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 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 001c,05 (0x01c400)}, f04=»A «, postl=0x00fe, f99=» «} 0x1bb20…1c500 Extent[0x9e0] 0x1c500…1c520 (14, 0, 6) 52 55 4d 46 41 4e 47 33 4b 41 02 0a 00 1c 00 0f 00 00 00 1c 00 0f 41 1b 00 fe 00 55 4d 46 41 4e ┆RUMFANG3KA A UMFAN┆ 0x1c520…1c540 45 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆E0010 // -----------------------┆ 0x1c540…1c560 2d 20 72 75 6d 66 61 6e 67 33 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆- rumfang3 ---------------------┆ 0x1c560…1c580 2d 2d 2d 2d 2d 2d 45 44 30 30 32 30 20 2f 2f 20 55 64 72 65 67 6e 65 72 20 66 6f 72 73 6b 65 6c ┆------ED0020 // Udregner forskel┆ 0x1c580…1c5a0 6c 69 67 65 20 72 75 6d 66 61 6e 67 20 76 2f 49 46 2d 73 7b 74 6e 69 6e 67 65 72 20 73 61 6d 74 ┆lige rumfang v/IF-sætninger samt┆ 0x1c5a0…1c5c0 20 70 72 6f 63 65 64 75 72 65 72 2e 44 11 30 30 33 30 20 44 49 4d 20 53 56 24 20 4f 46 20 33 11 ┆ procedurer.D 0030 DIM SV$ OF 3 ┆ 0x1c5c0…1c5e0 0c 30 30 34 30 20 52 45 50 45 41 54 20 0c 0b 30 30 35 30 20 43 4c 45 41 52 20 0b 10 30 30 36 30 ┆ 0040 REPEAT 0050 CLEAR 0060┆ 0x1c5e0…1c600 20 43 55 52 53 4f 52 20 31 30 2c 33 10 32 30 30 37 30 20 50 52 49 4e 54 20 22 44 65 74 74 65 20 ┆ CURSOR 10,3 20070 PRINT "Dette ┆ 0x1c600…1c620 (14, 0, 7) 70 72 6f 67 72 61 6d 20 75 64 73 6b 72 69 76 65 72 20 72 75 6d 66 61 6e 67 65 74 20 61 66 3a 22 ┆program udskriver rumfanget af:"┆ 0x1c620…1c640 32 10 30 30 38 30 20 43 55 52 53 4f 52 20 31 30 2c 34 10 32 30 30 39 30 20 50 52 49 4e 54 20 22 ┆2 0080 CURSOR 10,4 20090 PRINT "┆ 0x1c640…1c660 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆ 0x1c660…1c680 2d 2d 2d 2d 2d 22 32 0b 30 31 30 30 20 50 52 49 4e 54 20 0b 10 30 31 31 30 20 43 55 52 53 4f 52 ┆-----"2 0100 PRINT 0110 CURSOR┆ 0x1c680…1c6a0 20 31 30 2c 36 10 3d 30 31 32 30 20 50 52 49 4e 54 20 22 4b 61 73 73 65 2e 2e 2e 2e 2e 2e 2e 2e ┆ 10,6 =0120 PRINT "Kasse........┆ 0x1c6a0…1c6c0 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 54 61 73 ┆.............................Tas┆ 0x1c6c0…1c6e0 74 20 31 22 3d 10 30 31 33 30 20 43 55 52 53 4f 52 20 31 30 2c 38 10 3d 30 31 34 30 20 50 52 49 ┆t 1"= 0130 CURSOR 10,8 =0140 PRI┆ 0x1c6e0…1c700 4e 54 20 22 50 79 72 61 6d 69 64 65 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ┆NT "Pyramide....................┆ 0x1c700…1c720 (14, 0, 8) 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 54 61 73 74 20 32 22 3d 11 30 31 35 30 20 43 55 52 53 ┆..............Tast 2"= 0150 CURS┆ 0x1c720…1c740 4f 52 20 31 30 2c 31 30 11 3d 30 31 36 30 20 50 52 49 4e 54 20 22 50 79 72 61 6d 69 64 65 73 74 ┆OR 10,10 =0160 PRINT "Pyramidest┆ 0x1c740…1c760 75 62 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ┆ub..............................┆ 0x1c760…1c780 54 61 73 74 20 33 22 3d 11 30 31 37 30 20 43 55 52 53 4f 52 20 31 30 2c 31 32 11 3d 30 31 38 30 ┆Tast 3"= 0170 CURSOR 10,12 =0180┆ 0x1c780…1c7a0 20 50 52 49 4e 54 20 22 43 79 6c 69 6e 64 65 72 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ┆ PRINT "Cylinder................┆ 0x1c7a0…1c7c0 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 54 61 73 74 20 34 22 3d 11 30 31 39 30 20 ┆..................Tast 4"= 0190 ┆ 0x1c7c0…1c7e0 43 55 52 53 4f 52 20 31 30 2c 31 34 11 3d 30 32 30 30 20 50 52 49 4e 54 20 22 4b 65 67 6c 65 2e ┆CURSOR 10,14 =0200 PRINT "Kegle.┆ 0x1c7e0…1c800 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ┆................................┆ 0x1c800…1c820 (14, 0, 9) 2e 2e 2e 2e 54 61 73 74 20 35 22 3d 11 30 32 31 30 20 43 55 52 53 4f 52 20 31 30 2c 31 36 11 3d ┆....Tast 5"= 0210 CURSOR 10,16 =┆ 0x1c820…1c840 30 32 32 30 20 50 52 49 4e 54 20 22 4b 65 67 6c 65 73 74 75 62 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ┆0220 PRINT "Keglestub...........┆ 0x1c840…1c860 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 54 61 73 74 20 36 22 3d 11 30 ┆......................Tast 6"= 0┆ 0x1c860…1c880 32 33 30 20 43 55 52 53 4f 52 20 31 30 2c 31 38 11 3d 30 32 34 30 20 50 52 49 4e 54 20 22 4b 75 ┆230 CURSOR 10,18 =0240 PRINT "Ku┆ 0x1c880…1c8a0 67 6c 65 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ┆gle.............................┆ 0x1c8a0…1c8c0 2e 2e 2e 2e 2e 2e 2e 2e 54 61 73 74 20 37 22 3d 11 30 32 35 30 20 43 55 52 53 4f 52 20 31 30 2c ┆........Tast 7"= 0250 CURSOR 10,┆ 0x1c8c0…1c8e0 32 30 11 3d 30 32 36 30 20 50 52 49 4e 54 20 22 53 74 6f 70 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ┆20 =0260 PRINT "Stop............┆ 0x1c8e0…1c900 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 54 61 73 74 20 38 ┆..........................Tast 8┆ 0x1c900…1c920 (14, 0, 10) 22 3d 11 30 32 37 30 20 43 55 52 53 4f 52 20 31 30 2c 31 36 11 0b 30 32 38 30 20 50 52 49 4e 54 ┆"= 0270 CURSOR 10,16 0280 PRINT┆ 0x1c920…1c940 20 0b 0b 30 32 39 30 20 50 52 49 4e 54 20 0b 11 30 33 30 30 20 43 55 52 53 4f 52 20 31 30 2c 32 ┆ 0290 PRINT 0300 CURSOR 10,2┆ 0x1c940…1c960 32 11 35 30 33 31 30 20 50 52 49 4e 54 20 22 49 6e 64 74 61 73 74 20 64 65 74 20 7c 6e 73 6b 65 ┆2 50310 PRINT "Indtast det ønske┆ 0x1c960…1c980 64 65 20 6e 75 6d 6d 65 72 20 66 6f 72 20 72 75 6d 66 61 6e 67 3a 22 3b 35 10 30 33 32 30 20 49 ┆de nummer for rumfang:";5 0320 I┆ 0x1c980…1c9a0 4e 50 55 54 20 5c 4e 53 4b 45 10 47 30 33 33 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆NPUT ØNSKE G0330 // ------------┆ 0x1c9a0…1c9c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆ 0x1c9c0…1c9e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 47 0b 30 33 34 30 20 50 52 49 4e 54 20 ┆-------------------G 0340 PRINT ┆ 0x1c9e0…1ca00 0b 1f 30 33 35 30 20 49 46 20 5c 4e 53 4b 45 3d 31 20 54 48 45 4e 20 45 58 45 43 20 4b 41 53 53 ┆ 0350 IF ØNSKE=1 THEN EXEC KASS┆ 0x1ca00…1ca20 (14, 0, 11) 45 1f 22 30 33 36 30 20 49 46 20 5c 4e 53 4b 45 3d 32 20 54 48 45 4e 20 45 58 45 43 20 50 59 52 ┆E "0360 IF ØNSKE=2 THEN EXEC PYR┆ 0x1ca20…1ca40 41 4d 49 44 45 22 26 30 33 37 30 20 49 46 20 5c 4e 53 4b 45 3d 33 20 54 48 45 4e 20 45 58 45 43 ┆AMIDE"&0370 IF ØNSKE=3 THEN EXEC┆ 0x1ca40…1ca60 20 50 59 52 41 4d 49 44 45 53 54 55 42 26 22 30 33 38 30 20 49 46 20 5c 4e 53 4b 45 3d 34 20 54 ┆ PYRAMIDESTUB&"0380 IF ØNSKE=4 T┆ 0x1ca60…1ca80 48 45 4e 20 45 58 45 43 20 43 59 4c 49 4e 44 45 52 22 1f 30 33 39 30 20 49 46 20 5c 4e 53 4b 45 ┆HEN EXEC CYLINDER" 0390 IF ØNSKE┆ 0x1ca80…1caa0 3d 35 20 54 48 45 4e 20 45 58 45 43 20 4b 45 47 4c 45 1f 23 30 34 30 30 20 49 46 20 5c 4e 53 4b ┆=5 THEN EXEC KEGLE #0400 IF ØNSK┆ 0x1caa0…1cac0 45 3d 36 20 54 48 45 4e 20 45 58 45 43 20 4b 45 47 4c 45 53 54 55 42 23 1f 30 34 31 30 20 49 46 ┆E=6 THEN EXEC KEGLESTUB# 0410 IF┆ 0x1cac0…1cae0 20 5c 4e 53 4b 45 3d 37 20 54 48 45 4e 20 45 58 45 43 20 4b 55 47 4c 45 1f 11 30 34 32 30 20 43 ┆ ØNSKE=7 THEN EXEC KUGLE 0420 C┆ 0x1cae0…1cb00 55 52 53 4f 52 20 36 38 2c 32 32 11 15 30 34 33 30 20 50 52 49 4e 54 20 22 52 65 74 75 72 6e 21 ┆URSOR 68,22 0430 PRINT "Return!┆ 0x1cb00…1cb20 (14, 0, 12) 22 3b 15 1e 30 34 34 30 20 49 46 20 5c 4e 53 4b 45 3d 38 20 54 48 45 4e 20 45 58 45 43 20 53 4c ┆"; 0440 IF ØNSKE=8 THEN EXEC SL┆ 0x1cb20…1cb40 55 54 1e 0e 30 34 35 30 20 49 4e 50 55 54 20 53 56 24 0e 12 30 34 36 30 20 55 4e 54 49 4c 20 5c ┆UT 0450 INPUT SV$ 0460 UNTIL Ø┆ 0x1cb40…1cb60 4e 53 4b 45 3d 38 12 4c 30 34 37 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆NSKE=8 L0470 // ----------------┆ 0x1cb60…1cb80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆ 0x1cb80…1cba0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4c 0f 30 34 38 30 20 50 52 4f 43 20 ┆--------------------L 0480 PROC ┆ 0x1cba0…1cbc0 4b 41 53 53 45 0f 0b 30 34 39 30 20 43 4c 45 41 52 20 0b 0f 30 35 30 30 20 43 55 52 53 4f 52 20 ┆KASSE 0490 CLEAR 0500 CURSOR ┆ 0x1cbc0…1cbe0 31 2c 36 0f 33 30 35 31 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆1,6 30510 PRINT " ┆ 0x1cbe0…1cc00 20 20 20 20 20 20 20 20 20 20 20 4b 20 41 20 53 20 53 20 45 20 2e 20 22 33 4d 30 35 32 30 20 50 ┆ K A S S E . "3M0520 P┆ 0x1cc00…1cc20 (14, 0, 13) 52 49 4e 54 20 22 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆RINT "__________________________┆ 0x1cc20…1cc40 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆ 0x1cc40…1cc60 5f 5f 5f 5f 5f 5f 22 4d 10 30 35 33 30 20 43 55 52 53 4f 52 20 31 2c 31 30 10 3f 30 35 34 30 20 ┆______"M 0530 CURSOR 1,10 ?0540 ┆ 0x1cc60…1cc80 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6c 7b 6e 67 64 65 3a 20 20 20 20 20 20 20 20 20 20 ┆INPUT "Indtast længde: ┆ 0x1cc80…1cca0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 4c 5b 4e 47 44 45 3f 0b 30 35 35 30 ┆ ":LÆNGDE? 0550┆ 0x1cca0…1ccc0 20 50 52 49 4e 54 20 0b 3f 30 35 36 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 62 72 65 ┆ PRINT ?0560 INPUT "Indtast bre┆ 0x1ccc0…1cce0 64 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆dde: ┆ 0x1cce0…1cd00 22 3a 42 52 45 44 44 45 3f 0b 30 35 37 30 20 50 52 49 4e 54 20 0b 3e 30 35 38 30 20 49 4e 50 55 ┆":BREDDE? 0570 PRINT >0580 INPU┆ 0x1cd00…1cd20 (14, 0, 14) 54 20 22 49 6e 64 74 61 73 74 20 68 7c 6a 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆T "Indtast højde: ┆ 0x1cd20…1cd40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 48 5c 4a 44 45 3e 0b 30 35 39 30 20 50 52 49 4e ┆ ":HØJDE> 0590 PRIN┆ 0x1cd40…1cd60 54 20 0b 0b 30 36 30 30 20 50 52 49 4e 54 20 0b 21 30 36 31 30 20 52 55 4d 46 41 4e 47 3a 3d 4c ┆T 0600 PRINT !0610 RUMFANG:=L┆ 0x1cd60…1cd80 5b 4e 47 44 45 2a 42 52 45 44 44 45 2a 48 5c 4a 44 45 21 40 30 36 32 30 20 50 52 49 4e 54 20 22 ┆ÆNGDE*BREDDE*HØJDE!@0620 PRINT "┆ 0x1cd80…1cda0 52 75 6d 66 61 6e 67 65 74 20 61 66 20 6b 61 73 73 65 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 ┆Rumfanget af kassen: ┆ 0x1cda0…1cdc0 20 20 20 20 20 20 20 20 20 20 20 22 3b 52 55 4d 46 41 4e 47 40 12 30 36 33 30 20 45 4e 44 50 52 ┆ ";RUMFANG@ 0630 ENDPR┆ 0x1cdc0…1cde0 4f 43 20 4b 41 53 53 45 12 4a 30 36 34 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆OC KASSE J0640 // --------------┆ 0x1cde0…1ce00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆ 0x1ce00…1ce20 (14, 0, 15) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4a 12 30 36 35 30 20 50 52 4f 43 20 ┆--------------------J 0650 PROC ┆ 0x1ce20…1ce40 50 59 52 41 4d 49 44 45 12 0b 30 36 36 30 20 43 4c 45 41 52 20 0b 0f 30 36 37 30 20 43 55 52 53 ┆PYRAMIDE 0660 CLEAR 0670 CURS┆ 0x1ce40…1ce60 4f 52 20 31 2c 35 0f 39 30 36 38 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 ┆OR 1,5 90680 PRINT " ┆ 0x1ce60…1ce80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 20 59 20 52 20 41 20 4d 20 49 20 44 20 45 20 2e ┆ P Y R A M I D E .┆ 0x1ce80…1cea0 22 39 4d 30 36 39 30 20 50 52 49 4e 54 20 22 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆"9M0690 PRINT "_________________┆ 0x1cea0…1cec0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆ 0x1cec0…1cee0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 22 4d 10 30 37 30 30 20 43 55 52 53 4f 52 20 31 2c ┆_______________"M 0700 CURSOR 1,┆ 0x1cee0…1cf00 31 30 10 45 30 37 31 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6c 7b 6e 67 64 65 3a 20 ┆10 E0710 INPUT "Indtast længde: ┆ 0x1cf00…1cf20 (14, 0, 16) 52 55 4d 46 41 4e 47 33 4b 42 01 0a 00 1d 00 09 1c 00 05 1d 00 09 41 1b 00 20 00 55 4d 46 41 4e ┆RUMFANG3KB A UMFAN┆ 0x1cf20…1cf40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1cf40…1cf60 20 22 3a 4c 5b 4e 47 44 45 45 0b 30 37 32 30 20 50 52 49 4e 54 20 0b 45 30 37 33 30 20 49 4e 50 ┆ ":LÆNGDEE 0720 PRINT E0730 INP┆ 0x1cf60…1cf80 55 54 20 22 49 6e 64 74 61 73 74 20 62 72 65 64 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆UT "Indtast bredde: ┆ 0x1cf80…1cfa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 42 52 45 44 44 45 45 0b 30 ┆ ":BREDDEE 0┆ 0x1cfa0…1cfc0 37 34 30 20 50 52 49 4e 54 20 0b 44 30 37 35 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 ┆740 PRINT D0750 INPUT "Indtast ┆ 0x1cfc0…1cfe0 68 7c 6a 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆højde: ┆ 0x1cfe0…1d000 20 20 20 20 20 20 20 20 20 22 3a 48 5c 4a 44 45 44 32 30 37 36 30 20 52 55 4d 46 41 4e 47 3a 3d ┆ ":HØJDED20760 RUMFANG:=┆ 0x1d000…1d020 (14, 1, 1) 49 4e 54 28 31 2f 33 2a 48 5c 4a 44 45 2a 42 52 45 44 44 45 2a 4c 5b 4e 47 44 45 2a 31 30 30 29 ┆INT(1/3*HØJDE*BREDDE*LÆNGDE*100)┆ 0x1d020…1d040 2f 31 30 30 32 0b 30 37 37 30 20 50 52 49 4e 54 20 0b 46 30 37 38 30 20 50 52 49 4e 54 20 22 52 ┆/1002 0770 PRINT F0780 PRINT "R┆ 0x1d040…1d060 75 6d 66 61 6e 67 65 74 20 61 66 20 65 6e 20 70 79 72 61 6d 69 64 65 20 6d 65 64 20 64 65 20 7c ┆umfanget af en pyramide med de ø┆ 0x1d060…1d080 6e 73 6b 65 64 65 20 6d 7d 6c 3a 20 20 20 20 20 22 3b 52 55 4d 46 41 4e 47 46 15 30 37 39 30 20 ┆nskede mål: ";RUMFANGF 0790 ┆ 0x1d080…1d0a0 45 4e 44 50 52 4f 43 20 50 59 52 41 4d 49 44 45 15 4a 30 38 30 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d ┆ENDPROC PYRAMIDE J0800 // ------┆ 0x1d0a0…1d0c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆ 0x1d0c0…1d0e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4a 16 30 38 ┆----------------------------J 08┆ 0x1d0e0…1d100 31 30 20 50 52 4f 43 20 50 59 52 41 4d 49 44 45 53 54 55 42 16 0b 30 38 32 30 20 43 4c 45 41 52 ┆10 PROC PYRAMIDESTUB 0820 CLEAR┆ 0x1d100…1d120 (14, 1, 2) 20 0b 0f 30 38 33 30 20 43 55 52 53 4f 52 20 31 2c 35 0f 41 30 38 34 30 20 50 52 49 4e 54 20 22 ┆ 0830 CURSOR 1,5 A0840 PRINT "┆ 0x1d120…1d140 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 20 59 20 52 20 41 20 4d ┆ P Y R A M┆ 0x1d140…1d160 20 49 20 44 20 45 20 53 20 54 20 55 20 42 20 2e 20 20 20 20 22 41 4d 30 38 35 30 20 50 52 49 4e ┆ I D E S T U B . "AM0850 PRIN┆ 0x1d160…1d180 54 20 22 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆T "_____________________________┆ 0x1d180…1d1a0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆ 0x1d1a0…1d1c0 5f 5f 5f 22 4d 10 30 38 36 30 20 43 55 52 53 4f 52 20 31 2c 31 30 10 3b 30 38 37 30 20 49 4e 50 ┆___"M 0860 CURSOR 1,10 ;0870 INP┆ 0x1d1c0…1d1e0 55 54 20 22 49 6e 64 74 61 73 74 20 6c 7b 6e 67 64 65 6e 20 69 20 62 75 6e 64 66 6c 61 64 65 6e ┆UT "Indtast længden i bundfladen┆ 0x1d1e0…1d200 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 4c 31 3b 0b 30 38 38 30 20 50 52 49 4e 54 20 ┆: ":L1; 0880 PRINT ┆ 0x1d200…1d220 (14, 1, 3) 0b 3b 30 38 39 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 62 72 65 64 64 65 6e 20 69 20 ┆ ;0890 INPUT "Indtast bredden i ┆ 0x1d220…1d240 62 75 6e 64 66 6c 61 64 65 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 42 31 3b 0b 30 ┆bundfladen: ":B1; 0┆ 0x1d240…1d260 39 30 30 20 50 52 49 4e 54 20 0b 3b 30 39 31 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 ┆900 PRINT ;0910 INPUT "Indtast ┆ 0x1d260…1d280 6c 7b 6e 67 64 65 6e 20 69 20 64 65 6e 20 7c 76 65 72 73 74 65 20 66 6c 61 64 65 3a 20 20 20 20 ┆længden i den øverste flade: ┆ 0x1d280…1d2a0 20 20 20 22 3a 4c 32 3b 0b 30 39 32 30 20 50 52 49 4e 54 20 0b 3b 30 39 33 30 20 49 4e 50 55 54 ┆ ":L2; 0920 PRINT ;0930 INPUT┆ 0x1d2a0…1d2c0 20 22 49 6e 64 74 61 73 74 20 62 72 65 64 64 65 6e 20 69 20 64 65 6e 20 7c 76 65 72 73 74 65 20 ┆ "Indtast bredden i den øverste ┆ 0x1d2c0…1d2e0 66 6c 61 64 65 3a 20 20 20 20 20 20 20 22 3a 42 32 3b 0b 30 39 34 30 20 50 52 49 4e 54 20 0b 3e ┆flade: ":B2; 0940 PRINT >┆ 0x1d2e0…1d300 30 39 35 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 70 79 72 61 6d 69 64 65 73 74 75 62 ┆0950 INPUT "Indtast pyramidestub┆ 0x1d300…1d320 (14, 1, 4) 62 65 6e 73 20 68 7c 6a 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 48 5c 4a 44 45 3e 36 ┆bens højde: ":HØJDE>6┆ 0x1d320…1d340 30 39 36 30 20 52 55 4d 46 41 4e 47 3a 3d 28 48 5c 4a 44 45 2f 33 29 2a 28 4c 31 2a 42 31 2b 4c ┆0960 RUMFANG:=(HØJDE/3)*(L1*B1+L┆ 0x1d340…1d360 32 2a 42 32 2b 53 51 52 28 4c 31 2a 42 31 2a 4c 32 2a 42 32 29 29 36 0b 30 39 37 30 20 50 52 49 ┆2*B2+SQR(L1*B1*L2*B2))6 0970 PRI┆ 0x1d360…1d380 4e 54 20 0b 0b 30 39 38 30 20 50 52 49 4e 54 20 0b 4d 30 39 39 30 20 50 52 49 4e 54 20 22 52 75 ┆NT 0980 PRINT M0990 PRINT "Ru┆ 0x1d380…1d3a0 6d 66 61 6e 67 65 74 20 61 66 20 65 6e 20 70 79 72 61 6d 69 64 65 73 74 75 62 20 6d 65 64 20 64 ┆mfanget af en pyramidestub med d┆ 0x1d3a0…1d3c0 65 20 7c 6e 73 6b 65 64 65 20 6d 7d 6c 3a 20 20 20 20 20 20 20 20 20 22 3b 52 55 4d 46 41 4e 4d ┆e ønskede mål: ";RUMFANM┆ 0x1d3c0…1d3e0 19 31 30 30 30 20 45 4e 44 50 52 4f 43 20 50 59 52 41 4d 49 44 45 53 54 55 42 19 4a 31 30 31 30 ┆ 1000 ENDPROC PYRAMIDESTUB J1010┆ 0x1d3e0…1d400 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ // ----------------------------┆ 0x1d400…1d420 (14, 1, 5) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆ 0x1d420…1d440 2d 2d 2d 2d 2d 2d 4a 12 31 30 32 30 20 50 52 4f 43 20 43 59 4c 49 4e 44 45 52 12 0b 31 30 33 30 ┆------J 1020 PROC CYLINDER 1030┆ 0x1d440…1d460 20 43 4c 45 41 52 20 0b 0f 31 30 34 30 20 43 55 52 53 4f 52 20 31 2c 35 0f 36 31 30 35 30 20 50 ┆ CLEAR 1040 CURSOR 1,5 61050 P┆ 0x1d460…1d480 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 20 59 20 ┆RINT " C Y ┆ 0x1d480…1d4a0 4c 20 49 20 4e 20 44 20 45 20 52 20 2e 20 20 22 36 4d 31 30 36 30 20 50 52 49 4e 54 20 22 5f 5f ┆L I N D E R . "6M1060 PRINT "__┆ 0x1d4a0…1d4c0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆ 0x1d4c0…1d4e0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 22 4d ┆______________________________"M┆ 0x1d4e0…1d500 10 31 30 37 30 20 43 55 52 53 4f 52 20 31 2c 31 30 10 3e 31 30 38 30 20 49 4e 50 55 54 20 22 49 ┆ 1070 CURSOR 1,10 >1080 INPUT "I┆ 0x1d500…1d520 (14, 1, 6) 6e 64 74 61 73 74 20 63 79 6c 69 6e 64 65 72 65 6e 73 20 72 61 64 69 75 73 3a 20 20 20 20 20 20 ┆ndtast cylinderens radius: ┆ 0x1d520…1d540 20 20 20 20 20 20 20 20 20 22 3a 52 41 44 49 55 53 3e 0b 31 30 39 30 20 50 52 49 4e 54 20 0b 3d ┆ ":RADIUS> 1090 PRINT =┆ 0x1d540…1d560 31 31 30 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 63 79 6c 69 6e 64 65 72 65 6e 73 20 ┆1100 INPUT "Indtast cylinderens ┆ 0x1d560…1d580 68 7c 6a 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 48 5c 4a 44 45 3d 32 31 ┆højde: ":HØJDE=21┆ 0x1d580…1d5a0 31 31 30 20 52 55 4d 46 41 4e 47 3a 3d 49 4e 54 28 33 2e 31 34 31 35 39 2a 48 5c 4a 44 45 2a 52 ┆110 RUMFANG:=INT(3.14159*HØJDE*R┆ 0x1d5a0…1d5c0 41 44 49 55 53 2a 2a 32 2a 31 30 30 29 2f 31 30 30 32 0b 31 31 32 30 20 50 52 49 4e 54 20 0b 0b ┆ADIUS**2*100)/1002 1120 PRINT ┆ 0x1d5c0…1d5e0 31 31 33 30 20 50 52 49 4e 54 20 0b 43 31 31 34 30 20 50 52 49 4e 54 20 22 43 79 6c 69 6e 64 65 ┆1130 PRINT C1140 PRINT "Cylinde┆ 0x1d5e0…1d600 72 65 6e 73 20 72 75 6d 66 61 6e 67 20 6d 65 64 20 64 65 20 7c 6e 73 6b 65 64 65 20 6d 7d 6c 3a ┆rens rumfang med de ønskede mål:┆ 0x1d600…1d620 (14, 1, 7) 20 20 20 20 20 20 20 22 3b 52 55 4d 46 41 4e 47 43 15 31 31 35 30 20 45 4e 44 50 52 4f 43 20 43 ┆ ";RUMFANGC 1150 ENDPROC C┆ 0x1d620…1d640 59 4c 49 4e 44 45 52 15 4a 31 31 36 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆YLINDER J1160 // ---------------┆ 0x1d640…1d660 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆ 0x1d660…1d680 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4a 0f 31 31 37 30 20 50 52 4f 43 20 4b ┆-------------------J 1170 PROC K┆ 0x1d680…1d6a0 45 47 4c 45 0f 0b 31 31 38 30 20 43 4c 45 41 52 20 0b 0f 31 31 39 30 20 43 55 52 53 4f 52 20 31 ┆EGLE 1180 CLEAR 1190 CURSOR 1┆ 0x1d6a0…1d6c0 2c 35 0f 35 31 32 30 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆,5 51200 PRINT " ┆ 0x1d6c0…1d6e0 20 20 20 20 20 20 20 20 20 20 20 20 4b 20 45 20 47 20 4c 20 45 20 2e 20 22 35 4d 31 32 31 30 20 ┆ K E G L E . "5M1210 ┆ 0x1d6e0…1d700 50 52 49 4e 54 20 22 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆PRINT "_________________________┆ 0x1d700…1d720 (14, 1, 8) 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆ 0x1d720…1d740 5f 5f 5f 5f 5f 5f 5f 22 4d 10 31 32 32 30 20 43 55 52 53 4f 52 20 31 2c 31 30 10 3e 31 32 33 30 ┆_______"M 1220 CURSOR 1,10 >1230┆ 0x1d740…1d760 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6b 65 67 6c 65 6e 73 20 72 61 64 69 75 73 3a 20 ┆ INPUT "Indtast keglens radius: ┆ 0x1d760…1d780 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 52 41 44 49 55 53 3e 0b 31 32 34 30 ┆ ":RADIUS> 1240┆ 0x1d780…1d7a0 20 50 52 49 4e 54 20 0b 3d 31 32 35 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6b 65 67 ┆ PRINT =1250 INPUT "Indtast keg┆ 0x1d7a0…1d7c0 6c 65 6e 73 20 68 7c 6a 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 ┆lens højde: "┆ 0x1d7c0…1d7e0 3a 48 5c 4a 44 45 3d 21 31 32 36 30 20 52 55 4d 46 41 4e 47 3a 3d 31 2f 33 2a 48 5c 4a 44 45 2a ┆:HØJDE=!1260 RUMFANG:=1/3*HØJDE*┆ 0x1d7e0…1d800 52 41 44 49 55 53 2a 2a 32 21 0b 31 32 37 30 20 50 52 49 4e 54 20 0b 0b 31 32 38 30 20 50 52 49 ┆RADIUS**2! 1270 PRINT 1280 PRI┆ 0x1d800…1d820 (14, 1, 9) 4e 54 20 0b 3f 31 32 39 30 20 50 52 49 4e 54 20 22 4b 65 67 6c 65 6e 73 20 72 75 6d 66 61 6e 67 ┆NT ?1290 PRINT "Keglens rumfang┆ 0x1d820…1d840 20 6d 65 64 20 64 65 20 7c 6e 73 6b 65 64 65 20 6d 7d 6c 3a 20 20 20 20 20 20 20 22 3b 52 55 4d ┆ med de ønskede mål: ";RUM┆ 0x1d840…1d860 46 41 4e 47 3f 12 31 33 30 30 20 45 4e 44 50 52 4f 43 20 4b 45 47 4c 45 12 4a 31 33 31 30 20 2f ┆FANG? 1300 ENDPROC KEGLE J1310 /┆ 0x1d860…1d880 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆/ ------------------------------┆ 0x1d880…1d8a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆ 0x1d8a0…1d8c0 2d 2d 2d 2d 4a 13 31 33 32 30 20 50 52 4f 43 20 4b 45 47 4c 45 53 54 55 42 13 0b 31 33 33 30 20 ┆----J 1320 PROC KEGLESTUB 1330 ┆ 0x1d8c0…1d8e0 43 4c 45 41 52 20 0b 0f 31 33 34 30 20 43 55 52 53 4f 52 20 31 2c 35 0f 3c 31 33 35 30 20 50 52 ┆CLEAR 1340 CURSOR 1,5 <1350 PR┆ 0x1d8e0…1d900 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4b 20 45 20 ┆INT " K E ┆ 0x1d900…1d920 (14, 1, 10) 52 55 4d 46 41 4e 47 33 4b 43 02 0a 00 00 00 00 1c 00 0f 1e 00 03 41 1b 00 20 00 55 4d 46 41 4e ┆RUMFANG3KC A UMFAN┆ 0x1d920…1d940 47 20 4c 20 45 20 53 20 54 20 55 20 42 20 2e 20 20 20 20 20 22 3c 4d 31 33 36 30 20 50 52 49 4e ┆G L E S T U B . "<M1360 PRIN┆ 0x1d940…1d960 54 20 22 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆T "_____________________________┆ 0x1d960…1d980 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆ 0x1d980…1d9a0 5f 5f 5f 22 4d 0b 31 33 37 30 20 50 52 49 4e 54 20 0b 10 31 33 38 30 20 43 55 52 53 4f 52 20 31 ┆___"M 1370 PRINT 1380 CURSOR 1┆ 0x1d9a0…1d9c0 2c 31 30 10 3c 31 33 39 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6b 65 67 6c 65 73 74 ┆,10 <1390 INPUT "Indtast keglest┆ 0x1d9c0…1d9e0 75 62 62 65 6e 73 20 6e 65 64 65 72 73 74 65 20 72 61 64 69 75 73 3a 20 20 20 20 20 20 22 3a 52 ┆ubbens nederste radius: ":R┆ 0x1d9e0…1da00 31 3c 0b 31 34 30 30 20 50 52 49 4e 54 20 0b 3c 31 34 31 30 20 49 4e 50 55 54 20 22 49 6e 64 74 ┆1< 1400 PRINT <1410 INPUT "Indt┆ 0x1da00…1da20 (14, 1, 12) 6d 7d 6c 3a 20 20 20 20 20 20 22 3b 52 55 4d 46 41 4e 47 48 16 31 34 38 30 20 45 4e 44 50 52 4f ┆mål: ";RUMFANGH 1480 ENDPRO┆ 0x1da20…1da40 43 20 4b 45 47 4c 45 53 54 55 42 16 49 31 34 39 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆C KEGLESTUB I1490 // -----------┆ 0x1da40…1da60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆ 0x1da60…1da80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 0f 31 35 30 30 20 50 52 4f ┆----------------------I 1500 PRO┆ 0x1da80…1daa0 43 20 4b 55 47 4c 45 0f 0b 31 35 31 30 20 43 4c 45 41 52 20 0b 0f 31 35 32 30 20 43 55 52 53 4f ┆C KUGLE 1510 CLEAR 1520 CURSO┆ 0x1daa0…1dac0 52 20 31 2c 35 0f 37 31 35 33 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆R 1,5 71530 PRINT " ┆ 0x1dac0…1dae0 20 20 20 20 20 20 20 20 20 20 20 20 20 4b 20 55 20 47 20 4c 20 45 20 2e 20 20 20 20 20 22 37 4d ┆ K U G L E . "7M┆ 0x1dae0…1db00 31 35 34 30 20 50 52 49 4e 54 20 22 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆1540 PRINT "____________________┆ 0x1db00…1db20 (14, 1, 13) 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆ 0x1db20…1db40 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 22 4d 10 31 35 35 30 20 43 55 52 53 4f 52 20 31 2c 31 30 10 ┆____________"M 1550 CURSOR 1,10 ┆ 0x1db40…1db60 3f 31 35 36 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6b 75 67 6c 65 6e 73 20 72 61 64 ┆?1560 INPUT "Indtast kuglens rad┆ 0x1db60…1db80 69 75 73 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 52 41 44 49 55 53 ┆ius: ":RADIUS┆ 0x1db80…1dba0 3f 23 31 35 37 30 20 52 55 4d 46 41 4e 47 3a 3d 34 2f 33 2a 33 2e 31 34 31 35 39 2a 52 41 44 49 ┆?#1570 RUMFANG:=4/3*3.14159*RADI┆ 0x1dba0…1dbc0 55 53 2a 2a 33 23 10 31 35 38 30 20 43 55 52 53 4f 52 20 31 2c 31 36 10 35 31 35 39 30 20 50 52 ┆US**3# 1580 CURSOR 1,16 51590 PR┆ 0x1dbc0…1dbe0 49 4e 54 20 22 52 75 6d 66 61 6e 67 65 74 20 61 66 20 65 6e 20 6b 75 67 6c 65 2c 20 68 76 6f 72 ┆INT "Rumfanget af en kugle, hvor┆ 0x1dbe0…1dc00 20 72 61 64 69 75 73 20 65 72 3a 20 22 3b 35 2c 31 35 39 35 20 50 52 49 4e 54 20 52 41 44 49 55 ┆ radius er: ";5,1595 PRINT RADIU┆ 0x1dc00…1dc20 (14, 1, 14) 53 3b 22 20 3d 20 22 3b 49 4e 54 28 52 55 4d 46 41 4e 47 2a 31 30 30 29 2f 31 30 30 2c 12 31 36 ┆S;" = ";INT(RUMFANG*100)/100, 16┆ 0x1dc20…1dc40 30 30 20 45 4e 44 50 52 4f 43 20 4b 55 47 4c 45 12 4a 31 36 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d ┆00 ENDPROC KUGLE J1610 // ------┆ 0x1dc40…1dc60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆ 0x1dc60…1dc80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4a 0e 31 36 ┆----------------------------J 16┆ 0x1dc80…1dca0 32 30 20 50 52 4f 43 20 53 4c 55 54 0e 0b 31 36 33 30 20 43 4c 45 41 52 20 0b 11 31 36 34 30 20 ┆20 PROC SLUT 1630 CLEAR 1640 ┆ 0x1dca0…1dcc0 43 55 52 53 4f 52 20 31 35 2c 31 32 11 38 31 36 35 30 20 50 52 49 4e 54 20 22 44 65 74 20 76 61 ┆CURSOR 15,12 81650 PRINT "Det va┆ 0x1dcc0…1dce0 72 20 73 7d 20 65 6e 20 64 65 6c 20 6e 79 65 20 72 75 6d 66 61 6e 67 2e 20 54 61 6b 20 66 6f 72 ┆r så en del nye rumfang. Tak for┆ 0x1dce0…1dd00 20 6e 75 2e 20 22 38 10 31 36 36 30 20 43 55 52 53 4f 52 20 31 2c 32 31 10 09 31 36 37 30 20 45 ┆ nu. "8 1660 CURSOR 1,21 1670 E┆ 0x1dd00…1dd20 (14, 1, 15) 4e 44 20 09 11 31 36 38 30 20 45 4e 44 50 52 4f 43 20 53 4c 55 54 11 00 00 63 63 63 63 63 63 63 ┆ND 1680 ENDPROC SLUT ccccccc┆ 0x1dd20…1dd40 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆ […0x6…] 0x1de00…1df00 (14, 1, 16) 0x63[0x100] […0x3…] 0x1e200…1e220 (15, 0, 4) ExtentHdr {name=»KARTOTEK«, typ=»K«, seg=»A«, next=0x01, basis=0x000a, nextext={DA 001e,0d (0x01ec00)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 001e,0d (0x01ec00)}, f04=» «, postl=0x00fe, f99=» «} 0x1e220…1ec00 Extent[0x9e0] 0x1ec00…1ec20 (15, 0, 14) ExtentHdr {name=»KARTOTEK«, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0000,00 (0x-00100)}, prevext={DA 001e,03 (0x01e200)}, nextfile={DA 001f,07 (0x01f600)}, f04=» «, postl=0x0020, f99=» «} 0x1ec20…1f600 Extent[0x9e0] 0x1f600…1f620 (15, 1, 8) ExtentHdr {name=»POSTTAK2«, typ=»K«, seg=»A«, next=0x01, basis=0x0004, nextext={DA 001f,0b (0x01fa00)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 001f,0b (0x01fa00)}, f04=»A «, postl=0x00fe, f99=» «} 0x1f620…1fa00 Extent[0x3e0] 0x1fa00…1fa20 (15, 1, 12) ExtentHdr {name=»POSTTAK2«, typ=»K«, seg=»B«, next=0x01, basis=0x0004, nextext={DA 0000,00 (0x-00100)}, prevext={DA 001f,07 (0x01f600)}, nextfile={DA 001f,0f (0x01fe00)}, f04=»A «, postl=0x0020, f99=» «} 0x1fa20…1fe00 Extent[0x3e0] 0x1fe00…1fe20 (15, 1, 16) ExtentHdr {name=»SYSBÅND «, typ=»K«, seg=»A«, next=0x00, basis=0x001b, nextext={DA 0000,00 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0021,0a (0x021900)}, 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 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0022,04 (0x022300)}, 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 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0022,0e (0x022d00)}, 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 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0023,08 (0x023700)}, f04=»A" «, postl=0x00ff, f99=»AGER «} 0x22d20…23700 Extent[0x9e0] 0x23700…23720 (17, 1, 9) ExtentHdr {name=»LOWSCORE«, typ=»K«, seg=»A«, next=0x01, basis=0x0001, nextext={DA 0023,09 (0x023800)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0023,09 (0x023800)}, f04=» «, postl=0x00ff, f99=» «} 0x23720…23800 Extent[0xe0] 0x23800…23820 (17, 1, 10) ExtentHdr {name=»LOWSCORE«, typ=»K«, seg=»B«, next=0x01, basis=0x0001, nextext={DA 0000,00 (0x-00100)}, prevext={DA 0023,08 (0x023700)}, nextfile={DA 0023,0a (0x023900)}, f04=» «, postl=0x0020, f99=» «} 0x23820…23900 Extent[0xe0] 0x23900…23920 (17, 1, 11) ExtentHdr {name=»LIGE_ULI«, typ=»K«, seg=»A«, next=0x00, basis=0x0003, nextext={DA 0000,00 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0023,0d (0x023c00)}, 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 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0024,00 (0x023f00)}, 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 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0024,0a (0x024900)}, 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 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0025,04 (0x025300)}, 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 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0026,07 (0x026600)}, f04=»A% «, postl=0x005f, f99=» «} 0x25320…26600 Extent[0x12e0] 0x26600…26620 (19, 0, 8) ExtentHdr {name=»INFOTXT «, typ=»K«, seg=»A«, next=0x02, basis=0x000a, nextext={DA 0027,01 (0x027000)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0027,01 (0x027000)}, f04=»A% «, postl=0x00ff, f99=»NFOTX«} 0x26620…27000 Extent[0x9e0] 0x27000…27020 (19, 1, 2) ExtentHdr {name=»INFOTXT «, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0027,0b (0x027a00)}, prevext={DA 0026,07 (0x026600)}, nextfile={DA 0027,0b (0x027a00)}, f04=»A% «, postl=0x0020, f99=»NFOTX«} 0x27020…27a00 Extent[0x9e0] 0x27a00…27a20 (19, 1, 12) ExtentHdr {name=»INFOTXT «, typ=»K«, seg=»C«, next=0x02, basis=0x000a, nextext={DA 0000,00 (0x-00100)}, prevext={DA 0027,01 (0x027000)}, nextfile={DA 0028,05 (0x028400)}, f04=»A% «, postl=0x0020, f99=»NFOTX«} 0x27a20…28400 Extent[0x9e0] 0x28400…28420 (20, 0, 6) ExtentHdr {name=»OVERFLAD«, typ=»K«, seg=»A«, next=0x00, basis=0x0003, nextext={DA 0000,00 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0028,08 (0x028700)}, f04=»A% «, postl=0x00fe, f99=»NFOTX«} 0x28420…28700 Extent[0x2e0] 0x28700…28720 (20, 0, 9) ExtentHdr {name=»TREKANT1«, typ=»K«, seg=»A«, next=0x01, basis=0x0002, nextext={DA 0028,0a (0x028900)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0028,0a (0x028900)}, f04=»A% «, postl=0x00fe, f99=»NFOTX«} 0x28720…28900 Extent[0x1e0] 0x28900…28920 (20, 0, 11) ExtentHdr {name=»TREKANT1«, typ=»K«, seg=»B«, next=0x01, basis=0x0002, nextext={DA 0000,00 (0x-00100)}, prevext={DA 0028,08 (0x028700)}, nextfile={DA 0028,0c (0x028b00)}, f04=»A% «, postl=0x0020, f99=»NFOTX«} 0x28920…28b00 Extent[0x1e0] 0x28b00…28b20 (20, 0, 13) ExtentHdr {name=»STJERNER«, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0029,06 (0x029500)}, f04=»A% «, postl=0x00fe, f99=»NFOTX«} 0x28b20…29500 Extent[0x9e0] 0x29500…29520 (20, 1, 7) ExtentHdr {name=»EKSMD1 «, typ=»K«, seg=»A«, next=0x01, basis=0x0003, nextext={DA 0029,09 (0x029800)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0029,09 (0x029800)}, f04=» «, postl=0x00fe, f99=» «} 0x29520…29800 Extent[0x2e0] 0x29800…29820 (20, 1, 10) ExtentHdr {name=»EKSMD1 «, typ=»K«, seg=»B«, next=0x01, basis=0x0003, nextext={DA 0000,00 (0x-00100)}, prevext={DA 0029,06 (0x029500)}, nextfile={DA 0029,0c (0x029b00)}, f04=» «, postl=0x0020, f99=» «} 0x29820…29b00 Extent[0x2e0] 0x29b00…29b20 (20, 1, 13) ExtentHdr {name=»RENTE «, typ=»K«, seg=»A«, next=0x00, basis=0x0004, nextext={DA 0000,00 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 002a,00 (0x029f00)}, 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 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 002a,03 (0x02a200)}, 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 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 002a,06 (0x02a500)}, f04=» «, postl=0x00fe, f99=» «} 0x2a220…2a500 Extent[0x2e0] 0x2a500…2a520 (21, 0, 7) ExtentHdr {name=»DEMOSEKV«, typ=»K«, seg=»A«, next=0x01, basis=0x000a, nextext={DA 002b,00 (0x02af00)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 002b,00 (0x02af00)}, f04=» «, postl=0x00fe, f99=» «} 0x2a520…2af00 Extent[0x9e0] 0x2af00…2af20 (21, 1, 1) ExtentHdr {name=»DEMOSEKV«, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0000,00 (0x-00100)}, prevext={DA 002a,06 (0x02a500)}, nextfile={DA 002b,0a (0x02b900)}, f04=» «, postl=0x0020, f99=» «} 0x2af20…2b900 Extent[0x9e0] 0x2b900…2b920 (21, 1, 11) ExtentHdr {name=»OVERFL2 «, typ=»K«, seg=»A«, next=0x01, basis=0x000a, nextext={DA 002c,04 (0x02c300)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 002c,04 (0x02c300)}, f04=»A+ «, postl=0x00fe, f99=» «} 0x2b920…2c300 Extent[0x9e0] 0x2c300…2c320 (22, 0, 5) ExtentHdr {name=»OVERFL2 «, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0000,00 (0x-00100)}, prevext={DA 002b,0a (0x02b900)}, nextfile={DA 002c,0e (0x02cd00)}, f04=»A+ «, postl=0x0020, f99=» «} 0x2c320…2cd00 Extent[0x9e0] 0x2cd00…2cd20 (22, 0, 15) ExtentHdr {name=»EXAMEN «, typ=»K«, seg=»A«, next=0x00, basis=0x0007, nextext={DA 0000,00 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 002d,05 (0x02d400)}, 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 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 002d,0f (0x02de00)}, 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 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 002e,01 (0x02e000)}, f04=» «, postl=0x00fe, f99=» «} 0x2de20…2e000 Extent[0x1e0] 0x2e000…2e020 (23, 0, 2) ExtentHdr {name=»PANTEBRE«, typ=»K«, seg=»A«, next=0x01, basis=0x000a, nextext={DA 002e,0b (0x02ea00)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 002e,0b (0x02ea00)}, f04=»A. «, postl=0x00fe, f99=» «} 0x2e020…2ea00 Extent[0x9e0] 0x2ea00…2ea20 (23, 0, 12) ExtentHdr {name=»PANTEBRE«, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0000,00 (0x-00100)}, prevext={DA 002e,01 (0x02e000)}, nextfile={DA 002f,05 (0x02f400)}, f04=»A. «, postl=0x0020, f99=» «} 0x2ea20…2f400 Extent[0x9e0] 0x2f400…2f420 (23, 1, 6) ExtentHdr {name=»REJSEBUR«, typ=»K«, seg=»A«, next=0x01, basis=0x000a, nextext={DA 002f,0f (0x02fe00)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 002f,0f (0x02fe00)}, f04=» «, postl=0x00fe, f99=» «} 0x2f420…2fe00 Extent[0x9e0] 0x2fe00…2fe20 (23, 1, 16) ExtentHdr {name=»REJSEBUR«, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0000,00 (0x-00100)}, prevext={DA 002f,05 (0x02f400)}, nextfile={DA 0030,09 (0x030800)}, f04=» «, postl=0x0020, f99=» «} 0x2fe20…30800 Extent[0x9e0] 0x30800…30820 (24, 0, 10) ExtentHdr {name=»AFSTAND «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0031,03 (0x031200)}, 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 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0031,09 (0x031800)}, f04=»A0 «, postl=0x00fe, f99=»NDENG«} 0x31220…31800 Extent[0x5e0] 0x31800…31820 (24, 1, 10) ExtentHdr {name=»ISENKRAM«, typ=»K«, seg=»A«, next=0x01, basis=0x000a, nextext={DA 0032,03 (0x032200)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0032,03 (0x032200)}, f04=»A0 «, postl=0x00fe, f99=»NDENG«} 0x31820…32200 Extent[0x9e0] 0x32200…32220 (25, 0, 4) ExtentHdr {name=»ISENKRAM«, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0000,00 (0x-00100)}, prevext={DA 0031,09 (0x031800)}, nextfile={DA 0032,0d (0x032c00)}, f04=»A0 «, postl=0x0020, f99=»NDENG«} 0x32220…32c00 Extent[0x9e0] 0x32c00…32c20 (25, 0, 14) ExtentHdr {name=»LØNSEDDE«, typ=»K«, seg=»A«, next=0x01, basis=0x000a, nextext={DA 0033,07 (0x033600)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0033,07 (0x033600)}, f04=» «, postl=0x00fe, f99=» «} 0x32c20…33600 Extent[0x9e0] 0x33600…33620 (25, 1, 8) ExtentHdr {name=»LØNSEDDE«, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0000,00 (0x-00100)}, prevext={DA 0032,0d (0x032c00)}, nextfile={DA 0034,01 (0x034000)}, f04=» «, postl=0x0020, f99=» «} 0x33620…34000 Extent[0x9e0] 0x34000…34020 (26, 0, 2) ExtentHdr {name=»SPARTXT «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0034,0b (0x034a00)}, 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 (0x-00100)}, prevext={DA 0000,00 (0x-00100)}, nextfile={DA 0000,00 (0x-00100)}, f04=»A4 «, postl=0x00ff, f99=» «} 0x34a20…35400 Extent[0x9e0] 0x35400…35500 (26, 1, 6) 0x63[0x100] […0x1aa…]