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

⟦32898534a⟧

    Length: 256 (0x100)
    Names: »TESTGROV.CML«

Derivation

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

Hex Dump

0x000…020 30 30 30 35 20 41 3a 3d 30 0d 30 30 31 30 20 46 4f 52 20 49 3a 3d 30 20 54 4f 20 32 35 35 20 44   ┆0005 A:=0 0010 FOR I:=0 TO 255 D┆
0x020…040 4f 20 0d 30 30 31 35 20 20 20 49 46 20 41 3d 33 30 20 4f 52 20 41 3d 36 30 20 4f 52 20 41 3d 39   ┆O  0015   IF A=30 OR A=60 OR A=9┆
0x040…060 30 20 4f 52 20 41 3d 31 32 30 20 4f 52 20 41 3d 31 35 30 20 4f 52 20 41 3d 31 38 30 20 4f 52 20   ┆0 OR A=120 OR A=150 OR A=180 OR ┆
0x060…080 41 3d 32 31 30 20 4f 52 20 41 3d 32 34 30 20 54 48 45 4e 20 50 52 49 4e 54 20 43 48 52 24 28 31   ┆A=210 OR A=240 THEN PRINT CHR$(1┆
0x080…0a0 30 29 2c 43 48 52 24 28 31 33 29 2c 43 48 52 24 28 31 30 29 2c 43 48 52 24 28 31 33 29 2c 0d 30   ┆0),CHR$(13),CHR$(10),CHR$(13), 0┆
0x0a0…0c0 30 32 30 20 20 20 50 52 49 4e 54 20 43 48 52 24 28 32 37 29 2c 22 67 22 2c 43 48 52 24 28 31 30   ┆020   PRINT CHR$(27),"g",CHR$(10┆
0x0c0…0e0 29 2c 43 48 52 24 28 49 29 2c 0d 30 30 32 35 20 20 20 50 52 49 4e 54 20 22 20 22 2c 0d 30 30 32   ┆),CHR$(I), 0025   PRINT " ", 002┆
0x0e0…100 36 20 20 20 41 3a 2b 31 0d 30 30 33 30 20 4e 45 58 54 20 49 0d 52 49 4e 54 20 43 48 52 24 28 75   ┆6   A:+1 0030 NEXT I RINT CHR$(u┆