home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga Shareware Floppies / ma33.dms / ma33.adf / Amos / AMOS.lha / 02-Zabawy_z_muzyka / 4-Nuty.AMOS / 4-Nuty.amosSourceCode
AMOS Source Code  |  1995-01-11  |  571b  |  21 lines
  1. ' Nuty (C) 1993 Arni Fusik 
  2. '
  3. Do 
  4.    Print 
  5.    Input " Oktawa (0..7): ";OKTAWA
  6.    Input " Nuta (np. C#): ";NAZWA_NUTY$
  7.    If NAZWA_NUTY$="C" Then NUTA=1
  8.    If NAZWA_NUTY$="C#" Then NUTA=2
  9.    If NAZWA_NUTY$="D" Then NUTA=3
  10.    If NAZWA_NUTY$="D#" Then NUTA=4
  11.    If NAZWA_NUTY$="E" Then NUTA=5
  12.    If NAZWA_NUTY$="F" Then NUTA=6
  13.    If NAZWA_NUTY$="F#" Then NUTA=7
  14.    If NAZWA_NUTY$="G" Then NUTA=8
  15.    If NAZWA_NUTY$="G#" Then NUTA=9
  16.    If NAZWA_NUTY$="A" Then NUTA=10
  17.    If NAZWA_NUTY$="A#" Then NUTA=11
  18.    If NAZWA_NUTY$="B" Then NUTA=12
  19.    F=OKTAWA*12+NUTA
  20.    Play F,0
  21. Loop