|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 896 (0x380)
Names: »BINTERN.PAS«
└─⟦f983c2ef3⟧ Bits:30004681 Pascal opgaver (Butler)
└─⟦this⟧ »BINTERN.PAS«
0x000…020 (0,) 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 ┆ ┆
[…0xf…]
0x200…220 (1,) 20 20 20 20 20 20 20 20 50 52 4f 47 52 41 4d 20 62 69 6e 74 72 61 65 31 3b 0d 0a 20 20 20 20 20 ┆ PROGRAM bintrae1; ┆
0x220…240 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 54 59 50 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ TYPE ┆
0x240…260 20 73 74 72 33 30 20 3d 20 53 54 52 49 4e 47 28 2e 33 30 2e 29 3b 0d 0a 20 20 20 20 20 20 20 20 ┆ str30 = STRING(.30.); ┆
0x260…280 20 20 20 20 70 6f 69 6e 74 65 72 20 3d 20 5e 20 6b 6e 75 64 65 3b 0d 0a 20 20 20 20 20 20 20 20 ┆ pointer = ^ knude; ┆
0x280…2a0 20 20 20 20 6b 6e 75 64 65 20 3d 20 52 45 43 4f 52 44 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ knude = RECORD ┆
0x2a0…2c0 20 20 20 20 20 20 20 20 20 20 76 65 6e 73 74 72 65 2c 20 68 6f 65 6a 72 65 20 3a 20 70 6f 69 6e ┆ venstre, hoejre : poin┆
0x2c0…2e0 74 65 72 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 61 74 61 ┆ter; data┆
0x2e0…300 20 3a 20 73 74 72 33 30 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 ┆ : str30; E┆
0x300…320 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 56 41 52 0d 0a ┆ND; VAR ┆
0x320…340 20 20 20 20 20 20 20 20 20 20 20 20 72 6f 64 20 3a 20 70 6f 69 6e 74 65 72 3b 0d 0a 20 20 20 20 ┆ rod : pointer; ┆
0x340…360 20 20 20 20 20 20 20 20 6f 72 64 5f 20 3a 20 73 74 72 33 30 3b 0d 0a 20 20 20 20 20 20 20 20 20 ┆ ord_ : str30; ┆
0x360…380 20 20 20 63 68 20 3a 20 43 48 41 52 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 ┆ ch : CHAR; ┆