The Old-Style-Music-PLAY-Function

[turboPASCAL]

Zitat:

wer von euch kennt denn noch das gute alte DOS und vorallem das wunderschöne QBasic?

Ding, Dang, Dong:PLAY('O5 L4 CD L8 ED L4 CCD L8 ED L4 CEF L2 G L4 EF L2 G'); k. A.:PLAY('MFT120L8<GL16P16FEL8FL4GL16P8P16L8B>C<BL16AL8GL4GL16P8P16L8B>C<BL16AL8GGGGL16BL8>C<L2B'); nich die simsons:PLAY('MFT120L8<AL16P16AA>P4P16DP16DP16[B]P16L8CL16P16CCP4P16FP16F'); Let's go Range error. PLAY('MFT180o2P2P8L8GGGL2E-P24P8L8FFFL2D');

Das müsste sich leicht auf die Soundcart übertragen lassen.
Ich erinnere mal schnell an das Mattis Mini Midi Dings.