home *** CD-ROM | disk | FTP | other *** search
/ Personal Computing Magazine 1988 September / SEPT_1988 / PIANOLA2 / DEMO < prev    next >
Encoding:
Text File  |  1988-01-01  |  5.5 KB  |  165 lines
  1.                             CLOCKWORK PIANOLA
  2.                             =================
  3.  
  4.    The CLOCKWORK PIANOLA is a very simple program which plays tunes
  5.    in 3 or 4 voices, taking its instructions from a separate text
  6.    file.  If no text file is specified as a parameter when the PLAY
  7.    command is given then a file called READ.ME, this one, is used.
  8.  
  9.    TUNE-FILES:
  10.  
  11.    The instructions understood by the Pianola program are quite simple,
  12.    here is a summary :-
  13.  
  14.       Valid instructions start with a command symbol at the left
  15.       margin, all other lines are ignored.
  16.  
  17.       Command Symbols include C P Q T X * % #, explained below.
  18.  
  19.       Numbers are represented as ASCII-48 unless otherwise stated.
  20.       (ie "0"=0, "A"=17, etc)
  21.  
  22.                             ASCII-48 CODE
  23.                    0   10   20   30   40   50   60   70
  24.                 ┌────────────────────────────────────────┐
  25.               0 │  0    :    D    N    X    b    l    v  │
  26.               1 │  1    ;    E    O    Y    c    m    w  │
  27.               2 │  2    <    F    P    Z    d    n    x  │
  28.               3 │  3    =    G    Q    [    e    o    y  │
  29.               4 │  4    >    H    R    \    f    p    z  │
  30.               5 │  5    ?    I    S    ]    g    q    {  │
  31.               6 │  6    @    J    T    ^    h    r    |  │
  32.               7 │  7    A    K    U    _    i    s    }  │
  33.               8 │  8    B    L    V    '    j    t    ~  │
  34.               9 │  9    C    M    W    a    k    u       │
  35.                 └────────────────────────────────────────┘
  36.  
  37.  
  38.    PIANOLA COMMANDS :
  39.  
  40.       Cip     : change colours to ink=i and paper=p.
  41.  
  42.       Pstring : play this string of 3-voice chords.
  43.                 Groups of 4 characters representing; duration, voice1,
  44.                 voice2, and voice3.  Duration in demisemiquavers (DSQs),
  45.                 voices in semitones above bottom E.
  46.  
  47.       Qstring : play this string of 4-voice chords.
  48.                 Groups of 5 characters, similar to Q above
  49.  
  50.       Trctext : Print text in row=r, column=c using current attributes,
  51.                    (If column character is blank, centre text.)
  52.                    (Row E is bottom of piano roll.)
  53.  
  54.       Xip     : Clear the screen using ink=i and paper=p attibutes.
  55.  
  56.       #decimal: transpose decimal semitones above lowest possible
  57.                    (default is 24)
  58.  
  59.       %decimal: tempo decimal crotchets per minute
  60.  
  61.       **      : end of file marker, essential for return to DOS.
  62.  
  63.    Examine the tune file below to see how commands are used.
  64.  
  65.  
  66.    LIVE CONTROLS :
  67.  
  68.    The PIANOLA takes instructions about tempo and pitch from the tune file.
  69.    But during play, can be urged Faster or Slower from the keyboard, and also
  70.    transposed Up or Down by semitones (the actual pitch, not the display).
  71.    Pressing "R" during play will reset the tempo to the file specification.
  72.  
  73.    Escape will also stop play at the end of the current chord.
  74.  
  75.    PIANOLA INSTRUCTION FILES can be written with any plain-text word
  76.    processor.  Sidekick is ideal. PIANOLA needs a CR or a CR+LF at the end
  77.    of each line (strictly, immediately before the Command Symbol on the
  78.    following line).
  79.  
  80. C?6          <- Color bright white on yellow
  81. T6 Playing DEMO file
  82.              <- print text at line 6
  83. #24          <- transpose 2 octaves above lowest (this is actually default)
  84.  
  85. %80          <- tempo 80 crotchets per minute
  86.  
  87. C07          <- color black ink on white paper
  88.  
  89. TE CLOCKWORK SOFTWARE
  90.              <- Print text at line 21, centered.
  91.  
  92. P4000        <-Crotchet pause, advanced paper 1 line.
  93. TE of Bidbury House, Bidbury Lane,
  94. P4000
  95. TE HAVANT, PO9 3JG
  96. P40004000    <-  These chords of rest are really to roll the paper out.
  97. TE --- Presents ---
  98. P400040004000        <- roll more paper
  99.  
  100.   Fanfare
  101. P4EEE10002EEE2EEE2EEE     <- 3-voice chords
  102. P4IEE10002IEE2IEE2IEE
  103. P4LIE10002LIE2LIE2LIE
  104. Q8QLIE                    <- this was a 4 voice chord
  105. P40004000
  106. C47                       <- change color to red ink on white paper
  107. TE the CLOCKWORK PIANOLA
  108. P40004000A000
  109. %120                      <- change tempo
  110.  
  111.     N.B.  This is the crib I use for transposing from score to text :
  112.  
  113.       scale of 3 FLATS:-
  114.  
  115.         123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_'abcdef  ASCII-48
  116.         :. |. | . |. | .| . : .| . |. | . |. | .: . : .: . :.   Scale notes
  117.            |  |   |  |  |      |   |  |   |  |                  Staves
  118.          F G A BC D EF G A BC D EF G A BC D EF G A BC D EF G A  Notes
  119.  
  120.  
  121.    Tune : "I DO LIKE TO BE BESIDE THE SEASIDE"
  122. P8OMG2PMG
  123. P4QE92QLH4OC72LLH       <- each line is a bar
  124. P4JC@2H4@4GC?2HC?
  125. P4OC>2OMG2OG72OH72OI;
  126. P2OJ;2OL;2>JA2OG72OE72OCA B
  127. P6QE94OC72LLH
  128. P4JC@2H4@4GC?2HC?
  129. Q6QEA52QI4E2QEL22QEO@        <- try some 4-voice chords
  130. Q2QE2M2QE2L200J>4QE<M2RF<M  C
  131. P6SG;4QMG2MG0
  132. P4LGC2JDA4IF@2JDA
  133. Q4Q<102QLHE4O:C02OJFC
  134. Q4M9A02MIEC4L@702IEC0
  135. Q4L@602LHEB4J>202JHEB
  136. Q4L@602LHEB2J>202H=102J>20
  137. Q4L@602LGCA4J>202JGCA
  138. P4G;02GCA4OC72OJG    D
  139. P4QE92QLH4OC72LLH
  140. P4JC@2H4@4GC?2HC?
  141. P4OC>2OMG2OG72OH72OI;
  142. P2OJ;2OL;2>JA20G720E72;CA
  143. P4QE92QLH4OC72LLH
  144. P4JC@2H4@4GC?2HC?
  145. Q6QEA52QI4E2QEL22QEO@
  146. Q2QE2M2QE2L200J>4PDJM2QEJM  E
  147. Q4SKG02RJG;4SKG62RJG;
  148. Q4SKG02SKG;4QSK62NJG;
  149. Q4QLG42OLG@4QLF22OLF>
  150. Q4QLE02OLF=4MIE02LIC9
  151. Q6JHB26QNHE
  152. Q400072LGCA4JGCA2LGCA
  153. Q4HC@<2HOC02HQE02HOC02HL@0
  154. Q4H<<<200004TOLH
  155. P200020002000
  156.  
  157.  
  158. C07                       <- Color black on white
  159. P200020002000             <- Roll some more paper
  160.  
  161. **                         <- End of file marker
  162.  
  163.  
  164.       (c) John Worley  March 1988
  165.