|
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: »HENTPOST.PAS«
└─⟦f983c2ef3⟧ Bits:30004681 Pascal opgaver (Butler)
└─⟦this⟧ »HENTPOST.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 69 64 65 61 6c 3b 0d 0a 20 20 0d 0a 20 20 54 59 50 45 0d 0a 20 20 20 20 ┆PROGRAM ideal; TYPE ┆
0x220…240 73 74 72 36 20 3d 20 53 54 52 49 4e 47 28 2e 36 2e 29 3b 0d 0a 20 20 0d 0a 20 20 56 41 52 0d 0a ┆str6 = STRING(.6.); VAR ┆
0x240…260 20 20 20 20 6b 6f 65 6e 20 3a 20 73 74 72 36 3b 0d 0a 20 20 20 20 63 68 20 3a 20 43 48 41 52 3b ┆ koen : str6; ch : CHAR;┆
0x260…280 0d 0a 20 20 20 20 68 6f 65 6a 64 65 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 0d 0a 20 20 50 ┆ hoejde : INTEGER; P┆
0x280…2a0 52 4f 43 45 44 55 52 45 20 66 6f 72 73 69 64 65 3b 0d 0a 20 20 20 0d 0a 20 20 20 20 43 4f 4e 53 ┆ROCEDURE forside; CONS┆
0x2a0…2c0 54 0d 0a 20 20 20 20 20 20 78 20 3d 20 31 30 3b 0d 0a 20 20 20 20 20 20 79 20 3d 20 34 3b 0d 0a ┆T x = 10; y = 4; ┆
0x2c0…2e0 20 20 20 20 0d 0a 20 20 20 20 56 41 52 0d 0a 20 20 20 20 20 20 63 68 20 3a 20 43 48 41 52 3b 0d ┆ VAR ch : CHAR; ┆
0x2e0…300 0a 20 20 20 20 0d 0a 20 20 20 20 42 45 47 49 4e 20 28 2a 20 66 6f 72 73 69 64 65 20 2a 29 0d 0a ┆ BEGIN (* forside *) ┆
0x300…320 20 20 20 20 20 20 57 52 49 54 45 28 43 4c 52 48 4f 4d 29 3b 0d 0a 20 20 20 20 20 20 47 4f 54 4f ┆ WRITE(CLRHOM); GOTO┆
0x320…340 58 59 28 78 2c 20 79 29 3b 0d 0a 20 20 20 20 20 20 57 52 49 54 45 28 27 2a 2a 2a 2a 2a 2a 2a 2a ┆XY(x, y); WRITE('********┆
0x340…360 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x360…380 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 27 29 3b 0d 0a 20 20 20 20 20 20 47 4f 54 4f ┆*****************'); GOTO┆
0x380…3a0 58 59 28 78 2c 20 79 20 2b 20 31 29 3b 0d 0a 20 20 20 20 20 20 57 52 49 54 45 28 27 2a 2a 2a 2a ┆XY(x, y + 1); WRITE('****┆
0x3a0…3c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3c0…3e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 27 29 3b 0d 0a 20 20 20 20 20 20 ┆ ****'); ┆
0x3e0…400 47 4f 54 4f 58 59 28 78 2c 20 79 20 2b 20 32 29 3b 0d 0a 20 20 20 20 20 20 57 52 49 54 45 28 27 ┆GOTOXY(x, y + 2); WRITE('┆
0x400…420 (2,) 2a 2a 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆**** ┆
0x420…440 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 27 29 3b 0d 0a 20 20 ┆ ****'); ┆
0x440…460 20 20 20 20 47 4f 54 4f 58 59 28 78 2c 20 79 20 2b 20 33 29 3b 0d 0a 20 20 20 20 20 20 57 52 49 ┆ GOTOXY(x, y + 3); WRI┆
0x460…480 54 45 28 27 2a 2a 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 44 20 45 20 41 20 ┆TE('**** I D E A ┆
0x480…4a0 4c 20 56 20 5b 20 47 20 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 27 29 3b ┆L V Æ G T ****');┆
0x4a0…4c0 0d 0a 20 20 20 20 20 20 47 4f 54 4f 58 59 28 78 2c 20 79 20 2b 20 34 29 3b 0d 0a 20 20 20 20 20 ┆ GOTOXY(x, y + 4); ┆
0x4c0…4e0 20 57 52 49 54 45 28 27 2a 2a 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ WRITE('**** ┆
0x4e0…500 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a ┆ ***┆
0x500…520 2a 27 29 3b 0d 0a 20 20 20 20 20 20 47 4f 54 4f 58 59 28 78 2c 20 79 20 2b 20 35 29 3b 0d 0a 20 ┆*'); GOTOXY(x, y + 5); ┆
0x520…540 20 20 20 20 20 57 52 49 54 45 28 27 2a 2a 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ WRITE('**** ┆
0x540…560 20 20 20 20 20 20 48 20 4f 20 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ H O S ┆
0x560…580 20 2a 2a 2a 2a 27 29 3b 0d 0a 20 20 20 20 20 20 47 4f 54 4f 58 59 28 78 2c 20 79 20 2b 20 36 29 ┆ ****'); GOTOXY(x, y + 6)┆