Kan je een deuntje muziek spelen in autocad?

[WebRacer]

Gewoon voor de fun en voor de verveling tegen te gaan was ik op zoek naar iets speciaals...
een deuntje kunnen spelen in autocad met de numerieke toetsen, het is echt te idioot om te doen denk je.
Inderdaad dat is het ook, maar is het niet echt fantastisch dat het mogelijk is?
Na paar uurtjes tobben en kauwen kwam dit uit mijn kleine brein:

Aan diegenen die het eens willen uitproberen kopieer de blauwe tekst naar een txt-file en verander de extentie naar .lsp, laden in autocad doe je door 'AP' te typen en de file op te halen...
EEN belangrijk feit: je moet de doslib.arx ook laden!!!


;Tune - laat u muziek maken door PC speaker met numerieke toetsen
;Geschreven door Olivier Hautekeete
------------------
| Hoofdprogramma |
--------------------------------------------------------------
(defun c:tune ()
(while
 (setq inp (chr (nth 0 (cdr (grread)))))
 (cond
      ((= inp "0") (dos_speaker 650 300))
      ((= inp "1") (dos_speaker 700 300))
      ((= inp "2") (dos_speaker 750 300))
      ((= inp "3") (dos_speaker 800 300))
      ((= inp "4") (dos_speaker 850 300))
      ((= inp "5") (dos_speaker 800 300))
      ((= inp "6") (dos_speaker 850 300))
      ((= inp "7") (dos_speaker 900 300))
       ((= inp "8") (dos_speaker 950 300))
       ((= inp "9") (dos_speaker 1000 300))
      (t nil)
    )
)
 (princ "\n\t Tune werd beïndigd...")(princ)
)
--------------------------------------------------------------
| Lisp-melding
--------------------------------------------------------------
(princ "\nCopyright (C) Hautekeete Olivier - augustus 2005.")(princ)
(princ "\nStart het commando met 'TUNE'.")(princ)
--------------------------------------------------------------

Goed e Kenny, na even denken kwam ik er toch...

[Kenny H]

Dag webracer,

Ik had u een mogelijke oplossing door gestuurd maar dan moest ge nog een enter geven na uw invoer. En dat was niet handig
Knap gevonden