XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  COMP  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
                     The compose program of COMPOSE
                    compiled and decompiled with JAZZ

Program                     Comment
-------------               ---------------------------            
::
 ID AC                      Check argument and decompose
 $ "Title: "                if proper argument
 $ "Tempo: "
 $ "Notes: "
 THREE{}N
 SWAP
 IT
 ::
  4UNROLL
  THREE{}N
  ROMPTR AB 6C              xADD
 ;
 NEWLINE$
 ROMPTR AB 6C               xADD
 ROMPTR AB 68               SigmaList
 DUPLEN$
 1_#1-SUB$                  Take of the last linebreack
 NULL$SWAP
 ONE
 EIGHT
 TWO{}N
 ZEROZEROZERO
 {                          Forming the application menu of COMP
  $ "t-"
  $ "t+"
  ID P4
  ID P8
  ID P16
  ID f0
  ID g0
  ID a1
  ID b1
  ID h1
  ID c1
  ID d1
  ID e1
  ID f1
  ID g1
  ID a2
  ID b2
  ID h2
  ID c2
  ID d2
  ID e2
  ID f2
  ID g2
  ID a3
  {
   $ "HINTS"
   ::                            Must be changed, if a corresponding
    TakeOver                     setting is not on the 49. I agree
    '                            with shortening the Hints to
    ::                           a single page without scrolling bar,
     SIXTY                       using e.g. WaitForKey instead
     #=casedrop
     TrueTrue
     DROPFALSE
    ;
    $ "HINTS"
    ONE
    {
     $ "Set Tempo first = 2"
     $ "Each tact extra line"
     $ "KeyDot (prolongator)"
     $ "# (major) b (minor)"
     $ "t+ t- (trills) right"
     $ "after note"
     $ "TuneLength 2=\\BD,4=\\BC,\\1F"
    }
    ZERO
    ROMPTR B3 0             If this Rompointer from 48 is not found
    DROP                    on the 49 then Hints must be changed.
   ;
  }
 }                          Menu is present now
 ONEFALSE
 ZERO                       Arguments for InputLine complete.
 InputLine                  Keeps waiting for input. Outputs a string.
 NOT?SEMI                   Behaves nice whenever InputLine is aborted!
 SEP$NL                     The remainder of this program
 EIGHT                      isolates the music piece list
 LAST$                      from the input data
 SWAP
 SEP$NL
 EIGHT
 LAST$
 SWAP
 EIGHT
 LAST$
 SWAP
 DOSTR>                     Make a real from the string
 SWAP
 THREE{}N
;
