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

⟦d5dce6cd2⟧

    Length: 512 (0x200)
    Names: »KEYQ«

Derivation

└─⟦00255762f⟧ Bits:30003588 ID-Comal til COMAL-80 Konverteringsprogram
    └─ ⟦this⟧ »KEYQ« 

Hex Dump

0x000…020 30 30 31 30 20 46 55 4e 43 20 6b 65 79 71 28 70 61 72 61 6d 00 29 00 20 43 4c 4f 53 45 44 0d 0a   ┆0010 FUNC keyq(param )  CLOSED  ┆
0x020…040 30 30 32 30 20 20 20 49 46 20 70 61 72 61 6d 00 3d 00 30 20 54 48 45 4e 0d 0a 30 30 33 30 20 20   ┆0020   IF param = 0 THEN  0030  ┆
0x040…060 20 20 20 52 45 50 45 41 54 20 0d 0a 30 30 34 30 20 20 20 20 20 20 20 74 65 67 6e 3a 3d 4f 52 44   ┆   REPEAT   0040       tegn:=ORD┆
0x060…080 00 28 4b 45 59 24 29 00 0d 0a 30 30 35 30 20 20 20 20 20 55 4e 54 49 4c 00 20 74 65 67 6e 3e 00   ┆ (KEY$)   0050     UNTIL  tegn> ┆
0x080…0a0 30 0d 0a 30 30 36 30 20 20 20 20 20 52 45 54 55 52 4e 20 74 65 67 6e 0d 0a 30 30 37 30 20 20 20   ┆0  0060     RETURN tegn  0070   ┆
0x0a0…0c0 45 4c 53 45 20 0d 0a 30 30 38 30 20 20 20 20 20 74 65 67 6e 3a 3d 4f 52 44 00 28 4b 45 59 24 29   ┆ELSE   0080     tegn:=ORD (KEY$)┆
0x0c0…0e0 00 0d 0a 30 30 39 30 20 20 20 20 20 49 46 20 74 65 67 6e 3e 00 30 20 54 48 45 4e 20 2f 2f 20 64   ┆   0090     IF tegn> 0 THEN // d┆
0x0e0…100 65 72 20 65 72 20 74 72 79 6b 6b 65 74 20 70 7d 20 65 6e 20 74 61 73 74 0d 0a 30 31 30 30 20 20   ┆er er trykket på en tast  0100  ┆
0x100…120 20 20 20 20 20 52 45 54 55 52 4e 20 74 65 67 6e 0d 0a 30 31 31 30 20 20 20 20 20 45 4c 53 45 20   ┆     RETURN tegn  0110     ELSE ┆
0x120…140 20 2f 2f 20 20 20 20 20 20 20 20 20 20 64 65 72 20 65 72 20 69 6b 6b 65 20 74 72 79 6b 6b 65 74   ┆ //          der er ikke trykket┆
0x140…160 20 2a 2a 20 2d 31 20 72 65 74 75 72 6e 65 72 65 73 20 73 6f 6d 20 69 20 49 44 2d 43 4f 4d 41 4c   ┆ ** -1 returneres som i ID-COMAL┆
0x160…180 00 0d 0a 30 31 32 30 20 20 20 20 20 20 20 52 45 54 55 52 4e 20 00 2d 00 31 0d 0a 30 31 33 30 20   ┆   0120       RETURN  - 1  0130 ┆
0x180…1a0 20 20 20 20 45 4e 44 49 46 00 20 0d 0a 30 31 34 30 20 20 20 45 4e 44 49 46 00 20 0d 0a 30 31 35   ┆    ENDIF    0140   ENDIF    015┆
0x1a0…1c0 30 20 45 4e 44 46 55 4e 43 00 20 6b 65 79 71 0d 0a 19 1a 00 00 00 00 00 00 00 00 00 00 00 00 00   ┆0 ENDFUNC  keyq                 ┆
0x1c0…1e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ┆                                ┆
       […0x1…]