;Created using The Problem's ASCII Editor!

SETFONT topaz.font 8

SET scrollUP 

LAB start
ECHO "                 "
ECHO "  Personal Data:  "
ECHO "                    About you:                                              "
ECHO "    Name       :  "
ECHO "    Age        :  "
ECHO "    Sex (M/F)  :  "
ECHO "    Address    :  "
ECHO "    Phonenumber:  "
ECHO "                    About your mail:                                        "
ECHO "    E-Mail  NLA:  "
ECHO "           FIDO:  "
ECHO "          PMNet:  "
ECHO "            AMY:  "
ECHO "         USENET:  "
ECHO "         Other :  "
ECHO "                                                                            "
ECHO "                  "

;the cancel flag -- N to repeat unanswered questions
SET cancel N
SET label ask1
SET Pos 
SKIP SUB_ASK

LAB ask1
  SET nm "Name        : $answer"*n
  SET label ask2
  SET Pos 
  SKIP SUB_NUM

LAB ask2
  SET ag "Age         : $answer"*n
  SET label ask3
  SET Pos 
  SET ReplaceYES Male
  SET ReplaceNO Female
  SET yes1 m
  SET YES M
  SET no1 f
  SET NO F
  SKIP SUB_ASK_YesNo

LAB ask3
  SET sx "Sex         : $answer"*n
  SET label ask4
  SET Pos 
  SKIP SUB_ASK

LAB ask4
  SET as "Adress      : $answer"*n
  SET label ask5
  SET Pos 
  SKIP SUB_ASK

LAB ask5
  SET pn "Phone Number: $answer"*n*n
  SET label ask6
  SET Pos 
  SET cancel Y
  SKIP SUB_ASK

LAB ask6
  SET na "NLA   : $answer"*n
  SET label ask7
  SET Pos 
  SKIP SUB_ASK

LAB ask7
  SET fo "FIDO  : $answer"*n
  SET label ask8
  SET Pos 
  SKIP SUB_ASK

LAB ask8
  SET pt "PmNet : $answer"*n
  SET label ask9
  SET Pos 
  SKIP SUB_ASK

LAB ask9
  SET ay "AMY   : $answer"*n
  SET label ask10
  SET Pos 
  SKIP SUB_ASK

LAB ask10
  SET un "USENET: $answer"*n
  SET label ask11
  SET Pos 
  SKIP SUB_ASK


LAB ask11
SET ot "Other : $answer"*n*n
ECHO "$scrollUP"
EXECUTE ASCII-Edit/Examples/Scripts&ASCII/Menu.script

SET label ask12

LAB ask12
ECHO "*ec                                                       "
ECHO "                   DO                     YOU          "
ECHO "                   YOU                    ANY          "
ECHO "                   DO                     GOOD         "
ECHO "                   WITH                   AT           "
ECHO "                   YOUR                   THAT         "
ECHO "                   COMPUTER?              (be honest!) "
ECHO "                                                       "
ECHO " Do you think you are good at those things? (Y/N, be honest!):                        "

  SET label ask13
  SET Pos 
  SET ReplaceYES "Yes I am!"
  SET ReplaceNO "Not Really..."
  SET yes1 y
  SET YES Y
  SET no1 n
  SET NO N
  SKIP SUB_ASK_YesNo


LAB ask13
SET gd "Am I good at it?      : $answer"*n*n

ECHO "$scrollUP                                                                          "
ECHO "   W H A T   A B O U T                                                      "
ECHO "                                                                            "
ECHO "                                                                            "
ECHO "                                                                            "
ECHO "                                                                            "
ECHO "                                                                            "
ECHO "                                                                            "
ECHO "                                                                            "
ECHO "                                                                            *n"
ECHO " Where and how did you first learn about the existance of The Problem?"
ECHO " How many modules do you have?"
ECHO " How many of those modules are composed by The Problem?"
ECHO " Which one do you like best?"
ECHO " Which one do you think is crap?"

SET Pos 
SET label ask14
SKIP SUB_ASK


LAB ask14
  SET wh "When I discovered The Problem...: $answer"*n*n
  SET Pos 
  SET label ask15
  SKIP SUB_NUM

