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

⟦a9ba93cb4⟧

    Length: 1536 (0x600)
    Names: »VARESALG.CML«

Derivation

└─⟦68748b081⟧ Bits:30004221/disk2.imd Penge og samfund (Comet)
    └─⟦this⟧ »VARESALG.CML« 

Hex Dump

0x000…020 (0,) 38 37 30 30 20 50 52 4f 43 20 56 41 52 45 53 41 4c 47 20 43 4c 4f 53 45 44 20 2f 2f 2d 2d 2d 2d   ┆8700 PROC VARESALG CLOSED //----┆
0x020…040      2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 56 41 52   ┆---------------------------- VAR┆
0x040…060      45 53 41 4c 47 0d 38 37 30 31 20 20 20 44 49 4d 20 45 4e 52 24 20 4f 46 20 31 33 2c 20 4e 41 24   ┆ESALG 8701   DIM ENR$ OF 13, NA$┆
0x060…080      20 4f 46 20 32 30 2c 20 55 24 20 4f 46 20 31 30 2c 20 56 4e 52 24 20 4f 46 20 34 0d 38 37 30 32   ┆ OF 20, U$ OF 10, VNR$ OF 4 8702┆
0x080…0a0      20 20 20 44 49 4d 20 45 24 20 4f 46 20 31 33 2c 20 4b 4f 52 54 24 20 4f 46 20 31 30 2c 20 46 24   ┆   DIM E$ OF 13, KORT$ OF 10, F$┆
0x0a0…0c0      20 4f 46 20 32 34 2c 20 47 24 20 4f 46 20 35 31 0d 38 37 30 33 20 20 20 46 24 3a 3d 22 23 23 23   ┆ OF 24, G$ OF 51 8703   F$:="###┆
0x0c0…0e0      23 20 20 23 23 20 23 23 23 23 23 20 23 23 23 23 23 20 23 20 22 0d 38 37 30 34 20 20 20 47 24 3a   ┆#  ## ##### ##### # " 8704   G$:┆
0x0e0…100      3d 22 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 20 20 23 23 23 23 23 20 20 23   ┆="####################  #####  #┆
0x100…120      23 23 23 23 23 23 23 23 23 20 20 20 20 23 23 23 23 23 2e 23 23 22 0d 38 37 30 35 20 20 20 50 52   ┆#########    #####.##" 8705   PR┆
0x120…140      49 4e 54 20 22 56 61 72 65 20 20 20 45 41 4e 2d 6e 75 6d 6d 65 72 20 20 20 20 20 20 20 20 20 20   ┆INT "Vare   EAN-nummer          ┆
0x140…160      20 22 2c 0d 38 37 30 36 20 20 20 50 52 49 4e 54 20 22 4e 61 76 6e 20 20 20 20 20 20 20 20 20 20   ┆ ", 8706   PRINT "Navn          ┆
0x160…180      20 20 20 20 20 20 20 20 20 20 20 20 41 6e 74 61 6c 20 20 42 65 6e 7b 76 6e 65 6c 73 65 20 20 20   ┆            Antal  Benævnelse   ┆
0x180…1a0      20 56 7b 72 64 69 20 6b 72 22 0d 38 37 30 37 20 20 20 4f 50 45 4e 20 46 49 4c 45 20 31 2c 20 22   ┆ Værdi kr" 8707   OPEN FILE 1, "┆
0x1a0…1c0      76 61 72 65 65 61 6e 2e 72 61 6e 22 2c 20 52 41 4e 44 4f 4d 20 2c 20 32 31 0d 38 37 30 38 20 20   ┆vareean.ran", RANDOM , 21 8708  ┆
0x1c0…1e0      20 52 45 43 4e 52 3a 3d 30 3b 20 50 52 49 53 3a 3d 30 3b 20 49 41 4c 54 3a 3d 30 0d 38 37 30 39   ┆ RECNR:=0; PRIS:=0; IALT:=0 8709┆
0x1e0…200      20 20 20 52 45 50 45 41 54 20 0d 38 37 31 30 20 20 20 20 20 52 45 43 4e 52 3a 2b 31 0d 38 37 31   ┆   REPEAT  8710     RECNR:+1 871┆
0x200…220 (1,) 31 20 20 20 20 20 52 45 41 44 20 46 49 4c 45 20 31 2c 20 52 45 43 4e 52 3a 20 56 4e 52 24 2c 20   ┆1     READ FILE 1, RECNR: VNR$, ┆
0x220…240      45 4e 52 24 0d 38 37 31 32 20 20 20 20 20 49 46 20 56 4e 52 24 3e 22 22 20 54 48 45 4e 20 0d 38   ┆ENR$ 8712     IF VNR$>"" THEN  8┆
0x240…260      37 31 33 20 20 20 20 20 20 20 54 52 41 4e 53 52 45 43 4e 52 3a 3d 30 3b 20 53 41 4c 47 23 3a 3d   ┆713       TRANSRECNR:=0; SALG#:=┆
0x260…280      30 0d 38 37 31 34 20 20 20 20 20 20 20 4f 50 45 4e 20 46 49 4c 45 20 32 2c 20 22 76 61 72 74 72   ┆0 8714       OPEN FILE 2, "vartr┆
0x280…2a0      61 6e 73 2e 72 61 6e 22 2c 20 52 41 4e 44 4f 4d 20 2c 20 33 31 0d 38 37 31 35 20 20 20 20 20 20   ┆ans.ran", RANDOM , 31 8715      ┆
0x2a0…2c0      20 52 45 50 45 41 54 20 0d 38 37 31 36 20 20 20 20 20 20 20 20 20 54 52 41 4e 53 52 45 43 4e 52   ┆ REPEAT  8716         TRANSRECNR┆
0x2c0…2e0      3a 2b 31 0d 38 37 31 37 20 20 20 20 20 20 20 20 20 52 45 41 44 20 46 49 4c 45 20 32 2c 20 54 52   ┆:+1 8717         READ FILE 2, TR┆
0x2e0…300      41 4e 53 52 45 43 4e 52 3a 20 45 24 2c 20 41 4e 54 41 4c 23 2c 20 4b 4f 52 54 24 2c 20 4f 44 23   ┆ANSRECNR: E$, ANTAL#, KORT$, OD#┆
0x300…320      0d 38 37 31 38 20 20 20 20 20 20 20 20 20 49 46 20 45 24 3d 45 4e 52 24 20 41 4e 44 20 4f 44 23   ┆ 8718         IF E$=ENR$ AND OD#┆
0x320…340      20 54 48 45 4e 20 53 41 4c 47 23 3a 2b 41 4e 54 41 4c 23 0d 38 37 31 39 20 20 20 20 20 20 20 55   ┆ THEN SALG#:+ANTAL# 8719       U┆
0x340…360      4e 54 49 4c 20 45 24 3d 22 22 0d 38 37 32 30 20 20 20 20 20 20 20 43 4c 4f 53 45 20 46 49 4c 45   ┆NTIL E$="" 8720       CLOSE FILE┆
0x360…380      20 32 0d 38 37 32 31 20 20 20 20 20 20 20 49 46 20 53 41 4c 47 23 3e 30 20 54 48 45 4e 20 0d 38   ┆ 2 8721       IF SALG#>0 THEN  8┆
0x380…3a0      37 32 32 20 20 20 20 20 20 20 20 20 45 58 45 43 20 4c 5b 53 56 41 52 4f 50 28 45 4e 52 24 2c 4e   ┆722         EXEC LÆSVAROP(ENR$,N┆
0x3a0…3c0      41 24 2c 50 52 49 53 2c 55 24 29 0d 38 37 32 33 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 55   ┆A$,PRIS,U$) 8723         PRINT U┆
0x3c0…3e0      53 49 4e 47 20 46 24 3a 20 56 4e 52 24 2c 45 4e 52 24 28 31 3a 32 29 2c 45 4e 52 24 28 33 3a 37   ┆SING F$: VNR$,ENR$(1:2),ENR$(3:7┆
0x3e0…400      29 2c 45 4e 52 24 28 38 3a 31 32 29 2c 45 4e 52 24 28 31 33 3a 31 33 29 2c 0d 38 37 32 34 20 20   ┆),ENR$(8:12),ENR$(13:13), 8724  ┆
0x400…420 (2,) 20 20 20 20 20 20 20 50 52 49 4e 54 20 55 53 49 4e 47 20 47 24 3a 20 4e 41 24 2c 53 41 4c 47 23   ┆       PRINT USING G$: NA$,SALG#┆
0x420…440      2c 55 24 2c 53 41 4c 47 23 2a 50 52 49 53 0d 38 37 32 35 20 20 20 20 20 20 20 20 20 49 41 4c 54   ┆,U$,SALG#*PRIS 8725         IALT┆
0x440…460      3a 2b 53 41 4c 47 23 2a 50 52 49 53 0d 38 37 32 36 20 20 20 20 20 20 20 20 20 45 58 45 43 20 53   ┆:+SALG#*PRIS 8726         EXEC S┆
0x460…480      4c 45 56 41 52 54 52 28 45 4e 52 24 29 0d 38 37 32 37 20 20 20 20 20 20 20 45 4e 44 49 46 20 0d   ┆LEVARTR(ENR$) 8727       ENDIF  ┆
0x480…4a0      38 37 32 38 20 20 20 20 20 45 4e 44 49 46 20 0d 38 37 32 39 20 20 20 55 4e 54 49 4c 20 56 4e 52   ┆8728     ENDIF  8729   UNTIL VNR┆
0x4a0…4c0      24 3d 22 22 0d 38 37 33 30 20 20 20 43 4c 4f 53 45 20 46 49 4c 45 20 31 0d 38 37 33 31 20 20 20   ┆$="" 8730   CLOSE FILE 1 8731   ┆
0x4c0…4e0      50 52 49 4e 54 20 0d 38 37 33 32 20 20 20 49 46 20 49 41 4c 54 3e 30 20 54 48 45 4e 20 0d 38 37   ┆PRINT  8732   IF IALT>0 THEN  87┆
0x4e0…500      33 33 20 20 20 20 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 53 61 6d 6c 65 74 20 73 61 6c 67 20   ┆33     PRINT USING "Samlet salg ┆
0x500…520      66 6f 72 20 70 65 72 69 6f 64 65 6e 20 65 72 20 23 23 23 23 23 23 2e 23 23 20 6b 72 22 3a 20 49   ┆for perioden er ######.## kr": I┆
0x520…540      41 4c 54 0d 38 37 33 34 20 20 20 45 4c 53 45 20 0d 38 37 33 35 20 20 20 20 20 50 52 49 4e 54 20   ┆ALT 8734   ELSE  8735     PRINT ┆
0x540…560      22 49 6e 74 65 74 20 76 61 72 65 73 61 6c 67 20 73 69 64 65 6e 20 73 69 64 73 74 65 20 6f 70 67   ┆"Intet varesalg siden sidste opg┆
0x560…580      7c 72 65 6c 73 65 22 0d 38 37 33 36 20 20 20 45 4e 44 49 46 20 0d 38 37 33 37 20 45 4e 44 50 52   ┆ørelse" 8736   ENDIF  8737 ENDPR┆
0x580…5a0      4f 43 20 56 41 52 45 53 41 4c 47 0d 20 65 72 20 23 23 23 23 23 23 2e 23 23 20 6b 72 22 3a 20 49   ┆OC VARESALG  er ######.## kr": I┆
0x5a0…5c0      41 4c 54 0d 38 37 33 34 20 20 20 45 4c 53 45 20 0d 38 37 33 35 20 20 20 20 20 50 52 49 4e 54 20   ┆ALT 8734   ELSE  8735     PRINT ┆
0x5c0…5e0      22 49 6e 74 65 74 20 76 61 72 65 73 61 6c 67 20 73 69 64 65 6e 20 73 69 64 73 74 65 20 6f 70 67   ┆"Intet varesalg siden sidste opg┆
0x5e0…600      7c 72 65 6c 73 65 22 0d 38 37 33 36 20 20 20 45 4e 44 49 46 20 0d 38 37 33 37 20 45 4e 44 50 0c   ┆ørelse" 8736   ENDIF  8737 ENDP ┆