DataMuseum.dk Presents historical artifacts from the history of: CP/M

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦68748b081⟧ Bits:30004221/disk2.imd Penge og samfund (Comet), 5¼" Floppy Disk, CpmFSAuto, ImdContainer

    Length: 204800 (0x32000)
    Description: Bits:30004221/disk2.imd Penge og samfund (Comet)
    Types: 5¼" Floppy Disk, CpmFSAuto, ImdContainer
    Notes: CpmFSAuto,512,1024,16,0x0,1<3<2,2:0-39:0

Media:             [0, 0, 1] … [39, 0, 10] {512: 400}
Signature:         CpmFSAuto,512,1024,16,0x0,1<3<2,2:0-39:0
Confidence score:  +15/-0
Sector size:       512
Block size:        1024
Directory entries: 16
Block number size: 8
Extent-mask:       0x00
Sector-interleave: 1, 4, 7, 10, 3, 6, 9, 2, 5, 8
Tracks:            (2, 0), (3, 0), (4, 0), (5, 0), (6, 0), (7, 0) […] (34, 0), (35, 0), (36, 0), (37, 0), (38, 0), (39, 0)

0x00000…00200 (0, 0, 1)   0xe5[0x200]
         […0x13…]
0x02800…02820 (2, 0, 1)   [0, 'L&SGENBE.CML', 0, 4, 'xl=00', 'bc=00', 'xh=00', 'rc=04', '0-0-0-0-0-0-0-0-0-0-0', [2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02820…02840             [0, 'RETBEHOL.CML', 0, 5, 'xl=00', 'bc=00', 'xh=00', 'rc=05', '0-0-0-0-0-0-0-0-0-0-0', [3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02840…02860             [0, 'SLEVABEH.CML', 0, 5, 'xl=00', 'bc=00', 'xh=00', 'rc=05', '0-0-0-0-0-0-0-0-0-0-0', [4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02860…02880             [0, 'S&TORDRE.CML', 0, 4, 'xl=00', 'bc=00', 'xh=00', 'rc=04', '0-0-0-0-0-0-0-0-0-0-0', [5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02880…028a0             [0, 'LISVAANT.CML', 0, 5, 'xl=00', 'bc=00', 'xh=00', 'rc=05', '0-0-0-0-0-0-0-0-0-0-0', [6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x028a0…028c0             [0, 'LAVVARTR.CML', 0, 4, 'xl=00', 'bc=00', 'xh=00', 'rc=04', '0-0-0-0-0-0-0-0-0-0-0', [7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x028c0…028e0             [0, 'SLEVARTR.CML', 0, 5, 'xl=00', 'bc=00', 'xh=00', 'rc=05', '0-0-0-0-0-0-0-0-0-0-0', [8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x028e0…02900             [0, 'LISVARTR.CML', 0, 5, 'xl=00', 'bc=00', 'xh=00', 'rc=05', '0-0-0-0-0-0-0-0-0-0-0', [9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02900…02920             [0, 'SLETVATR.CML', 0, 1, 'xl=00', 'bc=00', 'xh=00', 'rc=01', '0-0-0-0-0-0-0-0-0-0-0', [10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02920…02940             [0, 'OPDATVAR.CML', 0, 5, 'xl=00', 'bc=00', 'xh=00', 'rc=05', '0-0-0-0-0-0-0-0-0-0-0', [11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02940…02960             [0, 'VARESALG.CML', 0, 12, 'xl=00', 'bc=00', 'xh=00', 'rc=0c', '0-0-0-0-0-0-0-0-0-0-0', [12, 13, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02960…02980             [0, 'VAREORDR.CML', 0, 12, 'xl=00', 'bc=00', 'xh=00', 'rc=0c', '0-0-0-0-0-0-0-0-0-0-0', [14, 15, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02980…029a0             [0, 'LAGER.CML', 0, 17, 'xl=00', 'bc=00', 'xh=00', 'rc=11', '0-0-0-0-0-0-0-0-0-0-0', [16, 17, 18, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x029a0…029c0             [0, 'KASSE.CML', 0, 39, 'xl=00', 'bc=00', 'xh=00', 'rc=27', '0-0-0-0-0-0-0-0-0-0-0', [19, 20, 21, 22, 23, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x029c0…029e0             [0, 'L&SBEHOL.CML', 0, 4, 'xl=00', 'bc=00', 'xh=00', 'rc=04', '0-0-0-0-0-0-0-0-0-0-0', [24, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x029e0…02a00             Dirent {Status=0xe5}
0x02a00…02a80 (2, 0, 2)   DataBlock {»RETBEHOL.CML«}
0x02a80…02aa0             22 2c 20 52 41 4e 44 4f 4d 20 2c 20 32 33 0d 37 38 30 33 20 20 20 52 45 43 4e 52 3a 3d 30 3b 20   ┆", RANDOM , 23 7803   RECNR:=0; ┆
0x02aa0…02ac0             46 55 4e 44 45 54 3a 3d 46 41 4c 53 45 0d 37 38 30 34 20 20 20 52 45 50 45 41 54 20 0d 37 38 30   ┆FUNDET:=FALSE 7804   REPEAT  780┆
0x02ac0…02ae0             35 20 20 20 20 20 52 45 43 4e 52 3a 2b 31 0d 37 38 30 36 20 20 20 20 20 52 45 41 44 20 46 49 4c   ┆5     RECNR:+1 7806     READ FIL┆
0x02ae0…02b00             45 20 30 2c 20 52 45 43 4e 52 3a 20 45 41 4e 4e 52 24 2c 20 42 45 48 23 2c 20 4d 49 4e 23 2c 20   ┆E 0, RECNR: EANNR$, BEH#, MIN#, ┆
0x02b00…02b20             42 45 53 23 2c 20 49 4f 52 44 52 45 23 0d 37 38 30 37 20 20 20 20 20 49 46 20 45 41 4e 24 3d 45   ┆BES#, IORDRE# 7807     IF EAN$=E┆
0x02b20…02b40             41 4e 4e 52 24 20 54 48 45 4e 20 0d 37 38 30 38 20 20 20 20 20 20 20 42 45 48 23 3a 2b 54 49 4c   ┆ANNR$ THEN  7808       BEH#:+TIL┆
0x02b40…02b60             46 5c 4a 23 3b 20 46 55 4e 44 45 54 3a 3d 54 52 55 45 0d 37 38 30 39 20 20 20 20 20 20 20 49 46   ┆FØJ#; FUNDET:=TRUE 7809       IF┆
0x02b60…02b80             20 54 49 4c 46 5c 4a 23 3e 30 20 54 48 45 4e 20 49 4f 52 44 52 45 23 3a 3d 46 41 4c 53 45 0d 37   ┆ TILFØJ#>0 THEN IORDRE#:=FALSE 7┆
0x02b80…02ba0             38 31 30 20 20 20 20 20 20 20 57 52 49 54 45 20 46 49 4c 45 20 30 2c 20 52 45 43 4e 52 3a 20 45   ┆810       WRITE FILE 0, RECNR: E┆
0x02ba0…02bc0             41 4e 4e 52 24 2c 20 42 45 48 23 2c 20 4d 49 4e 23 2c 20 42 45 53 23 2c 20 49 4f 52 44 52 45 23   ┆ANNR$, BEH#, MIN#, BES#, IORDRE#┆
0x02bc0…02be0             0d 37 38 31 31 20 20 20 20 20 45 4e 44 49 46 20 0d 37 38 31 32 20 20 20 55 4e 54 49 4c 20 45 41   ┆ 7811     ENDIF  7812   UNTIL EA┆
0x02be0…02c00             4e 4e 52 24 3d 22 22 20 4f 52 20 46 55 4e 44 45 54 0d 37 38 31 33 20 20 20 43 4c 4f 53 45 20 46   ┆NNR$="" OR FUNDET 7813   CLOSE F┆
0x02c00…02e00 (2, 0, 3)   DataBlock {»L&SGENBE.CML«}
0x02e00…03000 (2, 0, 4)   0xe5[0x200]
0x03000…03200 (2, 0, 5)   DataBlock {»SLEVABEH.CML«}
0x03200…03400 (2, 0, 6)   0xe5[0x200]
         […0x1…]
0x03600…03680 (2, 0, 8)   DataBlock {»SLEVABEH.CML«}
0x03680…036a0             20 52 41 4e 44 4f 4d 20 2c 20 32 33 0d 37 39 30 33 20 20 20 52 45 43 4e 52 3a 3d 30 0d 37 39 30   ┆ RANDOM , 23 7903   RECNR:=0 790┆
0x036a0…036c0             34 20 20 20 52 45 50 45 41 54 20 0d 37 39 30 35 20 20 20 20 20 52 45 43 4e 52 3a 2b 31 0d 37 39   ┆4   REPEAT  7905     RECNR:+1 79┆
0x036c0…036e0             30 36 20 20 20 20 20 52 45 41 44 20 46 49 4c 45 20 30 2c 20 52 45 43 4e 52 3a 20 45 41 4e 4e 52   ┆06     READ FILE 0, RECNR: EANNR┆
0x036e0…03700             24 0d 37 39 30 37 20 20 20 20 20 49 46 20 45 41 4e 24 3d 45 41 4e 4e 52 24 20 54 48 45 4e 20 0d   ┆$ 7907     IF EAN$=EANNR$ THEN  ┆
0x03700…03720             37 39 30 38 20 20 20 20 20 20 20 52 45 50 45 41 54 20 0d 37 39 30 39 20 20 20 20 20 20 20 20 20   ┆7908       REPEAT  7909         ┆
0x03720…03740             52 45 43 4e 52 3a 2b 31 0d 37 39 31 30 20 20 20 20 20 20 20 20 20 52 45 41 44 20 46 49 4c 45 20   ┆RECNR:+1 7910         READ FILE ┆
0x03740…03760             30 2c 20 52 45 43 4e 52 3a 20 45 41 4e 4e 52 24 2c 20 42 45 48 23 2c 20 4d 49 4e 23 2c 20 42 45   ┆0, RECNR: EANNR$, BEH#, MIN#, BE┆
0x03760…03780             53 23 2c 20 49 4f 52 44 52 45 23 0d 37 39 31 31 20 20 20 20 20 20 20 20 20 57 52 49 54 45 20 46   ┆S#, IORDRE# 7911         WRITE F┆
0x03780…037a0             49 4c 45 20 30 2c 20 52 45 43 4e 52 2d 31 3a 20 45 41 4e 4e 52 24 2c 20 42 45 48 23 2c 20 4d 49   ┆ILE 0, RECNR-1: EANNR$, BEH#, MI┆
0x037a0…037c0             4e 23 2c 20 42 45 53 23 2c 20 49 4f 52 44 52 45 23 0d 37 39 31 32 20 20 20 20 20 20 20 55 4e 54   ┆N#, BES#, IORDRE# 7912       UNT┆
0x037c0…037e0             49 4c 20 45 41 4e 4e 52 24 3d 22 22 0d 37 39 31 33 20 20 20 20 20 45 4e 44 49 46 20 0d 37 39 31   ┆IL EANNR$="" 7913     ENDIF  791┆
0x037e0…03800             34 20 20 20 55 4e 54 49 4c 20 45 41 4e 4e 52 24 3d 22 22 0d 37 39 31 35 20 20 20 43 4c 4f 53 45   ┆4   UNTIL EANNR$="" 7915   CLOSE┆
0x03800…03a00 (2, 0, 9)   DataBlock {»RETBEHOL.CML«}
0x03a00…03c00 (2, 0, 10)  0xe5[0x200]
0x03c00…03e00 (3, 0, 1)   DataBlock {»S&TORDRE.CML«}
0x03e00…03e80 (3, 0, 2)   DataBlock {»SLEVARTR.CML«}
0x03e80…03ea0             4e 20 46 49 4c 45 20 30 2c 20 22 76 61 72 74 72 61 6e 73 2e 72 61 6e 22 2c 20 52 41 4e 44 4f 4d   ┆N FILE 0, "vartrans.ran", RANDOM┆
0x03ea0…03ec0             20 2c 20 33 31 0d 38 33 30 33 20 20 20 52 45 43 4e 52 3a 3d 30 0d 38 33 30 34 20 20 20 52 45 50   ┆ , 31 8303   RECNR:=0 8304   REP┆
0x03ec0…03ee0             45 41 54 20 0d 38 33 30 35 20 20 20 20 20 52 45 43 4e 52 3a 2b 31 0d 38 33 30 36 20 20 20 20 20   ┆EAT  8305     RECNR:+1 8306     ┆
0x03ee0…03f00             52 45 41 44 20 46 49 4c 45 20 30 2c 20 52 45 43 4e 52 3a 20 45 41 4e 4e 52 24 2c 20 41 4e 54 41   ┆READ FILE 0, RECNR: EANNR$, ANTA┆
0x03f00…03f20             4c 23 2c 20 4b 24 2c 20 4f 50 44 41 54 23 0d 38 33 30 37 20 20 20 20 20 49 46 20 45 41 4e 4e 52   ┆L#, K$, OPDAT# 8307     IF EANNR┆
0x03f20…03f40             24 3d 45 41 4e 24 20 41 4e 44 20 4f 50 44 41 54 23 20 54 48 45 4e 20 0d 38 33 30 38 20 20 20 20   ┆$=EAN$ AND OPDAT# THEN  8308    ┆
0x03f40…03f60             20 20 20 46 4c 59 54 4e 52 3a 3d 52 45 43 4e 52 3b 20 52 45 43 4e 52 3a 2d 31 0d 38 33 30 39 20   ┆   FLYTNR:=RECNR; RECNR:-1 8309 ┆
0x03f60…03f80             20 20 20 20 20 20 52 45 50 45 41 54 20 0d 38 33 31 30 20 20 20 20 20 20 20 20 20 46 4c 59 54 4e   ┆      REPEAT  8310         FLYTN┆
0x03f80…03fa0             52 3a 2b 31 0d 38 33 31 31 20 20 20 20 20 20 20 20 20 52 45 41 44 20 46 49 4c 45 20 30 2c 20 46   ┆R:+1 8311         READ FILE 0, F┆
0x03fa0…03fc0             4c 59 54 4e 52 3a 20 45 24 2c 20 41 4e 54 41 4c 23 2c 20 4b 24 2c 20 4f 50 44 41 54 23 0d 38 33   ┆LYTNR: E$, ANTAL#, K$, OPDAT# 83┆
0x03fc0…03fe0             31 32 20 20 20 20 20 20 20 20 20 57 52 49 54 45 20 46 49 4c 45 20 30 2c 20 46 4c 59 54 4e 52 2d   ┆12         WRITE FILE 0, FLYTNR-┆
0x03fe0…04000             31 3a 20 45 24 2c 20 41 4e 54 41 4c 23 2c 20 4b 24 2c 20 4f 50 44 41 54 23 0d 38 33 31 33 20 20   ┆1: E$, ANTAL#, K$, OPDAT# 8313  ┆
0x04000…04200 (3, 0, 3)   DataBlock {»LAVVARTR.CML«}
0x04200…04400 (3, 0, 4)   0xe5[0x200]
0x04400…04600 (3, 0, 5)   DataBlock {»LISVARTR.CML«}
0x04600…04800 (3, 0, 6)   0xe5[0x200]
0x04800…04a00 (3, 0, 7)   DataBlock {»LISVAANT.CML«}
0x04a00…04a80 (3, 0, 8)   DataBlock {»LISVARTR.CML«}
0x04a80…04aa0             20 46 24 3a 3d 22 23 23 23 20 20 20 20 23 23 20 23 23 23 23 23 20 23 23 23 23 23 20 23 20 20 20   ┆ F$:="###    ## ##### ##### #   ┆
0x04aa0…04ac0             23 23 23 23 23 20 20 20 23 23 23 23 23 23 23 23 23 23 20 20 20 20 23 22 0d 38 34 30 33 20 20 20   ┆#####   ##########    #" 8403   ┆
0x04ac0…04ae0             4f 50 45 4e 20 46 49 4c 45 20 30 2c 20 22 76 61 72 74 72 61 6e 73 2e 72 61 6e 22 2c 20 52 41 4e   ┆OPEN FILE 0, "vartrans.ran", RAN┆
0x04ae0…04b00             44 4f 4d 20 2c 20 33 31 0d 38 34 30 34 20 20 20 52 45 43 4e 52 3a 3d 30 0d 38 34 30 35 20 20 20   ┆DOM , 31 8404   RECNR:=0 8405   ┆
0x04b00…04b20             50 52 49 4e 54 20 22 20 4e 72 20 20 20 20 20 20 20 45 41 4e 2d 6e 75 6d 6d 65 72 20 20 20 20 20   ┆PRINT " Nr       EAN-nummer     ┆
0x04b20…04b40             41 6e 74 61 6c 20 20 20 4b 6f 72 74 6e 75 6d 6d 65 72 20 28 4f 70 64 61 74 29 22 0d 38 34 30 36   ┆Antal   Kortnummer (Opdat)" 8406┆
0x04b40…04b60             20 20 20 50 52 49 4e 54 20 0d 38 34 30 37 20 20 20 52 45 50 45 41 54 20 0d 38 34 30 38 20 20 20   ┆   PRINT  8407   REPEAT  8408   ┆
0x04b60…04b80             20 20 52 45 43 4e 52 3a 2b 31 3b 20 4f 50 24 3a 3d 22 2d 22 0d 38 34 30 39 20 20 20 20 20 52 45   ┆  RECNR:+1; OP$:="-" 8409     RE┆
0x04b80…04ba0             41 44 20 46 49 4c 45 20 30 2c 20 52 45 43 4e 52 3a 20 45 24 2c 20 41 23 2c 20 4b 24 2c 20 4f 50   ┆AD FILE 0, RECNR: E$, A#, K$, OP┆
0x04ba0…04bc0             44 41 54 23 0d 38 34 31 30 20 20 20 20 20 49 46 20 4f 50 44 41 54 23 20 54 48 45 4e 20 4f 50 24   ┆DAT# 8410     IF OPDAT# THEN OP$┆
0x04bc0…04be0             3a 3d 22 2b 22 0d 38 34 31 31 20 20 20 20 20 49 46 20 45 24 3e 22 22 20 54 48 45 4e 20 0d 38 34   ┆:="+" 8411     IF E$>"" THEN  84┆
0x04be0…04c00             31 32 20 20 20 20 20 20 20 50 52 49 4e 54 20 55 53 49 4e 47 20 46 24 3a 20 52 45 43 4e 52 2c 45   ┆12       PRINT USING F$: RECNR,E┆
0x04c00…04e00 (3, 0, 9)   DataBlock {»SLEVARTR.CML«}
0x04e00…04e80 (3, 0, 10)  DataBlock {»LISVAANT.CML«}
0x04e80…04ea0             23 23 23 20 23 23 23 23 23 20 23 20 20 20 23 23 23 23 23 20 20 23 23 23 23 23 20 20 23 23 23 23   ┆### ##### #   #####  #####  ####┆
0x04ea0…04ec0             23 20 20 23 22 0d 38 31 30 33 20 20 20 4f 50 45 4e 20 46 49 4c 45 20 30 2c 20 22 76 61 72 65 62   ┆#  #" 8103   OPEN FILE 0, "vareb┆
0x04ec0…04ee0             65 68 6f 2e 72 61 6e 22 2c 20 52 41 4e 44 4f 4d 20 2c 20 32 33 0d 38 31 30 34 20 20 20 50 52 49   ┆eho.ran", RANDOM , 23 8104   PRI┆
0x04ee0…04f00             4e 54 20 22 20 4e 72 20 20 20 20 20 20 45 41 4e 2d 6e 75 6d 6d 65 72 20 20 20 20 20 20 41 6e 74   ┆NT " Nr      EAN-nummer      Ant┆
0x04f00…04f20             61 6c 20 20 47 72 7b 6e 73 65 20 42 65 73 74 69 6c 20 49 6f 72 64 72 65 22 0d 38 31 30 35 20 20   ┆al  Grænse Bestil Iordre" 8105  ┆
0x04f20…04f40             20 50 52 49 4e 54 20 0d 38 31 30 36 20 20 20 52 45 43 4e 52 3a 3d 30 0d 38 31 30 37 20 20 20 52   ┆ PRINT  8106   RECNR:=0 8107   R┆
0x04f40…04f60             45 50 45 41 54 20 0d 38 31 30 38 20 20 20 20 20 52 45 43 4e 52 3a 2b 31 3b 20 49 4f 24 3a 3d 22   ┆EPEAT  8108     RECNR:+1; IO$:="┆
0x04f60…04f80             20 22 0d 38 31 30 39 20 20 20 20 20 52 45 41 44 20 46 49 4c 45 20 30 2c 20 52 45 43 4e 52 3a 20   ┆ " 8109     READ FILE 0, RECNR: ┆
0x04f80…04fa0             45 24 2c 20 42 45 48 23 2c 20 4d 49 4e 23 2c 20 42 45 53 23 2c 20 49 4f 52 44 52 45 23 0d 38 31   ┆E$, BEH#, MIN#, BES#, IORDRE# 81┆
0x04fa0…04fc0             31 30 20 20 20 20 20 49 46 20 45 24 3e 22 22 20 54 48 45 4e 20 0d 38 31 31 31 20 20 20 20 20 20   ┆10     IF E$>"" THEN  8111      ┆
0x04fc0…04fe0             20 49 46 20 49 4f 52 44 52 45 23 20 54 48 45 4e 20 49 4f 24 3a 3d 22 2b 22 0d 38 31 31 32 20 20   ┆ IF IORDRE# THEN IO$:="+" 8112  ┆
0x04fe0…05000             20 20 20 20 20 50 52 49 4e 54 20 55 53 49 4e 47 20 46 24 3a 20 52 45 43 4e 52 2c 45 24 28 31 3a   ┆     PRINT USING F$: RECNR,E$(1:┆
0x05000…05080 (4, 0, 1)   DataBlock {»SLETVATR.CML«}
0x05080…050a0             00 4c 49 53 56 41 41 4e 54 43 4d 4c 00 00 00 05 06 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ┆ LISVAANTCML                    ┆
0x050a0…050c0             00 4c 41 56 56 41 52 54 52 43 4d 4c 00 00 00 04 07 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ┆ LAVVARTRCML                    ┆
0x050c0…050e0             00 53 4c 45 56 41 52 54 52 43 4d 4c 00 00 00 05 08 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ┆ SLEVARTRCML                    ┆
0x050e0…05100             00 4c 49 53 56 41 52 54 52 43 4d 4c 00 00 00 05 09 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ┆ LISVARTRCML                    ┆
0x05100…05120             00 53 4c 45 54 56 41 54 52 24 24 24 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ┆ SLETVATR$$$                    ┆
0x05120…05140             e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5   ┆                                ┆
         […0x6…]
0x05200…05400 (4, 0, 2)   0xe5[0x200]
0x05400…05600 (4, 0, 3)   DataBlock {»VARESALG.CML«}
0x05600…05800 (4, 0, 4)   0xe5[0x200]
0x05800…05a00 (4, 0, 5)   DataBlock {»VAREORDR.CML«}
0x05a00…05c00 (4, 0, 6)   DataBlock {»VARESALG.CML«}
0x05c00…05e00 (4, 0, 7)   DataBlock {»OPDATVAR.CML«}
0x05e00…06000 (4, 0, 8)   DataBlock {»VAREORDR.CML«}
0x06000…06200 (4, 0, 9)   DataBlock {»VARESALG.CML«}
0x06200…06280 (4, 0, 10)  DataBlock {»OPDATVAR.CML«}
0x06280…062a0             20 31 2c 20 22 76 61 72 74 72 61 6e 73 2e 72 61 6e 22 2c 20 52 41 4e 44 4f 4d 20 2c 20 33 31 0d   ┆ 1, "vartrans.ran", RANDOM , 31 ┆
0x062a0…062c0             38 36 30 33 20 20 20 52 45 43 4e 52 3a 3d 30 0d 38 36 30 34 20 20 20 52 45 50 45 41 54 20 0d 38   ┆8603   RECNR:=0 8604   REPEAT  8┆
0x062c0…062e0             36 30 35 20 20 20 20 20 52 45 43 4e 52 3a 2b 31 0d 38 36 30 36 20 20 20 20 20 52 45 41 44 20 46   ┆605     RECNR:+1 8606     READ F┆
0x062e0…06300             49 4c 45 20 31 2c 20 52 45 43 4e 52 3a 20 45 24 2c 20 41 4e 23 2c 20 4b 4f 52 54 24 2c 20 4f 50   ┆ILE 1, RECNR: E$, AN#, KORT$, OP┆
0x06300…06320             44 41 54 23 0d 38 36 30 37 20 20 20 20 20 49 46 20 45 24 3e 22 22 20 54 48 45 4e 20 0d 38 36 30   ┆DAT# 8607     IF E$>"" THEN  860┆
0x06320…06340             38 20 20 20 20 20 20 20 42 45 48 4f 4c 44 23 3a 3d 30 3b 20 4d 49 4e 23 3a 3d 30 0d 38 36 30 39   ┆8       BEHOLD#:=0; MIN#:=0 8609┆
0x06340…06360             20 20 20 20 20 20 20 45 58 45 43 20 4c 5b 53 42 45 48 4f 4c 28 45 24 2c 42 45 48 4f 4c 44 23 2c   ┆       EXEC LÆSBEHOL(E$,BEHOLD#,┆
0x06360…06380             4d 49 4e 23 29 0d 38 36 31 30 20 20 20 20 20 20 20 49 46 20 41 4e 23 3c 3d 42 45 48 4f 4c 44 23   ┆MIN#) 8610       IF AN#<=BEHOLD#┆
0x06380…063a0             20 54 48 45 4e 20 0d 38 36 31 31 20 20 20 20 20 20 20 20 20 45 58 45 43 20 52 45 54 42 45 48 4f   ┆ THEN  8611         EXEC RETBEHO┆
0x063a0…063c0             4c 28 45 24 2c 2d 41 4e 23 29 0d 38 36 31 32 20 20 20 20 20 20 20 20 20 4f 50 44 41 54 23 3a 3d   ┆L(E$,-AN#) 8612         OPDAT#:=┆
0x063c0…063e0             54 52 55 45 0d 38 36 31 33 20 20 20 20 20 20 20 20 20 57 52 49 54 45 20 46 49 4c 45 20 31 2c 20   ┆TRUE 8613         WRITE FILE 1, ┆
0x063e0…06400             52 45 43 4e 52 3a 20 45 24 2c 20 41 4e 23 2c 20 4b 4f 52 54 24 2c 20 4f 50 44 41 54 23 0d 38 36   ┆RECNR: E$, AN#, KORT$, OPDAT# 86┆
0x06400…06600 (5, 0, 1)   DataBlock {»VAREORDR.CML«}
0x06600…06800 (5, 0, 2)   0xe5[0x200]
0x06800…06a00 (5, 0, 3)   DataBlock {»LAGER.CML«}
0x06a00…06c00 (5, 0, 4)   0xe5[0x200]
0x06c00…06e00 (5, 0, 5)   DataBlock {»KASSE.CML«}
0x06e00…07000 (5, 0, 6)   DataBlock {»LAGER.CML«}
         […0x1…]
0x07200…07400 (5, 0, 8)   DataBlock {»KASSE.CML«}
0x07400…07480 (5, 0, 9)   DataBlock {»LAGER.CML«}
0x07480…074a0             6f 2e 72 61 6e 22 2c 20 52 41 4e 44 4f 4d 20 2c 20 32 33 0d 38 39 30 35 20 20 20 52 45 43 4e 52   ┆o.ran", RANDOM , 23 8905   RECNR┆
0x074a0…074c0             3a 3d 30 3b 20 50 52 49 53 3a 3d 30 0d 38 39 30 36 20 20 20 52 45 50 45 41 54 20 0d 38 39 30 37   ┆:=0; PRIS:=0 8906   REPEAT  8907┆
0x074c0…074e0             20 20 20 20 20 52 45 43 4e 52 3a 2b 31 3b 20 49 4f 24 3a 3d 22 20 22 0d 38 39 30 38 20 20 20 20   ┆     RECNR:+1; IO$:=" " 8908    ┆
0x074e0…07500             20 52 45 41 44 20 46 49 4c 45 20 31 2c 20 52 45 43 4e 52 3a 20 45 24 2c 20 42 45 48 23 2c 20 4d   ┆ READ FILE 1, RECNR: E$, BEH#, M┆
0x07500…07520             49 4e 23 2c 20 42 45 53 23 2c 20 49 4f 52 44 52 45 23 0d 38 39 30 39 20 20 20 20 20 49 46 20 45   ┆IN#, BES#, IORDRE# 8909     IF E┆
0x07520…07540             24 3e 22 22 20 54 48 45 4e 20 0d 38 39 31 30 20 20 20 20 20 20 20 45 58 45 43 20 4c 5b 53 56 41   ┆$>"" THEN  8910       EXEC LÆSVA┆
0x07540…07560             52 4f 50 28 45 24 2c 4e 24 2c 50 52 49 53 2c 55 24 29 0d 38 39 31 31 20 20 20 20 20 20 20 49 46   ┆ROP(E$,N$,PRIS,U$) 8911       IF┆
0x07560…07580             20 49 4f 52 44 52 45 23 20 54 48 45 4e 20 49 4f 24 3a 3d 22 2b 22 0d 38 39 31 32 20 20 20 20 20   ┆ IORDRE# THEN IO$:="+" 8912     ┆
0x07580…075a0             20 20 50 52 49 4e 54 20 55 53 49 4e 47 20 46 24 3a 20 52 45 43 4e 52 2c 45 24 28 31 3a 32 29 2c   ┆  PRINT USING F$: RECNR,E$(1:2),┆
0x075a0…075c0             45 24 28 33 3a 37 29 2c 45 24 28 38 3a 31 32 29 2c 45 24 28 31 33 3a 31 33 29 2c 4e 24 2c 42 45   ┆E$(3:7),E$(8:12),E$(13:13),N$,BE┆
0x075c0…075e0             48 23 2c 55 24 2c 49 4f 24 0d 38 39 31 33 20 20 20 20 20 45 4e 44 49 46 20 0d 38 39 31 34 20 20   ┆H#,U$,IO$ 8913     ENDIF  8914  ┆
0x075e0…07600             20 55 4e 54 49 4c 20 45 24 3d 22 22 0d 38 39 31 35 20 20 20 43 4c 4f 53 45 20 46 49 4c 45 20 31   ┆ UNTIL E$="" 8915   CLOSE FILE 1┆
0x07600…07800 (5, 0, 10)  DataBlock {»LAGER.CML«}
0x07800…07a00 (6, 0, 1)   DataBlock {»KASSE.CML«}
         […0x1…]
0x07b80…07ba0             20 20 20 20 20 20 20 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 4e 52 20 44 4f 20 0d 39 31 31 37 20   ┆        FOR I:=1 TO NR DO  9117 ┆
0x07ba0…07bc0             20 20 20 20 20 20 20 20 20 20 49 46 20 41 4e 54 42 4f 4e 23 28 49 29 3e 30 20 54 48 45 4e 20 45   ┆          IF ANTBON#(I)>0 THEN E┆
0x07bc0…07be0             58 45 43 20 4c 41 56 56 41 52 54 52 28 45 41 4e 42 4f 4e 24 28 49 29 2c 41 4e 54 42 4f 4e 23 28   ┆XEC LAVVARTR(EANBON$(I),ANTBON#(┆
0x07be0…07c00             49 29 2c 4b 4f 52 54 24 29 0d 39 31 31 38 20 20 20 20 20 20 20 20 20 4e 45 58 54 20 49 0d 39 31   ┆I),KORT$) 9118         NEXT I 91┆
0x07c00…07e00 (6, 0, 3)   DataBlock {»KASSE.CML«}
         […0x1…]
0x08000…08200 (6, 0, 5)   DataBlock {»L&SBEHOL.CML«}
0x08200…08400 (6, 0, 6)   DataBlock {»KASSE.CML«}
         […0x1…]
0x08600…08800 (6, 0, 8)   0xe5[0x200]
0x08800…08a00 (6, 0, 9)   DataBlock {»KASSE.CML«}
         […0x1…]
0x08c00…08e00 (7, 0, 1)   0xe5[0x200]
         […0x149…]

Reduced view