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

⟦35da2cca6⟧ TextFile

    Length: 384 (0x180)
    Types: TextFile
    Names: »PIN«

Derivation

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

TextFile

0010 //
0020 PROC pin(port,REF value) CLOSED
0030   //
0040   // STRØM 5 MÅ IKKE BENYTTES I HOVEDPROGRAM
0050   //
0060   OPEN FILE 5,"/"+STR$(port)+"/port", READ 
0070   value:=ORD(GET$(5,1))
0080   CLOSE FILE 5
0090 ENDPROC pin
0100 //
▶19◀«eof»