|
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: 1408 (0x580)
Names: »BUBBLE3.PAS«
└─⟦f983c2ef3⟧ Bits:30004681 Pascal opgaver (Butler)
└─⟦this⟧ »BUBBLE3.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 76 28 2e 6a 20 2b 20 31 2e 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ v(.j + 1.); ┆
0x220…240 20 20 76 28 2e 6a 20 2b 20 31 2e 29 20 3a 3d 20 62 79 74 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ v(.j + 1.) := byt; ┆
0x240…260 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 ┆ END; WRITELN(┆
0x260…280 4c 53 54 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 4c 53 54 2c 27 44 65 ┆LST); WRITELN(LST,'De┆
0x280…2a0 20 73 6f 72 74 65 72 65 64 65 20 74 61 6c 20 65 72 3a 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 ┆ sorterede tal er:'); ┆
0x2a0…2c0 20 46 4f 52 20 69 20 3a 3d 20 31 20 54 4f 20 6d 61 78 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 20 ┆ FOR i := 1 TO max DO ┆
0x2c0…2e0 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 4c 53 ┆ BEGIN WRITE(LS┆
0x2e0…300 54 2c 76 28 2e 69 2e 29 3a 34 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 69 ┆T,v(.i.):4); IF i┆
0x300…320 20 4d 4f 44 20 32 30 20 3d 20 30 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 ┆ MOD 20 = 0 THE┆
0x320…340 4e 20 57 52 49 54 45 4c 4e 28 4c 53 54 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 ┆N WRITELN(LST); E┆
0x340…360 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 4c 53 54 29 3b 0d 0a 20 20 ┆ND; WRITELN(LST); ┆
0x360…380 20 20 20 20 20 20 45 4e 44 2e 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ END. ┆
0x380…3a0 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…]