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
Wrap
AMOS Source Code
|
1995-01-11
|
571b
|
21 lines
' Nuty (C) 1993 Arni Fusik
'
Do
Print
Input " Oktawa (0..7): ";OKTAWA
Input " Nuta (np. C#): ";NAZWA_NUTY$
If NAZWA_NUTY$="C" Then NUTA=1
If NAZWA_NUTY$="C#" Then NUTA=2
If NAZWA_NUTY$="D" Then NUTA=3
If NAZWA_NUTY$="D#" Then NUTA=4
If NAZWA_NUTY$="E" Then NUTA=5
If NAZWA_NUTY$="F" Then NUTA=6
If NAZWA_NUTY$="F#" Then NUTA=7
If NAZWA_NUTY$="G" Then NUTA=8
If NAZWA_NUTY$="G#" Then NUTA=9
If NAZWA_NUTY$="A" Then NUTA=10
If NAZWA_NUTY$="A#" Then NUTA=11
If NAZWA_NUTY$="B" Then NUTA=12
F=OKTAWA*12+NUTA
Play F,0
Loop