LAB ask15
  SET md "I have $answer modules"
  SET Pos 
  SET label ask16
  SKIP SUB_NUM

LAB ask16
  SET md "$md and $answer of those where made by The Problem!"*n
  SET Pos 
  SET label ask17
  SKIP SUB_ASK

LAB ask17
  SET bm "My favourite module is $answer (I Love It!)"*n
  SET Pos 
  SET cancel Y
  SET label ask18
  SKIP SUB_ASK

LAB ask18
SET cm "And I just hate $answer... (It Sucks!)"*n*n
ECHO NOLINE "*e[12;1H*e[J"
ECHO " Do you like the Australia EP sofar? (Y/N)"
ECHO " Do you consider yourself a module-freak? (Y/N)"
ECHO " Do listen to a module from it's beginning to it's very end? (Y/N)"
ECHO " Do you think Wanda is attractive? (Y/N)"
ECHO " Do you like Bugles? (Y/N)"

  SET ReplaceYES "Yes I do!"
  SET ReplaceNO "No I don't!"
  SET yes1 y
  SET YES Y
  SET no1 n
  SET NO N

SET Pos 
SET label ask19
SKIP SUB_ASK_YesNo

LAB ask19
  SET ep " - like Australia sofar?      : $answer"*n
  SET Pos 
  SET label ask20
  SKIP SUB_ASK_YesNo

LAB ask20
  SET mf " - consider myself a modfreak?: $answer"*n
  SET Pos 
  SET label ask21
  SKIP SUB_ASK_YesNo

LAB ask21
  SET bs " - listen to mods all the way?: $answer"*n
  SET Pos 
  SET label ask22
  SKIP SUB_ASK_YesNo

LAB ask22
  SET lw " - think Wanda is attractive? : $answer"*n
  SET Pos 
  SET label ask23
  SKIP SUB_ASK_YesNo

LAB ask23
  SET lb " - like Bugles (by Smits!)    : $answer"*n
  SET label ask24
  SET Pos 
  ECHO NOLINE "*e[12;1H*e[J"
  ECHO " Do  you  want  to receive updates about what The Problem are doing and what*n will come next? (Only through E-Mail, or BBS-Mail at our BBSes!) (Y/N)"
  ECHO " Do you want TP Stories Dept. to continue the Wanda&CSilla Story? (Y/N)"
  SKIP SUB_ASK_YesNo

LAB ask24
  SET ud " - want to be up to date?     : $answer"*n
  SET label SaveIt
  SET Pos 
  SKIP SUB_ASK_YesNo

LAB SaveIt
  SET wc " - want W&C to continue?      : $answer"*n
  ECHO "$scrollUP"
  ECHO "*ecWell,  that  was  all!   Now  a  file  will  be created, containing all the*ninformation  you  gave us.  If you are not sure that you answered everything*ncorrectly, now is the time to say it...  Please check this out:*n"
  ECHO >ram:text1 "$nm$ag$sx$as$pn$na$fo$pt$ay$un$ot"
  ECHO >ram:text2 "$gd$wh$md$bm$cm"
  ECHO >ram:text3 "Do I...:*n$ep$mf$bs$lw$lb$ud$wc"
  ECHO 
  TYPE ram:text1
  ECHO NOLINE "Press Return for more..."
  SET >NIL: Return ?
  ECHO NOLINE "*e[8;1H*e[J"
  TYPE ram:text2
  ECHO NOLINE "Press Return for more..."
  SET >NIL: Return ?
  ECHO NOLINE "*e[8;1H*e[J"
  TYPE ram:text3
  ECHO NOLINE "Is all this correct? (Y/N): "

  SET ReplaceYES "Yes, I guess it is."
  SET ReplaceNO "No, let me change it!"
  SET yes1 y
  SET YES Y
  SET no1 n
  SET NO N
  SET Pos 
  SET label SaveIt_
  SKIP SUB_ASK_YesNo
  
  LAB SaveIt_
  ECHO "*ec"
  IF "$answer" EQ "$ReplaceNO"
    SET answer ""
    SET label ""
    SKIP BACK start
  ENDIF
  JOIN ram:text1 ram:text_menu ram:text2 ram:text3 TO ram:Poll.Results
  DELETE >NIL: ram:text#?

