|
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: 512 (0x200)
Names: »TESTRET.CML«
└─⟦ccbc2d84d⟧ Bits:30004597 Boot 60k CP/M (Butler)
└─⟦this⟧ »TESTRET.CML«
0x000…020 (0,) 30 30 31 30 20 46 4f 52 20 4a 3a 3d 30 20 54 4f 20 31 35 20 44 4f 20 0d 30 30 32 30 20 20 20 2f ┆0010 FOR J:=0 TO 15 DO 0020 /┆ 0x020…040 2f 20 73 65 74 20 63 6f 6c 6f 75 72 0d 30 30 33 30 20 20 20 50 52 49 4e 54 20 43 48 52 24 28 32 ┆/ set colour 0030 PRINT CHR$(2┆ 0x040…060 37 29 2c 22 25 22 2c 43 48 52 24 28 4a 29 2c 0d 30 30 34 30 20 20 20 46 4f 52 20 42 3a 3d 31 20 ┆7),"%",CHR$(J), 0040 FOR B:=1 ┆ 0x060…080 54 4f 20 32 20 44 4f 20 0d 30 30 35 30 20 20 20 20 20 46 4f 52 20 49 3a 3d 30 20 54 4f 20 37 20 ┆TO 2 DO 0050 FOR I:=0 TO 7 ┆ 0x080…0a0 44 4f 20 0d 30 30 36 30 20 20 20 20 20 20 20 2f 2f 20 73 65 74 20 63 75 72 73 6f 72 0d 30 30 37 ┆DO 0060 // set cursor 007┆ 0x0a0…0c0 30 20 20 20 20 20 20 20 50 52 49 4e 54 20 43 48 52 24 28 32 37 29 2c 22 3a 22 2c 43 48 52 24 28 ┆0 PRINT CHR$(27),":",CHR$(┆ 0x0c0…0e0 31 29 2c 43 48 52 24 28 37 35 29 2c 43 48 52 24 28 30 29 2c 43 48 52 24 28 31 30 30 29 2c 0d 30 ┆1),CHR$(75),CHR$(0),CHR$(100), 0┆ 0x0e0…100 30 38 30 20 20 20 20 20 20 20 2f 2f 20 73 65 74 20 6d 6f 64 65 0d 30 30 39 30 20 20 20 20 20 20 ┆080 // set mode 0090 ┆ 0x100…120 20 50 52 49 4e 54 20 43 48 52 24 28 32 37 29 2c 22 22 22 22 2c 43 48 52 24 28 31 29 2c 0d 30 31 ┆ PRINT CHR$(27),"""",CHR$(1), 01┆ 0x120…140 30 30 20 20 20 20 20 20 20 2f 2f 20 73 65 74 20 64 69 72 65 63 74 69 6f 6e 0d 30 31 31 30 20 20 ┆00 // set direction 0110 ┆ 0x140…160 20 20 20 20 20 50 52 49 4e 54 20 43 48 52 24 28 32 37 29 2c 22 35 22 2c 43 48 52 24 28 49 29 2c ┆ PRINT CHR$(27),"5",CHR$(I),┆ 0x160…180 0d 30 31 32 30 20 20 20 20 20 20 20 2f 2f 20 66 69 6c 6c 20 61 72 65 61 0d 30 31 33 30 20 20 20 ┆ 0120 // fill area 0130 ┆ 0x180…1a0 20 20 20 20 50 52 49 4e 54 20 43 48 52 24 28 32 37 29 2c 22 32 22 2c 43 48 52 24 28 30 29 2c 43 ┆ PRINT CHR$(27),"2",CHR$(0),C┆ 0x1a0…1c0 48 52 24 28 35 35 29 2c 43 48 52 24 28 30 29 2c 43 48 52 24 28 35 35 29 2c 0d 30 31 34 30 20 20 ┆HR$(55),CHR$(0),CHR$(55), 0140 ┆ 0x1c0…1e0 20 20 20 4e 45 58 54 20 49 0d 30 31 35 30 20 20 20 4e 45 58 54 20 42 0d 30 31 36 30 20 4e 45 58 ┆ NEXT I 0150 NEXT B 0160 NEX┆ 0x1e0…200 54 20 4a 0d 30 20 20 20 20 20 20 20 2f 2f 20 66 69 6c 6c 20 61 72 65 61 0d 30 31 33 30 20 20 64 ┆T J 0 // fill area 0130 d┆