|
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: 1152 (0x480)
Names: »PAKKEPST.PAS«
└─⟦f983c2ef3⟧ Bits:30004681 Pascal opgaver (Butler)
└─⟦this⟧ »PAKKEPST.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,) 50 52 4f 47 52 41 4d 20 70 61 6c 69 6e 64 72 3b 0d 0a 0d 0a 20 20 54 59 50 45 0d 0a 20 20 20 20 ┆PROGRAM palindr; TYPE ┆
0x220…240 73 74 72 34 30 20 3d 20 53 54 52 49 4e 47 28 2e 34 30 2e 29 3b 0d 0a 20 20 0d 0a 20 20 56 41 52 ┆str40 = STRING(.40.); VAR┆
0x240…260 0d 0a 20 20 20 20 74 65 6b 73 74 20 3a 20 73 74 72 34 30 3b 0d 0a 20 20 20 20 69 20 3a 20 49 4e ┆ tekst : str40; i : IN┆
0x260…280 54 45 47 45 52 3b 0d 0a 20 20 20 20 6f 6b 20 3a 20 42 4f 4f 4c 45 41 4e 3b 0d 0a 20 20 0d 0a 20 ┆TEGER; ok : BOOLEAN; ┆
0x280…2a0 20 42 45 47 49 4e 0d 0a 20 20 20 20 57 52 49 54 45 28 43 4c 52 48 4f 4d 29 3b 0d 0a 20 20 20 20 ┆ BEGIN WRITE(CLRHOM); ┆
0x2a0…2c0 57 52 49 54 45 28 27 49 6e 64 74 61 73 74 20 65 6e 20 74 65 6b 73 74 3a 20 27 29 3b 0d 0a 20 20 ┆WRITE('Indtast en tekst: '); ┆
0x2c0…2e0 20 20 52 45 41 44 4c 4e 28 74 65 6b 73 74 29 3b 0d 0a 20 20 20 20 6f 6b 20 3a 3d 20 54 52 55 45 ┆ READLN(tekst); ok := TRUE┆
0x2e0…300 3b 0d 0a 20 20 20 20 46 4f 52 20 69 20 3a 3d 20 31 20 54 4f 20 4c 45 4e 28 74 65 6b 73 74 29 20 ┆; FOR i := 1 TO LEN(tekst) ┆
0x300…320 44 49 56 20 32 20 44 4f 0d 0a 20 20 20 20 20 20 49 46 20 74 65 6b 73 74 28 2e 69 2e 29 20 3c 3e ┆DIV 2 DO IF tekst(.i.) <>┆
0x320…340 20 74 65 6b 73 74 28 2e 4c 45 4e 28 74 65 6b 73 74 29 20 2b 20 31 20 2d 20 69 2e 29 0d 0a 20 20 ┆ tekst(.LEN(tekst) + 1 - i.) ┆
0x340…360 20 20 20 20 20 20 54 48 45 4e 20 6f 6b 20 3a 3d 20 46 41 4c 53 45 3b 0d 0a 20 20 20 20 49 46 20 ┆ THEN ok := FALSE; IF ┆
0x360…380 6f 6b 0d 0a 20 20 20 20 20 20 54 48 45 4e 20 57 52 49 54 45 4c 4e 28 74 65 6b 73 74 2c 20 27 20 ┆ok THEN WRITELN(tekst, ' ┆
0x380…3a0 65 72 20 65 74 20 70 61 6c 69 6e 64 72 6f 6d 27 29 0d 0a 20 20 20 20 20 20 45 4c 53 45 20 57 52 ┆er et palindrom') ELSE WR┆
0x3a0…3c0 49 54 45 4c 4e 28 74 65 6b 73 74 2c 20 27 20 65 72 20 69 6b 6b 65 20 65 74 20 70 61 6c 69 6e 64 ┆ITELN(tekst, ' er ikke et palind┆
0x3c0…3e0 72 6f 6d 27 29 3b 0d 0a 20 20 45 4e 44 2e 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆rom'); END. ┆
0x3e0…400 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 ┆ ┆
0x400…420 (2,) 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 ┆ ┆
[…0x3…]