home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
diags
/
pandor23.zip
/
ORGAN.PAN
< prev
next >
Wrap
Text File
|
1991-09-07
|
2KB
|
141 lines
Wipe
Cursor 25 0
VideoFore Yellow
VideoBack Magenta
Screen 0 0 "╔═══════════════════════════════════════════════════════════════════════╗"
Screen 1 0 "║ ║"
Screen 2 0 "║ Press keys A through G to sound musical tones. ║"
Screen 3 0 "║ Use [Ctrl] for a short note, [Shift] for long, and [Alt] for high. ║"
Screen 4 0 "║ Press [Esc] to quit. ║"
Screen 5 0 "║ ║"
Screen 6 0 "╚═══════════════════════════════════════════════════════════════════════╝"
Label 00
GetKey
IfKey "[Esc]"
Wipe
Cursor 0 0
Quit
EndIf
IfKey "abcdefg"
IfKey "a"
Tone 440 6t
Jump 00
EndIf
IfKey "b"
Tone 494 6t
Jump 00
EndIf
IfKey "c"
Tone 523 6t
Jump 00
EndIf
IfKey "d"
Tone 587 6t
Jump 00
EndIf
IfKey "e"
Tone 659 6t
Jump 00
EndIf
IfKey "f"
Tone 698 6t
Jump 00
EndIf
IfKey "g"
Tone 784 6t
Jump 00
EndIf
EndIf
IfKey "ABCDEFG"
IfKey "A"
Tone 440 12t
Jump 00
EndIf
IfKey "B"
Tone 494 12t
Jump 00
EndIf
IfKey "C"
Tone 523 12t
Jump 00
EndIf
IfKey "D"
Tone 587 12t
Jump 00
EndIf
IfKey "E"
Tone 659 12t
Jump 00
EndIf
IfKey "F"
Tone 698 12t
Jump 00
EndIf
IfKey "G"
Tone 784 12t
Jump 00
EndIf
EndIf
IfKey "[Ctrl]A[Ctrl]B[Ctrl]C[Ctrl]D[Ctrl]E[Ctrl]F[Ctrl]G"
IfKey "[Ctrl]A"
Tone 440 3t
Jump 00
EndIf
IfKey "[Ctrl]B"
Tone 494 3t
Jump 00
EndIf
IfKey "[Ctrl]C"
Tone 523 3t
Jump 00
EndIf
IfKey "[Ctrl]D"
Tone 587 3t
Jump 00
EndIf
IfKey "[Ctrl]E"
Tone 659 3t
Jump 00
EndIf
IfKey "[Ctrl]F"
Tone 698 3t
Jump 00
EndIf
IfKey "[Ctrl]G"
Tone 784 3t
Jump 00
EndIf
EndIf
IfKey "[Alt]A[Alt]B[Alt]C[Alt]D[Alt]E[Alt]F[Alt]G"
IfKey "[Alt]A"
Tone 880 3t
Jump 00
EndIf
IfKey "[Alt]B"
Tone 988 3t
Jump 00
EndIf
IfKey "[Alt]C"
Tone 1047 3t
Jump 00
EndIf
IfKey "[Alt]D"
Tone 1175 3t
Jump 00
EndIf
IfKey "[Alt]E"
Tone 1329 3t
Jump 00
EndIf
IfKey "[Alt]F"
Tone 1397 3t
Jump 00
EndIf
IfKey "[Alt]G"
Tone 1568 3t
Jump 00
EndIf
EndIf
Jump 00