ECHO "*nThe file has been saved as 'Ram:Poll.Results'! Please make sure that*nThe Problem  Collective gets it! Especially when you are one of those people*nwho  never  reacted  to  our  previous  projects!  We need to know what you*nthink, we breath on it.  Please send it to:"
ECHO "*n  Mail:The Problem*np/a*nThijs Stalenhoef*nBredevoortsestraatweg 66*n7121 BK Aalten*nHolland*n"
ECHO "  Telephone Number:     +31-(0)5437-72450*n"
ECHO "  Electrons:            UUCP:  problem@twilight.xs4all.nl*nFIDO:  2:280/315.2*nAMY:  39:150/108.2*nNLA:  14:102/101.2*nPMNet:  17:200/100.2*n"

ECHO NOLINE "*n> Read this..."
WAIT 4
ECHO NOLINE "and then..."
WAIT 4
ECHO NOLINE "PRESS "
WAIT 1
ECHO NOLINE "RETURN"

SET >NIL: Return ?
ECHO "*ec*nDon't turn off your Amiga before copying the 'Poll.Results' file from your*nRAM: drive to something a bit more solid.  Hell!  Let's do it right away!"
ECHO "*nPlease  enter  the complete path to where you normally store the results of*nopinion  polls  (or  where  you  store  texts).   You don't need to enter a*nfilename. NO! DON'T!"
ECHO "(the file ram:Poll.Results will not be deleted, so you can copy it at later*ntime)*n"

LAB GetPath
ECHO NOLINE ">Path: "
SET >NIL: Path ?
IF NOT Exists "$Path"
  ECHO "Nope! Enter something that EXISTS in the current universe...*n"
  SKIP BACK GetPath
ENDIF

COPY >NIL: "ram:Poll.Results" "$Path"
ECHO NOLINE "$scrollUP*ec > Thank you! We're The Problem, Gotta Love Us!"
WAIT 2
ENDCLI




;The following are sub-routines...

LAB SUB_ASK
  ECHO NOLINE $Pos
  SET answer ""
  SET >NIL: answer ?
  IF "$answer" EQ ""
    IF $cancel EQ N
      SKIP BACK SUB_ASK
    ELSE
      SET answer --
      ECHO "$Pos--"
    ENDIF
  ENDIF
SKIP BACK $label

LAB SUB_NUM
  ECHO NOLINE $Pos
  SET answer ""
  SET >NIL: answer ?
  IF VAL "$answer" EQ 0
    ECHO "$Pos                                      "
    SKIP BACK SUB_NUM
  ELSE
    IF "$answer" EQ ""
      IF $cancel EQ N
        SKIP BACK SUB_NUM
      ELSE
        SET answer --
        ECHO "$Pos--"
      ENDIF
    ENDIF
  ENDIF
SKIP BACK $label


;The following routine aks a question with 2 possible answers.
;One answer is stored in $YES, the other in $NO.
;To add to the confusion, there is a second possible answer for both
;$YES and $NO, called $yes1 and $no1. For example:
;The question is : Do you use comdoms regularly (Y/N)
;If $yes1="y" and $no1="n" and $YES="Y" and $NO="N" then Y and y would
;be a positive answer (replaced on the screen by $ReplaceYES), and N and n
;would be nagetive answers (replaced on screen by $ReplaceNO).

LAB SUB_ASK_YesNo
  ECHO NOLINE $Pos
  SET answer ""
  SET >NIL: answer ?
  IF "$answer" EQ $yes1
    SET answer $YES
  ELSE
    IF "$answer" EQ $no1
      SET answer $NO
    ENDIF
  ENDIF
  IF "$answer" EQ $NO
    SET answer $ReplaceNO
    ECHO $Pos $answer
  ELSE
    IF "$answer" EQ $YES
      SET answer $ReplaceYES
      ECHO $Pos $answer
    ELSE
      ECHO "$Pos                                 "
      SKIP BACK SUB_ASK_YesNo
    ENDIF
  ENDIF
SKIP BACK $label