home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / ibm1 / pandor23.arj / SAMPAN.ZIP / ORGAN.PAN < prev    next >
Encoding:
Text File  |  1991-09-07  |  2.2 KB  |  141 lines
  1. Wipe
  2. Cursor 25 0
  3. VideoFore Yellow
  4. VideoBack Magenta
  5. Screen 0 0 "╔═══════════════════════════════════════════════════════════════════════╗"
  6. Screen 1 0 "║                                                                       ║"
  7. Screen 2 0 "║            Press keys A through G to sound musical tones.             ║"
  8. Screen 3 0 "║  Use [Ctrl] for a short note, [Shift] for long, and [Alt] for high.   ║"
  9. Screen 4 0 "║                       Press [Esc] to quit.                            ║"
  10. Screen 5 0 "║                                                                       ║"
  11. Screen 6 0 "╚═══════════════════════════════════════════════════════════════════════╝"
  12. Label 00
  13. GetKey
  14. IfKey "[Esc]"
  15.     Wipe
  16.     Cursor 0 0
  17.     Quit
  18. EndIf
  19. IfKey "abcdefg"
  20.     IfKey "a"
  21.         Tone 440 6t
  22.         Jump 00
  23.     EndIf
  24.     IfKey "b"
  25.         Tone 494 6t
  26.         Jump 00
  27.     EndIf
  28.     IfKey "c"
  29.         Tone 523 6t
  30.         Jump 00
  31.     EndIf
  32.     IfKey "d"
  33.         Tone 587 6t
  34.         Jump 00
  35.     EndIf
  36.     IfKey "e"
  37.         Tone 659 6t
  38.         Jump 00
  39.     EndIf
  40.     IfKey "f"
  41.         Tone 698 6t
  42.         Jump 00
  43.     EndIf
  44.     IfKey "g"
  45.         Tone 784 6t
  46.         Jump 00
  47.     EndIf
  48. EndIf
  49. IfKey "ABCDEFG"
  50.     IfKey "A"
  51.         Tone 440 12t
  52.         Jump 00
  53.     EndIf
  54.     IfKey "B"
  55.         Tone 494 12t
  56.         Jump 00
  57.     EndIf
  58.     IfKey "C"
  59.         Tone 523 12t
  60.         Jump 00
  61.     EndIf
  62.     IfKey "D"
  63.         Tone 587 12t
  64.         Jump 00
  65.     EndIf
  66.     IfKey "E"
  67.         Tone 659 12t
  68.         Jump 00
  69.     EndIf
  70.     IfKey "F"
  71.         Tone 698 12t
  72.         Jump 00
  73.     EndIf
  74.     IfKey "G"
  75.         Tone 784 12t
  76.         Jump 00
  77.     EndIf
  78. EndIf
  79. IfKey "[Ctrl]A[Ctrl]B[Ctrl]C[Ctrl]D[Ctrl]E[Ctrl]F[Ctrl]G"
  80.     IfKey "[Ctrl]A"
  81.         Tone 440 3t
  82.         Jump 00
  83.     EndIf
  84.     IfKey "[Ctrl]B"
  85.         Tone 494 3t
  86.         Jump 00
  87.     EndIf
  88.     IfKey "[Ctrl]C"
  89.         Tone 523 3t
  90.         Jump 00
  91.     EndIf
  92.     IfKey "[Ctrl]D"
  93.         Tone 587 3t
  94.         Jump 00
  95.     EndIf
  96.     IfKey "[Ctrl]E"
  97.         Tone 659 3t
  98.         Jump 00
  99.     EndIf
  100.     IfKey "[Ctrl]F"
  101.         Tone 698 3t
  102.         Jump 00
  103.     EndIf
  104.     IfKey "[Ctrl]G"
  105.         Tone 784 3t
  106.         Jump 00
  107.     EndIf
  108. EndIf
  109. IfKey "[Alt]A[Alt]B[Alt]C[Alt]D[Alt]E[Alt]F[Alt]G"
  110.     IfKey "[Alt]A"
  111.         Tone 880 3t
  112.         Jump 00
  113.     EndIf
  114.     IfKey "[Alt]B"
  115.         Tone 988 3t
  116.         Jump 00
  117.     EndIf
  118.     IfKey "[Alt]C"
  119.         Tone 1047 3t
  120.         Jump 00
  121.     EndIf
  122.     IfKey "[Alt]D"
  123.         Tone 1175 3t
  124.         Jump 00
  125.     EndIf
  126.     IfKey "[Alt]E"
  127.         Tone 1329 3t
  128.         Jump 00
  129.     EndIf
  130.     IfKey "[Alt]F"
  131.         Tone 1397 3t
  132.         Jump 00
  133.     EndIf
  134.     IfKey "[Alt]G"
  135.         Tone 1568 3t
  136.         Jump 00
  137.     EndIf
  138. EndIf
  139. Jump 00
  140.  
  141.