DataMuseum.dk

top - metrics - download

    Length: 640 (0x280)
    Names: »OPDATVAR.CML«

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

Hex Dump

0x000…020 (0,) 38 36 30 30 20 50 52 4f 43 20 4f 50 44 41 54 56 41 52 20 43 4c 4f 53 45 44 20 2f 2f 2d 2d 2d 2d   ┆8600 PROC OPDATVAR 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      2d 2d 2d 2d 2d 20 4f 50 44 41 54 56 41 52 0d 38 36 30 31 20 20 20 44 49 4d 20 45 24 20 4f 46 20   ┆----- OPDATVAR 8601   DIM E$ OF ┆
0x060…080      31 33 2c 20 4b 4f 52 54 24 20 4f 46 20 31 30 0d 38 36 30 32 20 20 20 4f 50 45 4e 20 46 49 4c 45   ┆13, KORT$ OF 10 8602   OPEN FILE┆
0x080…0a0      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 ┆
0x0a0…0c0      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┆
0x0c0…0e0      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┆
0x0e0…100      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┆
0x100…120      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┆
0x120…140      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┆
0x140…160      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#,┆
0x160…180      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#┆
0x180…1a0      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┆
0x1a0…1c0      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#:=┆
0x1c0…1e0      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, ┆
0x1e0…200      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┆
0x200…220 (1,) 31 34 20 20 20 20 20 20 20 45 4e 44 49 46 20 0d 38 36 31 35 20 20 20 20 20 45 4e 44 49 46 20 0d   ┆14       ENDIF  8615     ENDIF  ┆
0x220…240      38 36 31 36 20 20 20 55 4e 54 49 4c 20 45 24 3d 22 22 0d 38 36 31 37 20 20 20 43 4c 4f 53 45 20   ┆8616   UNTIL E$="" 8617   CLOSE ┆
0x240…260      46 49 4c 45 20 31 0d 38 36 31 38 20 45 4e 44 50 52 4f 43 20 4f 50 44 41 54 56 41 52 0d 31 2c 20   ┆FILE 1 8618 ENDPROC OPDATVAR 1, ┆
0x260…280      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 5d   ┆RECNR: E$, AN#, KORT$, OPDAT# 8Å┆