;This is a special version of the menu program!
;It is executed from/by the Poll.script

;define yes and no colours!
SET no 
SET yes 
SKIP INITIALIZE

LAB M1
ECHO NOLINE 
SET label M2
SKIP Menu1

LAB M2
SET label M3
SET question "Enter your choice (0 to Quit!)"
SKIP GetAnswer

LAB M3
SET label M4
IF VAL $answer EQ 0
  SKIP TheEnd
ELSE
  SET question "Enter your choice (0 to go back)"
  IF VAL $answer EQ 1
    ECHO "[1|Graphics]"
    SKIP Menu2
  ELSE
    IF VAL $answer EQ 2
      ECHO "[2| Coding ]"
      SKIP Menu3
    ELSE
      IF VAL $answer EQ 3
        ECHO "[3|Writing ]"
        SKIP Menu4
      ELSE
        ECHO "[4| Music  ]"
        SKIP Menu5
      ENDIF
    ENDIF
  ENDIF
ENDIF

LAB M4
ECHO NOLINE 
SET >NIL: Return ?
SET label M1
SKIP DELmenu1

ENDCLI


LAB Menu1
ECHO "[1|Graphics]"
ECHO "[2| Coding ]"
ECHO "[3|Writing ]"
ECHO "[4| Music  ]"
SKIP BACK $label

LAB Menu2
  ECHO "[1|Raytracing]"
  ECHO "[2| Painting ]"

  SET label2 $label
  SET label Menu2_
  SKIP GetAnswer

  LAB Menu2_
  IF VAL $answer EQ 0
    SET answer ""
    SET label M1
    SKIP DELmenu1
  ELSE
  IF VAL $answer EQ 1
    ECHO "[1|Raytracing]"
    SKIP Menu6
  ELSE
    ECHO "[2| Painting ]"
    SKIP Menu7
  ENDIF
SKIP BACK $label



LAB Menu3
ECHO "$c1[1|Assembler ]  $c4[4| Serious ]"
ECHO "$c2[2|  C(++)   ]  $c5[5|  Games  ]"
ECHO "$c3[3|  Basic   ]  $c6[6|  Demos  ]"

SET label Menu3_
SKIP GetAnswer

LAB Menu3_
IF VAL $answer EQ 0
  SET label Menu3__
  SKIP DELmenu2
  LAB Menu3__
  SET answer 2
  SET label M1
  SKIP DELmenu1
ELSE
  ECHO 
  IF VAL $answer EQ 1
    IF $c1 EQ $yes
      SET c1 $no
    ELSE
      SET c1 $yes
    ENDIF
    ECHO "$c1[1|Assembler ]"
  ELSE
    IF VAL $answer EQ 2
      IF $c2 EQ $yes
        SET c2 $no
      ELSE
        SET c2 $yes
      ENDIF
      ECHO "$c2[2|  C(++)   ]"
    ELSE
      IF VAL $answer EQ 3
        IF $c3 EQ $yes
          SET c3 $no
        ELSE
          SET c3 $yes
        ENDIF
        ECHO "$c3[3|  Basic   ]"
      ELSE
        IF VAL $answer EQ 4
          IF $c4 EQ $yes
            SET c4 $no
          ELSE
            SET c4 $yes
          ENDIF
          ECHO "$c4[4| Serious ]"
        ELSE
          IF VAL $answer EQ 5
            IF $c5 EQ $yes
              SET c5 $no
            ELSE
              SET c5 $yes
            ENDIF
            ECHO "$c5[5|  Games  ]"
          ELSE
            IF VAL $answer EQ 6
              IF $c6 EQ $yes
                SET c6 $no
              ELSE
                SET c6 $yes
              ENDIF
              ECHO "$c6[6|  Demos  ]"
            ENDIF
          ENDIF
        ENDIF
      ENDIF
    ENDIF
  ENDIF
ENDIF
SKIP GetAnswer


LAB Menu4
ECHO "$d1[1| Stories  ]"
ECHO "$d2[2| Articles ]"
ECHO "$d3[3| Reviews  ]"
ECHO "$d4[4| Reports  ]"
ECHO "$d5[5| Guides   ]"

SET label Menu4_
SKIP GetAnswer

LAB Menu4_
IF VAL $answer EQ 0
  SET answer 3
  SET label M1
  SKIP DELmenu1
ELSE
  ECHO 
  IF VAL $answer EQ 1
    IF $d1 EQ $yes
      SET d1 $no
    ELSE
      SET d1 $yes
    ENDIF
    ECHO "$d1[1| Stories  ]"
  ELSE
    IF VAL $answer EQ 2
      IF $d2 EQ $yes
        SET d2 $no
      ELSE
        SET d2 $yes
      ENDIF
      ECHO "$d2[2| Articles ]"
    ELSE
      IF VAL $answer EQ 3
        IF $d3 EQ $yes
          SET d3 $no
        ELSE
          SET d3 $yes
        ENDIF
        ECHO "$d3[3| Reviews  ]"
      ELSE
        IF VAL $answer EQ 4
          IF $d4 EQ $yes
            SET d4 $no
          ELSE
            SET d4 $yes
          ENDIF
          ECHO "$d4[4| Reports  ]"
        ELSE
          IF VAL $answer EQ 5
            IF $d5 EQ $yes
              SET d5 $no
            ELSE
              SET d5 $yes
            ENDIF
            ECHO "$d5[5| Guides   ]"
          ENDIF
        ENDIF
      ENDIF
    ENDIF
  ENDIF
