DataMuseum.dk

Presents historical artifacts from the history of:

MIKADOS

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about MIKADOS

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download
Index: 5 A B C D E F H I K L M O P R S T V r

⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen, 5¼" Floppy Disk, ImdContainer

    Length: 327424 (0x4ff00)
    Description: Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
    Types: 5¼" Floppy Disk, ImdContainer

Mikados PLADELAGER

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

OctetView

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…]

Reduced view