XProfan

Declare fname$

PROC RecStart

    MCISend$("open new type waveaudio alias rectel")
    MCISend$("set rectel time format ms")
    MCISend$("set rectel channels 1")
    MCISend$("set rectel samplespersec 11100")
    MCISend$("set rectel bitspersample 8")
    MCISend$("record rectel")

ENDPROC

PROC RecPause

    MCISend$("Pause rectel")

ENDPROC

PROC RecAdd

    MCISend$("record rectel")

ENDPROC

PROC RecEnd

    MCISend$("stop rectel")

ENDPROC

PROC RecPlay

    MCISend$("Play rectel from 0 WAIT")

ENDPROC

PROC RecSave

    MCISend$(add$("save rectel ",fname$))

ENDPROC

PROC RecClose

    MCISend$("close rectel")

ENDPROC

let fname$="myfile.wav"
print
print "Kopfhörer/Lautsprecher und Mikro bereit?"
print "Taste zum Starten des simpelsten Diktiergeräts der Welt!"
print "------------------"
Waitkey
RecStart
print "Aufnahme läuft (5 Sekunden)"
print "------------------"
Sleep 5000'5 Sekunden Aufnahme
RecPause
print "5 Sekunden Aufnahmepause"
print "------------------"
Sleep 5000'5 Sekunden Pause
RecAdd
print "Aufnahme wird fortgesetzt (nochmal 5 Sekunden)"
print "------------------"
Sleep 5000'5 Sekunden Aufnahmefortsetzung
RecEnd
print "Aufnahmeende"
Sleep 2000
print "Und jetzt hören wir uns das zur Überprüfung an."
print "------------------"
RecPlay
Sleep 5000'5 Sekunden zum Lesen...
print "Jetzt wird das Ganze noch gespeichert als " + Chr$(34) + fname$ + Chr$(34)
print "Das war's dann..."
RecSave
RecClose