ENDIF
SKIP GetAnswer


LAB Menu5
ECHO "$e1[1| Tracker  ]"
ECHO "$e2[2|  MIDI    ]"
ECHO "$e3[3| Sampling ]"
ECHO "$e4[4|Listening ]"

SET label Menu5_
SKIP GetAnswer

LAB Menu5_
IF VAL $answer EQ 0
  SET answer 4
  SET label M1
  SKIP DELmenu1
ELSE
  ECHO 
  IF VAL $answer EQ 1
    IF $e1 EQ $yes
      SET e1 $no
    ELSE
      SET e1 $yes
    ENDIF
    ECHO "$e1[1| Tracker  ]"
  ELSE
    IF VAL $answer EQ 2
      IF $e2 EQ $yes
        SET e2 $no
      ELSE
        SET e2 $yes
      ENDIF
      ECHO "$e2[2|  MIDI    ]"
    ELSE
      IF VAL $answer EQ 3
        IF $e3 EQ $yes
          SET e3 $no
        ELSE
          SET e3 $yes
        ENDIF
        ECHO "$e3[3| Sampling ]"
      ELSE
        IF VAL $answer EQ 4
          IF $e4 EQ $yes
            SET e4 $no
          ELSE
            SET e4 $yes
          ENDIF
          ECHO "$e4[4|Listening ]"
        ENDIF
      ENDIF
    ENDIF
  ENDIF
ENDIF
SKIP GetAnswer


LAB Menu6
ECHO "$a1[1|Lightwave]"
ECHO "$a2[2| Real 3D ]"
ECHO "$a3[3| Imagine ]"
ECHO "$a4[4|Animation]"

SET label Menu6_
SKIP GetAnswer

LAB Menu6_
IF VAL $answer EQ 0
  SET answer 1
  SET label M3
  SKIP DELmenu2
ELSE
  ECHO 
  IF VAL $answer EQ 1
    IF $a1 EQ $yes
      SET a1 $no
    ELSE
      SET a1 $yes
    ENDIF
    ECHO "$a1[1|Lightwave]"
  ELSE
    IF VAL $answer EQ 2
      IF $a2 EQ $yes
        SET a2 $no
      ELSE
        SET a2 $yes
      ENDIF
      ECHO "$a2[2| Real 3D ]"
    ELSE
      IF VAL $answer EQ 3
        IF $a3 EQ $yes
          SET a3 $no
        ELSE
          SET a3 $yes
        ENDIF
        ECHO "$a3[3| Imagine ]"
      ELSE
        IF VAL $answer EQ 4
          IF $a4 EQ $yes
            SET a4 $no
          ELSE
            SET a4 $yes
          ENDIF
          ECHO "$a4[4|Animation]"
        ENDIF
      ENDIF
    ENDIF
  ENDIF
ENDIF
SKIP GetAnswer


LAB Menu7
ECHO "$b1[1|Animation]"
ECHO "$b2[2|Realistic]"
ECHO "$b3[3|  Manga  ]"
ECHO "$b4[4| Comics  ]"

SET label Menu7_
SKIP GetAnswer

LAB Menu7_
IF VAL $answer EQ 0
  SET answer 1
  SET label M3
  SKIP DELmenu2
ELSE
  ECHO 
  IF VAL $answer EQ 1
    IF $b1 EQ $yes
      SET b1 $no
    ELSE
      SET b1 $yes
    ENDIF
    ECHO "$b1[1|Animation]"
  ELSE
    IF VAL $answer EQ 2
      IF $b2 EQ $yes
        SET b2 $no
      ELSE
        SET b2 $yes
      ENDIF
      ECHO "$b2[2|Realistic]"
    ELSE
      IF VAL $answer EQ 3
        IF $b3 EQ $yes
          SET b3 $no
        ELSE
          SET b3 $yes
        ENDIF
        ECHO "$b3[3|  Manga  ]"
      ELSE
        IF VAL $answer EQ 4
          IF $b4 EQ $yes
            SET b4 $no
          ELSE
            SET b4 $yes
          ENDIF
          ECHO "$b4[4| Comics  ]"
        ENDIF
      ENDIF
    ENDIF
  ENDIF
ENDIF
SKIP GetAnswer



LAB DELmenu1
ECHO "              *n               "
ECHO "               *n               *n               "
ECHO "               *n               *n               "
SKIP BACK $label

LAB DELmenu2
ECHO "              "
ECHO "               *n               *n               "
ECHO "               *n               *n               "
SKIP BACK $label



LAB GetAnswer
  ECHO NOLINE "                                               "
  ECHO NOLINE "$question: $answer"
  SET >NIL: answer ?
  ECHO "$question"
  IF VAL $answer EQ 0
    SET answer "0"
  ELSE
    IF VAL $answer GT 6
      SKIP BACK GetAnswer
    ENDIF
  ENDIF
