|
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 - download
Length: 1024 (0x400)
Names: »JOURNAL.PAS«
└─⟦f983c2ef3⟧ Bits:30004681 Pascal opgaver (Butler)
└─⟦this⟧ »JOURNAL.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 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 78 20 3a ┆ BEGIN x :┆
0x220…240 3d 20 69 20 2f 20 31 30 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 ┆= i / 10; WRITE┆
0x240…260 4c 4e 28 78 20 3a 20 34 20 3a 20 31 2c 20 61 72 63 73 69 6e 28 78 29 20 3a 20 31 35 20 3a 20 38 ┆LN(x : 4 : 1, arcsin(x) : 15 : 8┆
0x260…280 2c 20 61 72 63 63 6f 73 28 78 29 20 3a 20 31 35 20 3a 20 38 29 3b 0d 0a 20 20 20 20 20 20 20 20 ┆, arccos(x) : 15 : 8); ┆
0x280…2a0 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 45 4e 44 2e 20 28 2a 20 69 6e ┆ END; END. (* in┆
0x2a0…2c0 76 65 72 73 20 2a 29 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆vers *) ┆
0x2c0…2e0 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
[…0x1…]
0x300…320 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 ┆ ┆
[…0x7…]