DataMuseum.dk Presents historical artifacts from the history of: CP/M

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦105361a99⟧

    Length: 896 (0x380)
    Names: »TESTGDC.CML«

Derivation

└─⟦ccbc2d84d⟧ Bits:30004597 Boot 60k CP/M (Butler)
    └─ ⟦this⟧ »TESTGDC.CML« 

Hex Dump

0x000…020 30 30 31 30 20 2f 2f 20 6b 6f 6e 74 72 6f 6c 6b 6f 64 65 72 20 66 6f 72 20 67 64 63 0d 30 30 32   ┆0010 // kontrolkoder for gdc 002┆
0x020…040 30 20 2f 2f 0d 30 30 33 30 20 2f 2f 20 65 73 63 20 31 20 78 68 7c 6a 20 78 6c 61 76 20 79 68 7c   ┆0 // 0030 // esc 1 xhøj xlav yhø┆
0x040…060 6a 20 79 6c 61 76 20 2f 2f 20 74 65 67 6e 20 75 64 66 79 6c 64 74 20 72 65 74 61 6e 67 65 6c 0d   ┆j ylav // tegn udfyldt retangel ┆
0x060…080 30 30 34 30 20 2f 2f 20 65 73 63 20 32 20 78 68 7c 6a 20 78 6c 61 76 20 79 68 7c 6a 20 79 6c 61   ┆0040 // esc 2 xhøj xlav yhøj yla┆
0x080…0a0 76 20 2f 2f 20 74 65 67 6e 20 72 65 74 61 6e 67 65 6c 0d 30 30 35 30 20 2f 2f 20 65 73 63 20 33   ┆v // tegn retangel 0050 // esc 3┆
0x0a0…0c0 20 6d 61 73 6b 30 20 6d 61 73 6b 31 20 2f 2f 20 73 7b 74 20 6d 61 73 6b 65 0d 30 30 36 30 20 2f   ┆ mask0 mask1 // sæt maske 0060 /┆
0x0c0…0e0 2f 20 65 73 63 20 35 20 72 65 74 6e 69 6e 67 20 2f 2f 20 73 7b 74 20 74 65 67 6e 65 72 65 74 6e   ┆/ esc 5 retning // sæt tegneretn┆
0x0e0…100 69 6e 67 0d 30 30 37 30 20 2f 2f 20 65 73 63 20 36 20 78 68 7c 6a 20 78 6c 61 76 20 79 68 7c 6a   ┆ing 0070 // esc 6 xhøj xlav yhøj┆
0x100…120 20 79 6c 61 76 20 2f 2f 20 74 65 67 6e 20 6c 69 6e 69 65 0d 30 30 38 30 20 2f 2f 20 65 73 63 20   ┆ ylav // tegn linie 0080 // esc ┆
0x120…140 37 20 66 61 72 76 65 20 2f 2f 20 73 7b 74 20 63 75 72 73 6f 72 20 66 61 72 76 65 20 28 30 20 2d   ┆7 farve // sæt cursor farve (0 -┆
0x140…160 20 31 35 29 0d 30 30 39 30 20 2f 2f 20 65 73 63 20 22 20 6d 6f 64 65 20 2f 2f 20 73 7b 74 20 6d   ┆ 15) 0090 // esc " mode // sæt m┆
0x160…180 6f 64 65 20 66 6f 72 20 67 64 63 0d 30 31 30 30 20 2f 2f 20 65 73 63 20 25 20 66 61 72 76 65 20   ┆ode for gdc 0100 // esc % farve ┆
0x180…1a0 2f 2f 20 73 7b 74 20 74 65 67 6e 65 66 61 72 76 65 0d 30 31 31 30 20 46 4f 52 20 4a 3a 3d 30 20   ┆// sæt tegnefarve 0110 FOR J:=0 ┆
0x1a0…1c0 54 4f 20 31 35 20 44 4f 20 0d 30 31 32 30 20 20 20 2f 2f 20 73 65 74 20 63 6f 6c 6f 75 72 0d 30   ┆TO 15 DO  0120   // set colour 0┆
0x1c0…1e0 31 33 30 20 20 20 50 52 49 4e 54 20 43 48 52 24 28 32 37 29 2c 22 25 22 2c 43 48 52 24 28 4a 29   ┆130   PRINT CHR$(27),"%",CHR$(J)┆
0x1e0…200 2c 0d 30 31 34 30 20 20 20 46 4f 52 20 42 3a 3d 31 20 54 4f 20 32 20 44 4f 20 0d 30 31 35 30 20   ┆, 0140   FOR B:=1 TO 2 DO  0150 ┆
0x200…220 20 20 20 20 46 4f 52 20 49 3a 3d 30 20 54 4f 20 37 20 44 4f 20 0d 30 31 36 30 20 20 20 20 20 20   ┆    FOR I:=0 TO 7 DO  0160      ┆
0x220…240 20 2f 2f 20 73 65 74 20 63 75 72 73 6f 72 0d 30 31 37 30 20 20 20 20 20 20 20 50 52 49 4e 54 20   ┆ // set cursor 0170       PRINT ┆
0x240…260 43 48 52 24 28 32 37 29 2c 22 3a 22 2c 43 48 52 24 28 31 29 2c 43 48 52 24 28 37 35 29 2c 43 48   ┆CHR$(27),":",CHR$(1),CHR$(75),CH┆
0x260…280 52 24 28 30 29 2c 43 48 52 24 28 31 30 30 29 2c 0d 30 31 38 30 20 20 20 20 20 20 20 2f 2f 20 73   ┆R$(0),CHR$(100), 0180       // s┆
0x280…2a0 65 74 20 6d 6f 64 65 0d 30 31 39 30 20 20 20 20 20 20 20 50 52 49 4e 54 20 43 48 52 24 28 32 37   ┆et mode 0190       PRINT CHR$(27┆
0x2a0…2c0 29 2c 22 22 22 22 2c 43 48 52 24 28 31 29 2c 0d 30 32 30 30 20 20 20 20 20 20 20 2f 2f 20 73 65   ┆),"""",CHR$(1), 0200       // se┆
0x2c0…2e0 74 20 64 69 72 65 63 74 69 6f 6e 0d 30 32 31 30 20 20 20 20 20 20 20 50 52 49 4e 54 20 43 48 52   ┆t direction 0210       PRINT CHR┆
0x2e0…300 24 28 32 37 29 2c 22 35 22 2c 43 48 52 24 28 49 29 2c 0d 30 32 32 30 20 20 20 20 20 20 20 2f 2f   ┆$(27),"5",CHR$(I), 0220       //┆
0x300…320 20 66 69 6c 6c 20 61 72 65 61 0d 30 32 33 30 20 20 20 20 20 20 20 50 52 49 4e 54 20 43 48 52 24   ┆ fill area 0230       PRINT CHR$┆
0x320…340 28 32 37 29 2c 22 31 22 2c 43 48 52 24 28 30 29 2c 43 48 52 24 28 31 30 29 2c 43 48 52 24 28 30   ┆(27),"1",CHR$(0),CHR$(10),CHR$(0┆
0x340…360 29 2c 43 48 52 24 28 31 30 29 2c 0d 30 32 34 30 20 20 20 20 20 4e 45 58 54 20 49 0d 30 32 35 30   ┆),CHR$(10), 0240     NEXT I 0250┆
0x360…380 20 20 20 4e 45 58 54 20 42 0d 30 32 36 30 20 4e 45 58 54 20 4a 0d 30 20 20 20 20 20 20 20 2f 76   ┆   NEXT B 0260 NEXT J 0       /v┆