home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / compressed / graphic / a_cutdemo.lha / A-Cut / ARexx / A-Cut.rexx
OS/2 REXX Batch file  |  1993-01-28  |  2KB  |  83 lines
  1. /**************************************************************
  2.  **                   A-CUT REXX DEMO                        **
  3.  **************************************************************/
  4.  
  5. options results
  6. address 'ACUT_rexx'
  7.  
  8. zeit = time()
  9.  
  10. IF LEFT( zeit , 2 ) < 12 THEN hail = "Guten Morgen"
  11. IF LEFT( zeit , 2 ) = 12 THEN hail = "  Mahlzeit  "
  12. IF LEFT( zeit , 2 ) > 12 THEN hail = " Guten Tag  "
  13. IF LEFT( zeit , 2 ) > 18 THEN hail = " Guten Abend"
  14.  
  15. "ACUT2FRONT"
  16. "Clear"
  17. "ACUTEcho *****************************************************************************"
  18. "ACUTEcho **                                                                         **"
  19. "ACUTEcho **                         "hail"                                    **"
  20. "ACUTEcho **                                                                         **"
  21. "ACUTEcho *****************************************************************************"
  22. "ACUTEcho **    Alles klar, dann können wir mit der Demonstration loslegen...        **"
  23. "ACUTEcho *****************************************************************************"
  24.  
  25. "ACUTRequest 'Wirklich alles klar'"
  26. IF RC = 0 THEN DO
  27.     ACUTEcho "Naja, dann eben ein andermal..."
  28.     EXIT 10 
  29. END
  30.  
  31. ACUTEcho "OK, dann rein in's Vergnügen..."
  32.  
  33. "GetStatus"
  34. IF RC = 0 THEN CALL no_hardware
  35. IF RC = 1 THEN CALL only_hardware
  36. IF RC = 2 THEN CALL sony_connected
  37. IF RC = 3 THEN CALL panasonic_connected
  38.  
  39. "Clear"
  40. "ACUTEcho *****************************************************************************"
  41. "ACUTEcho **                                                                         **"
  42. "ACUTEcho **                            E N D E                                      **"
  43. "ACUTEcho **                                                                         **"
  44. "ACUTEcho *****************************************************************************"
  45.  
  46. EXIT 0
  47.  
  48. /*
  49.  *  UNTERPROGRAMME
  50.  */
  51.  
  52. no_hardware:
  53.  
  54. ACUTECHO "Es ist leider keine Hardware angeschlosssen"
  55. RETURN
  56.  
  57.  
  58. only_hardware:
  59.  
  60. ACUTECHO "Ah, Sie haben die Hardware schon angeschlossen."
  61. RETURN
  62.  
  63.  
  64. sony_connected:
  65.  
  66. ACUTECHO "Sie haben eine Sony-Kompatible Kamera angeschlossen"
  67. CALL camera_demo
  68. RETURN
  69.  
  70. panasonic_connected:
  71.  
  72. ACUTECHO "Sie haben eine Blaupunkt/Panasonic-kompatible Kamera angeschlossen"
  73. call camera_demo
  74. RETURN
  75.  
  76.  
  77.  
  78.  
  79. /*
  80.  *  camerademo
  81.  */
  82. ACUTRequest "Tut mir leid, leider hatte ich noch keine Zeit diesen Teil zu programmieren"
  83. RETURN