SKIP BACK $label

LAB INITIALIZE
;initialize evironmental variables (flags 'yes' or 'no')
  ECHO "*ec> Please tell what you use your Amiga for*n  (using the above menu-system)*n*n- Select an option by typing the corresponding number.*n- Select a suboption using the same method.*n- Enter a 0 to go back to the previous menu.*n- Enter 0 in main menu to quit."
  SET a1 $no
  SET a2 $no
  SET a3 $no
  SET a4 $no
  SET b1 $no
  SET b2 $no
  SET b3 $no
  SET b4 $no
  SET c1 $no
  SET c2 $no
  SET c3 $no
  SET c4 $no
  SET c5 $no
  SET c6 $no
  SET d1 $no
  SET d2 $no
  SET d3 $no
  SET d4 $no
  SET d5 $no
  SET e1 $no
  SET e2 $no
  SET e3 $no
  SET e4 $no
  SET answer 0
SKIP BACK M1

;a# = Graphics/Raytracing
;b# = Graphics/Painting
;c# = Coding


LAB TheEnd
ECHO NOLINE " >>> Please Wait, Compiling Results...."
SET result1a "Raytracing:"
IF $a1 EQ $yes
  SET result1a "$result1a - Lightwave"
ENDIF
IF $a2 EQ $yes
  SET result1a "$result1a - Real 3D"
ENDIF
IF $a3 EQ $yes
  SET result1a "$result1a - Imagine"
ENDIF
IF $a4 EQ $yes
  SET result1a "$result1a - 3D Animation"
ENDIF
IF "$result1a" EQ "Raytracing:"
  SET result1a "No Raytracing."
ENDIF
ECHO NOLINE "...."

SET result1b "Painting:"
IF $b1 EQ $yes
  SET result1b "$result1b - Painted Animation"
ENDIF
IF $b2 EQ $yes
  SET result1b "$result1b - Realistic"
ENDIF
IF $b3 EQ $yes
  SET result1b "$result1b - Manga"
ENDIF
IF $b4 EQ $yes
  SET result1b "$result1b - Comics"
ENDIF
IF "$result1b" EQ "Painting:"
  SET result1b "No Painting."
ENDIF
ECHO NOLINE "...."

SET result2a "Coding Language:"
IF $c1 EQ $yes
  SET result2a "$result2a - Assembler"
ENDIF
IF $c2 EQ $yes
  SET result2a "$result2a - C"
ENDIF
IF $c3 EQ $yes
  SET result2a "$result2a - Basic"
ENDIF
IF "$result2a" EQ "Coding Language:"
  SET result2a "No Coding Language."
ENDIF
ECHO NOLINE "...."

SET result2b "Coding type:"
IF $c4 EQ $yes
  SET result2b "$result2b - Serious"
ENDIF
IF $c5 EQ $yes
  SET result2b "$result2b - Games"
ENDIF
IF $c6 EQ $yes
  SET result2b "$result2b - Demos"
ENDIF
IF "$result2b" EQ "Coding type:"
  SET result2b "No Coding Type."
ENDIF
ECHO NOLINE "...."

SET result3 "Writing:"
IF $d1 EQ $yes
  SET result3 "$result3 - Stories"
ENDIF
IF $d2 EQ $yes
  SET result3 "$result3 - Articles"
ENDIF
IF $d3 EQ $yes
  SET result3 "$result3 - Reviews"
ENDIF
IF $d4 EQ $yes
  SET result3 "$result3 - Reports"
ENDIF
IF $d5 EQ $yes
  SET result3 "$result3 - AmigaGuides"
ENDIF
IF "$result3" EQ "Writing:"
  SET result3 "No Writing."
ENDIF
ECHO NOLINE "...."

SET result4 "Music:"
IF $e1 EQ $yes
  SET result4 "$result4 - Tracker"
ENDIF
IF $e2 EQ $yes
  SET result4 "$result4 - MIDI"
ENDIF
IF $e3 EQ $yes
  SET result4 "$result4 - Sampling"
ENDIF
IF $e4 EQ $yes
  SET result4 "$result4 - Listening"
ENDIF
IF "$result4" EQ "Music:"
  SET result4 "No Music."
ENDIF
ECHO NOLINE "...."

ECHO >RAM:Text_Menu "This is what you do with/to your equipment?*n*n$result1a*n$result1b*n*n$result2a*n$result2b*n*n$result3*n*n$result4*n"
ECHO "*ecPlease check the following list carefully:*n"
TYPE RAM:Text_Menu
ECHO 

LAB TheEnd_
ECHO NOLINE "*nIs the above correct? (Y/N) "
SET >NIL: answer ?
IF $answer EQ "Y"
  SET answer y
ELSE
  IF $answer EQ N
    SET answer n
  ELSE
    SKIP BACK TheEnd_
  ENDIF
ENDIF
IF $answer EQ n
  ECHO "*ec"
  SET answer ""
  SKIP BACK M1
ENDIF