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

⟦551d78a87⟧

    Length: 384 (0x180)
    Names: »BUTTEGN.CML«

Derivation

└─⟦237ddb885⟧ Bits:30004603 COMAL-80 version 2.05
    └─ ⟦this⟧ »BUTTEGN.CML« 

Hex Dump

0x000…020 30 30 31 30 20 2f 2f 20 42 75 74 54 65 67 6e 0d 30 30 31 35 20 43 4c 45 41 52 20 0d 30 30 32 30   ┆0010 // ButTegn 0015 CLEAR  0020┆
0x020…040 20 44 55 4d 50 3a 3d 46 41 4c 53 45 0d 30 30 32 35 20 50 52 49 4e 54 20 43 48 52 24 28 32 37 29   ┆ DUMP:=FALSE 0025 PRINT CHR$(27)┆
0x040…060 2c 22 41 22 20 2f 2f 20 66 61 73 74 6c 7d 73 20 73 6b 7b 72 6d 65 6e 0d 30 30 33 30 20 46 4f 52   ┆,"A" // fastlås skærmen 0030 FOR┆
0x060…080 20 4b 41 52 53 5b 54 3a 3d 30 20 54 4f 20 31 31 20 44 4f 20 0d 30 30 34 30 20 20 20 49 46 20 4b   ┆ KARSÆT:=0 TO 11 DO  0040   IF K┆
0x080…0a0 41 52 53 5b 54 3c 3e 39 20 41 4e 44 20 4b 41 52 53 5b 54 3c 3e 31 30 20 54 48 45 4e 20 0d 30 30   ┆ARSÆT<>9 AND KARSÆT<>10 THEN  00┆
0x0a0…0c0 35 30 20 20 20 20 20 50 52 49 4e 54 20 22 22 32 37 22 24 22 2b 22 41 3a 4b 41 52 53 5b 54 22 2b   ┆50     PRINT ""27"$"+"A:KARSÆT"+┆
0x0c0…0e0 43 48 52 24 28 4b 41 52 53 5b 54 2b 34 38 29 2b 22 20 2e 44 4d 50 22 0d 30 30 36 30 20 20 20 20   ┆CHR$(KARSÆT+48)+" .DMP" 0060    ┆
0x0e0…100 20 43 41 4c 4c 20 31 36 0d 30 30 37 30 20 20 20 20 20 49 46 20 44 55 4d 50 20 54 48 45 4e 20 50   ┆ CALL 16 0070     IF DUMP THEN P┆
0x100…120 52 49 4e 54 20 22 22 32 37 22 48 22 31 22 22 3b 0d 30 30 37 33 20 20 20 20 20 2f 2f 20 68 65 72   ┆RINT ""27"H"1""; 0073     // her┆
0x120…140 20 76 65 6e 74 65 72 6f 75 74 69 6e 65 0d 30 30 38 30 20 20 20 45 4e 44 49 46 20 0d 30 30 39 30   ┆ venteroutine 0080   ENDIF  0090┆
0x140…160 20 4e 45 58 54 20 4b 41 52 53 5b 54 0d 30 31 30 30 20 50 52 49 4e 54 20 43 48 52 24 28 32 37 29   ┆ NEXT KARSÆT 0100 PRINT CHR$(27)┆
0x160…180 2c 22 61 22 20 2f 2f 20 66 72 69 67 7c 72 20 73 6b 7b 72 6d 65 6e 0d 4d 50 20 54 48 45 4e 20 77   ┆,"a" // frigør skærmen MP THEN w┆