DataMuseum.dk

top - metrics - download

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

└─⟦2cd1ff413⟧ Bits:30004221/disk1.imd Penge og samfund (Comet)
    └─⟦this⟧ »TOTALPKK.CML« 

Hex Dump

0x000…020 (0,) 35 36 30 30 20 50 52 4f 43 20 54 4f 54 41 4c 50 4b 4b 20 43 4c 4f 53 45 44 20 2f 2f 2d 2d 2d 2d   ┆5600 PROC TOTALPKK 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 2d 2d 2d 2d   ┆--------------------------------┆
0x040…060      20 54 4f 54 41 4c 50 4b 4b 0d 35 36 30 31 20 20 20 44 49 4d 20 4b 4f 52 54 24 20 4f 46 20 31 30   ┆ TOTALPKK 5601   DIM KORT$ OF 10┆
0x060…080      2c 20 50 49 24 20 4f 46 20 34 2c 20 4e 24 20 4f 46 20 33 30 2c 20 41 24 20 4f 46 20 33 30 2c 20   ┆, PI$ OF 4, N$ OF 30, A$ OF 30, ┆
0x080…0a0      50 4e 24 20 4f 46 20 33 30 2c 20 43 24 20 4f 46 20 31 30 0d 35 36 30 32 20 20 20 44 49 4d 20 4b   ┆PN$ OF 30, C$ OF 10 5602   DIM K┆
0x0a0…0c0      4f 24 20 4f 46 20 31 30 2c 20 44 41 24 20 4f 46 20 36 0d 35 36 30 33 20 20 20 44 49 4d 20 46 4f   ┆O$ OF 10, DA$ OF 6 5603   DIM FO┆
0x0c0…0e0      52 4d 41 54 24 20 4f 46 20 33 30 0d 35 36 30 34 20 20 20 46 4f 52 4d 41 54 24 3a 3d 22 20 20 20   ┆RMAT$ OF 30 5604   FORMAT$:="   ┆
0x0e0…100      20 20 23 23 2f 23 23 2f 23 23 20 20 20 20 20 20 20 20 2d 23 23 23 23 23 23 2e 23 23 20 4b 52 22   ┆  ##/##/##        -######.## KR"┆
0x100…120      0d 35 36 30 35 20 20 20 4f 50 45 4e 20 46 49 4c 45 20 31 2c 20 22 6b 6f 72 74 65 6a 65 72 2e 72   ┆ 5605   OPEN FILE 1, "kortejer.r┆
0x120…140      61 6e 22 2c 20 52 41 4e 44 4f 4d 20 2c 20 31 32 36 0d 35 36 30 36 20 20 20 4f 50 45 4e 20 46 49   ┆an", RANDOM , 126 5606   OPEN FI┆
0x140…160      4c 45 20 32 2c 20 22 70 6b 6b 74 72 61 6e 73 2e 72 61 6e 22 2c 20 52 41 4e 44 4f 4d 20 2c 20 32   ┆LE 2, "pkktrans.ran", RANDOM , 2┆
0x160…180      36 0d 35 36 30 37 20 20 20 4b 4f 52 54 52 45 43 3a 3d 30 0d 35 36 30 38 20 20 20 52 45 50 45 41   ┆6 5607   KORTREC:=0 5608   REPEA┆
0x180…1a0      54 20 0d 35 36 30 39 20 20 20 20 20 4b 4f 52 54 52 45 43 3a 2b 31 3b 20 54 52 41 4e 53 52 45 43   ┆T  5609     KORTREC:+1; TRANSREC┆
0x1a0…1c0      3a 3d 30 3b 20 54 52 41 4e 53 46 55 4e 44 23 3a 3d 46 41 4c 53 45 3b 20 53 55 4d 3a 3d 30 0d 35   ┆:=0; TRANSFUND#:=FALSE; SUM:=0 5┆
0x1c0…1e0      36 31 30 20 20 20 20 20 52 45 41 44 20 46 49 4c 45 20 31 2c 20 4b 4f 52 54 52 45 43 3a 20 4b 4f   ┆610     READ FILE 1, KORTREC: KO┆
0x1e0…200      52 54 24 2c 20 50 49 24 2c 20 4e 24 2c 20 41 24 2c 20 50 4e 24 2c 20 43 24 0d 35 36 31 31 20 20   ┆RT$, PI$, N$, A$, PN$, C$ 5611  ┆
0x200…220 (1,) 20 20 20 49 46 20 4b 4f 52 54 24 3e 22 22 20 54 48 45 4e 20 0d 35 36 31 32 20 20 20 20 20 20 20   ┆   IF KORT$>"" THEN  5612       ┆
0x220…240      50 52 49 4e 54 20 22 3d 3d 3d 3d 3d 3d 20 20 20 20 20 20 20 44 41 4e 4b 4f 52 54 20 4f 50 47 5c   ┆PRINT "======       DANKORT OPGØ┆
0x240…260      52 45 4c 53 45 20 20 20 20 20 20 20 3d 3d 3d 3d 3d 3d 22 0d 35 36 31 33 20 20 20 20 20 20 20 50   ┆RELSE       ======" 5613       P┆
0x260…280      52 49 4e 54 20 0d 35 36 31 34 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 4b 6f 72 74 6e 75 6d 6d   ┆RINT  5614       PRINT "Kortnumm┆
0x280…2a0      65 72 20 22 3b 4b 4f 52 54 24 3b 22 20 20 22 3b 4e 24 0d 35 36 31 35 20 20 20 20 20 20 20 50 52   ┆er ";KORT$;"  ";N$ 5615       PR┆
0x2a0…2c0      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 22 3b 41 24   ┆INT "                       ";A$┆
0x2c0…2e0      0d 35 36 31 36 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆ 5616       PRINT "             ┆
0x2e0…300      20 20 20 20 20 20 20 20 20 20 22 3b 50 4e 24 0d 35 36 31 37 20 20 20 20 20 20 20 50 52 49 4e 54   ┆          ";PN$ 5617       PRINT┆
0x300…320      20 0d 35 36 31 38 20 20 20 20 20 20 20 52 45 50 45 41 54 20 0d 35 36 31 39 20 20 20 20 20 20 20   ┆  5618       REPEAT  5619       ┆
0x320…340      20 20 54 52 41 4e 53 52 45 43 3a 2b 31 0d 35 36 32 30 20 20 20 20 20 20 20 20 20 52 45 41 44 20   ┆  TRANSREC:+1 5620         READ ┆
0x340…360      46 49 4c 45 20 32 2c 20 54 52 41 4e 53 52 45 43 3a 20 4b 4f 24 2c 20 44 41 24 2c 20 42 45 4c 5c   ┆FILE 2, TRANSREC: KO$, DA$, BELØ┆
0x360…380      42 2c 20 4f 50 44 41 54 23 0d 35 36 32 31 20 20 20 20 20 20 20 20 20 49 46 20 4b 4f 24 3d 4b 4f   ┆B, OPDAT# 5621         IF KO$=KO┆
0x380…3a0      52 54 24 20 41 4e 44 20 4f 50 44 41 54 23 20 54 48 45 4e 20 0d 35 36 32 32 20 20 20 20 20 20 20   ┆RT$ AND OPDAT# THEN  5622       ┆
0x3a0…3c0      20 20 20 20 50 52 49 4e 54 20 55 53 49 4e 47 20 46 4f 52 4d 41 54 24 3a 20 44 41 24 28 35 2c 36   ┆    PRINT USING FORMAT$: DA$(5,6┆
0x3c0…3e0      29 2c 44 41 24 28 33 2c 34 29 2c 44 41 24 28 31 2c 32 29 2c 42 45 4c 5c 42 0d 35 36 32 33 20 20   ┆),DA$(3,4),DA$(1,2),BELØB 5623  ┆
0x3e0…400      20 20 20 20 20 20 20 20 20 54 52 41 4e 53 46 55 4e 44 23 3a 3d 54 52 55 45 3b 20 53 55 4d 3a 2b   ┆         TRANSFUND#:=TRUE; SUM:+┆
0x400…420 (2,) 42 45 4c 5c 42 0d 35 36 32 34 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 20 0d 35 36 32 35 20 20   ┆BELØB 5624         ENDIF  5625  ┆
0x420…440      20 20 20 20 20 55 4e 54 49 4c 20 4b 4f 24 3d 22 22 0d 35 36 32 36 20 20 20 20 20 20 20 49 46 20   ┆     UNTIL KO$="" 5626       IF ┆
0x440…460      54 52 41 4e 53 46 55 4e 44 23 20 54 48 45 4e 20 0d 35 36 32 37 20 20 20 20 20 20 20 20 20 45 58   ┆TRANSFUND# THEN  5627         EX┆
0x460…480      45 43 20 53 4c 45 50 4b 4b 54 52 28 4b 4f 52 54 24 29 0d 35 36 32 38 20 20 20 20 20 20 20 20 20   ┆EC SLEPKKTR(KORT$) 5628         ┆
0x480…4a0      50 52 49 4e 54 20 0d 35 36 32 39 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 55 53 49 4e 47 20   ┆PRINT  5629         PRINT USING ┆
0x4a0…4c0      22 49 20 61 6c 74 20 6b 7c 62 74 20 66 6f 72 20 23 23 23 23 23 23 2e 23 23 20 6b 72 22 3a 20 53   ┆"I alt købt for ######.## kr": S┆
0x4c0…4e0      55 4d 0d 35 36 33 30 20 20 20 20 20 20 20 45 4c 53 45 20 0d 35 36 33 31 20 20 20 20 20 20 20 20   ┆UM 5630       ELSE  5631        ┆
0x4e0…500      20 50 52 49 4e 54 20 22 28 49 6e 67 65 6e 20 76 61 72 65 6b 7c 62 20 69 20 64 65 6e 6e 65 20 6f   ┆ PRINT "(Ingen varekøb i denne o┆
0x500…520      6d 67 61 6e 67 29 22 0d 35 36 33 32 20 20 20 20 20 20 20 45 4e 44 49 46 20 0d 35 36 33 33 20 20   ┆mgang)" 5632       ENDIF  5633  ┆
0x520…540      20 20 20 20 20 50 52 49 4e 54 20 0d 35 36 33 34 20 20 20 20 20 20 20 50 52 49 4e 54 20 0d 35 36   ┆     PRINT  5634       PRINT  56┆
0x540…560      33 35 20 20 20 20 20 45 4e 44 49 46 20 0d 35 36 33 36 20 20 20 55 4e 54 49 4c 20 4b 4f 52 54 24   ┆35     ENDIF  5636   UNTIL KORT$┆
0x560…580      3d 22 22 0d 35 36 33 37 20 20 20 43 4c 4f 53 45 20 46 49 4c 45 20 31 0d 35 36 33 38 20 20 20 43   ┆="" 5637   CLOSE FILE 1 5638   C┆
0x580…5a0      4c 4f 53 45 20 46 49 4c 45 20 32 0d 35 36 33 39 20 45 4e 44 50 52 4f 43 20 54 4f 54 41 4c 50 4b   ┆LOSE FILE 2 5639 ENDPROC TOTALPK┆
0x5a0…5c0      4b 0d 20 20 20 50 52 49 4e 54 20 0d 35 36 33 34 20 20 20 20 20 20 20 50 52 49 4e 54 20 0d 35 36   ┆K    PRINT  5634       PRINT  56┆
0x5c0…5e0      33 35 20 20 20 20 20 45 4e 44 49 46 20 0d 35 36 33 36 20 20 20 55 4e 54 49 4c 20 4b 4f 52 54 24   ┆35     ENDIF  5636   UNTIL KORT$┆
0x5e0…600      3d 22 22 0d 35 36 33 37 20 20 20 43 4c 4f 53 45 20 46 49 4c 45 20 31 0d 35 36 33 38 20 20 20 22   ┆="" 5637   CLOSE FILE 1 5638   "┆