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⟧ TextFile

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

Derivation

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

TextFile

0010 FUNC keyq(param) CLOSED
0020   IF param=0 THEN
0030     REPEAT 
0040       tegn:=ORD(KEY$)
0050     UNTIL tegn>0
0060     RETURN tegn
0070   ELSE 
0080     tegn:=ORD(KEY$)
0090     IF tegn>0 THEN // der er trykket på en tast
0100       RETURN tegn
0110     ELSE  //          der er ikke trykket ** -1 returneres som i ID-COMAL
0120       RETURN -1
0130     ENDIF 
0140   ENDIF 
0150 ENDFUNC keyq
▶19◀«eof»