DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC700 "Piccolo" |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC700 "Piccolo" Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 512 (0x200) Names: »KEYQ«
└─⟦00255762f⟧ Bits:30003588 ID-Comal til COMAL-80 Konverteringsprogram └─ ⟦this⟧ »KEYQ«
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…]