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 - metrics - download

⟦01880719d⟧ TextFile

    Length: 384 (0x180)
    Types: TextFile
    Names: »4000-HZ«

Derivation

└─⟦be08f6879⟧ Bits:30003899/Brug_pæren_lærer-tekst.imd Brug pæren Rev. 1.0 (Piccolo)
    └─⟦this⟧ »4000-HZ«

TextFile

0010 // "4000-Hz"
0020 // BLINKFREKVENS:  4000  blink/sek
0030 DIM streng$ OF 2000
0040 FOR n:=1 TO 1000 DO streng$:=streng$+CHR$(0)+CHR$(255)
0050 OPEN FILE 1,"/17/PORT", WRITE 
0060 start:=SYS(3)/50
0070 PRINT FILE 1: streng$
0080 slut:=SYS(3)/50
0090 PRINT "Freq.: ";2000/(slut-start)
0100 CLOSE FILE 1
0110 END 
▶19◀«eof»