home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / system / mrchoice / mrcdemo.bat next >
DOS Batch File  |  1995-02-27  |  2KB  |  49 lines
  1.    FailAt 100
  2.  
  3.    MultiRequestChoice "A simple Requester" "Please click one of the buttons!" "  Ok  |Cancel"
  4.    Set Result $RC
  5.    If $Result EQ 1
  6.       MultiRequestChoice "Information" "You clicked 'Ok'." Confirm
  7.    EndIf
  8.    If $Result EQ 0
  9.       MultiRequestChoice "Information" "You clicked 'Cancel'." Confirm
  10.    EndIf
  11.  
  12. Lab Tedious
  13.    MultiRequestChoice "No longer a simple Requester" "What do you think about three buttons?" "Superb!|So so|Tedious"
  14.    Set Result $RC
  15.    If $Result EQ 1
  16.       MultiRequestChoice "Information" "Yes, superb." "Of course"
  17.    EndIf
  18.    If $Result EQ 2
  19.       MultiRequestChoice "Information" "  So so???  " "Hmmm..."
  20.    EndIf
  21.    If $Result EQ 0
  22.       MultiRequestChoice "Information" "What??? Try to program it yourself!!!" "Once again!"
  23.    EndIf
  24.     If $Result EQ 0
  25. Skip Back Tedious
  26.    EndIf
  27.  
  28.    MultiRequestChoice "Multi-Line-Requester I" "Look, there are some\n»\\n«\ncharacters in the\nbodytext." "Looks nice"
  29.    MultiRequestChoice "Multi-Line-Requester II" "But here is the bodytext centred.\nThis is possible via the\n\n»CENTRETEXT« option.\n\nNow it's nice!" "Amazing" CENTRETEXT
  30.  
  31.    MultiRequestChoice "Information" "Now we will practice a bit on-screen jumping!" "Go on!"
  32.    MultiRequestChoice "Information" "This is the SCREENTOPLEFT position!" "Ordinary" SCREENTOPLEFT
  33.    MultiRequestChoice "Information" "This is the SCREENCENTRE position!" "Clever" SCREENCENTRE
  34.    MultiRequestChoice "Information" "This is the MOUSECENTRE position!" "Well-known" MOUSECENTRE
  35.  
  36.    MultiRequestChoice "Information" "It's a bit difficult to offer you the PUBSCREEN option\nbecause I don't know if you have a PublicScreen open.\nSo I suggest you: Try it yourself.\nWe want to continue with the keyboard response option." "I agree with you." CENTRETEXT
  37.  
  38.    MultiRequestChoice "Information" "See the two response gadgets and\ntry to answer with the keyboard." "  _Ok  |_Cancel" CENTRETEXT
  39.    Set Result $RC
  40.    If $Result EQ 1
  41.       MultiRequestChoice "Information" "You clicked 'Ok'." Con_firm
  42.    EndIf
  43.    If $Result EQ 0
  44.       MultiRequestChoice "Information" "You clicked 'Cancel'." Con_firm
  45.    EndIf
  46.    MultiRequestChoice "Information" "I think that's it for today." "Good Bye"
  47.  
  48.    UnSet Result
  49.