DataMuseum.dk

top - metrics - download

    Length: 512 (0x200)
    Names: »LISSPVAR.CML«

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

Hex Dump

0x000…020 (0,) 35 33 30 30 20 50 52 4f 43 20 4c 49 53 53 50 56 41 52 28 4b 4f 52 54 4e 52 24 29 20 43 4c 4f 53   ┆5300 PROC LISSPVAR(KORTNR$) CLOS┆
0x020…040      45 44 20 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 4c 49 53 53 50   ┆ED //--------------------- LISSP┆
0x040…060      56 41 52 0d 35 33 30 31 20 20 20 44 49 4d 20 4b 4f 52 54 24 20 4f 46 20 31 30 2c 20 4b 24 20 4f   ┆VAR 5301   DIM KORT$ OF 10, K$ O┆
0x060…080      46 20 31 30 2c 20 56 24 20 4f 46 20 31 33 0d 35 33 30 32 20 20 20 4f 50 45 4e 20 46 49 4c 45 20   ┆F 10, V$ OF 13 5302   OPEN FILE ┆
0x080…0a0      30 2c 20 22 76 61 72 65 73 70 7b 72 2e 72 61 6e 22 2c 20 52 41 4e 44 4f 4d 20 2c 20 32 37 0d 35   ┆0, "varespær.ran", RANDOM , 27 5┆
0x0a0…0c0      33 30 33 20 20 20 52 45 43 4e 52 3a 3d 30 3b 20 4b 24 3a 3d 4b 4f 52 54 4e 52 24 0d 35 33 30 34   ┆303   RECNR:=0; K$:=KORTNR$ 5304┆
0x0c0…0e0      20 20 20 52 45 50 45 41 54 20 0d 35 33 30 35 20 20 20 20 20 52 45 43 4e 52 3a 2b 31 0d 35 33 30   ┆   REPEAT  5305     RECNR:+1 530┆
0x0e0…100      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 4b 24 2c 20 56 24   ┆6     READ FILE 0, RECNR: K$, V$┆
0x100…120      0d 35 33 30 37 20 20 20 20 20 49 46 20 4b 4f 52 54 24 3d 4b 24 20 54 48 45 4e 20 50 52 49 4e 54   ┆ 5307     IF KORT$=K$ THEN PRINT┆
0x120…140      20 55 53 49 4e 47 20 22 23 23 23 20 20 23 23 23 23 23 23 23 23 23 23 23 23 23 22 3a 20 52 45 43   ┆ USING "###  #############": REC┆
0x140…160      4e 52 2c 56 24 0d 35 33 30 38 20 20 20 55 4e 54 49 4c 20 4b 24 3d 22 22 0d 35 33 30 39 20 20 20   ┆NR,V$ 5308   UNTIL K$="" 5309   ┆
0x160…180      43 4c 4f 53 45 20 46 49 4c 45 20 30 0d 35 33 31 30 20 45 4e 44 50 52 4f 43 20 4c 49 53 53 50 56   ┆CLOSE FILE 0 5310 ENDPROC LISSPV┆
0x180…1a0      41 52 0d 30 37 20 20 20 20 20 49 46 20 4b 4f 52 54 24 3d 4b 24 20 54 48 45 4e 20 50 52 49 4e 54   ┆AR 07     IF KORT$=K$ THEN PRINT┆
0x1a0…1c0      20 55 53 49 4e 47 20 22 23 23 23 20 20 23 23 23 23 23 23 23 23 23 23 23 23 23 22 3a 20 52 45 43   ┆ USING "###  #############": REC┆
0x1c0…1e0      4e 52 2c 56 24 0d 35 33 30 38 20 20 20 55 4e 54 49 4c 20 4b 24 3d 22 22 0d 35 33 30 39 20 20 20   ┆NR,V$ 5308   UNTIL K$="" 5309   ┆
0x1e0…200      43 4c 4f 53 45 20 46 49 4c 45 20 30 0d 35 33 31 30 20 45 4e 44 50 52 4f 43 20 4c 49 53 53 50 03   ┆CLOSE FILE 0 5310 ENDPROC LISSP ┆