home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 2 / goldfish_vol2_cd1.bin / files / util / rexx / infrarexx / examples / scalaexample.scala < prev    next >
Text File  |  1994-04-23  |  3KB  |  101 lines
  1. V3.0
  2.  
  3. MOUSE on
  4. INTERACTIVE on
  5.  
  6. EVENT "InfraRexx © 1994 by Leon Woestenberg"
  7. BLANK 640 512 2 lace hires 0
  8. TABS 100 200 300 400 500
  9. MARGINS on 32 607
  10. PALETTE 038 fff 000 fb0
  11. FONT times.font 24
  12. COLOR 1 2 2 2 2 2 1 2 0 1 1 1 2 2 1
  13. ATTRIBUTES shadow remap center
  14. STYLE 0 3 4 3 4 2 1 20 2 1 13 0 3 0 1 0 4 4 7
  15. TEXTWIPE dump speed 6
  16. TEXT 119 30 "InfraRexx © 1994 by Leon Woestenberg"
  17. TEXT 114 57 "Infrared Remote Control ARexx Interface"
  18. TEXT 319 84 ""
  19. TEXT 73 111 "This simple Scala script shows the use of transmit"
  20. TEXT 87 138 "commands that control a Compact Disc Player."
  21. TEXT 319 165 ""
  22. TEXT 38 192 "Be sure you are running the Daemon with a valid codeset"
  23. TEXT 51 219 "and that your CD player is loaded with a Compact Disc"
  24. TEXT 47 246 "and not playing. This script will only start and then stop"
  25. TEXT 31 273 "the CD player. More useful things can be done in the same"
  26. TEXT 34 300 "way, but depend mostly on the features of your CD player,"
  27. TEXT 82 327 "such as fading, programming, repeating etc. etc."
  28. TEXT 319 354 ""
  29. TEXT 93 381 "Use your own imagination to make your video"
  30. TEXT 67 408 "presentations more spectacular,... using InfraRexx!"
  31. PAUSE -1
  32. END
  33.  
  34. EVENT "InfraRexx © 1994 by Leon Woestenberg.1"
  35. EXECUTE "'ADDRESS INFRAREXX CD_PLAY'" arexx
  36. BLANK 640 512 2 lace hires 0
  37. TABS 100 200 300 400 500
  38. MARGINS on 32 607
  39. PALETTE 038 fff 000 fb0
  40. FONT times.font 24
  41. COLOR 1 2 2 2 2 2 1 2 0 1 1 1 2 2 1
  42. ATTRIBUTES shadow remap center
  43. STYLE 0 3 4 3 4 2 1 20 2 1 13 0 3 0 1 0 4 4 7
  44. TEXTWIPE dump speed 6
  45. TEXT 119 30 "InfraRexx © 1994 by Leon Woestenberg"
  46. TEXT 114 57 "Infrared Remote Control ARexx Interface"
  47. TEXT 320 84 ""
  48. TEXT 73 111 "This simple Scala script shows the use of transmit"
  49. TEXT 87 138 "commands that control a Compact Disc Player."
  50. TEXT 320 165 ""
  51. ATTRIBUTES underline shadow remap center
  52. TEXT 58 192 "The CD player has now been ordered to start playing."
  53. ATTRIBUTES shadow remap center
  54. TEXT 320 219 ""
  55. ATTRIBUTES underline shadow remap center
  56. TEXT 114 246 "Press the right mouse button to proceed..."
  57. ATTRIBUTES shadow remap center
  58. TEXT 320 273 ""
  59. TEXT 320 300 ""
  60. TEXT 320 327 ""
  61. TEXT 320 354 ""
  62. TEXT 93 381 "Use your own imagination to make your video"
  63. TEXT 67 408 "presentations more spectacular,... using InfraRexx!"
  64. PAUSE -1
  65. END
  66.  
  67. EVENT "InfraRexx © 1994 by Leon Woestenberg.2"
  68. EXECUTE "'ADDRESS INFRAREXX CD_STOP'" arexx
  69. BLANK 640 512 2 lace hires 0
  70. TABS 100 200 300 400 500
  71. MARGINS on 32 607
  72. PALETTE 038 fff 000 fb0
  73. FONT times.font 24
  74. COLOR 1 2 2 2 2 2 1 2 0 1 1 1 2 2 1
  75. ATTRIBUTES shadow remap center
  76. STYLE 0 3 4 3 4 2 1 20 2 1 13 0 3 0 1 0 4 4 7
  77. TEXTWIPE dump speed 6
  78. TEXT 119 30 "InfraRexx © 1994 by Leon Woestenberg"
  79. TEXT 114 57 "Infrared Remote Control ARexx Interface"
  80. TEXT 320 84 ""
  81. TEXT 73 111 "This simple Scala script shows the use of transmit"
  82. TEXT 87 138 "commands that control a Compact Disc Player."
  83. TEXT 320 165 ""
  84. ATTRIBUTES underline shadow remap center
  85. TEXT 98 192 "The CD player has now been ordered to stop."
  86. ATTRIBUTES shadow remap center
  87. TEXT 320 219 ""
  88. ATTRIBUTES underline shadow remap center
  89. TEXT 143 246 "Press the right mouse button to end"
  90. ATTRIBUTES shadow remap center
  91. TEXT 320 273 ""
  92. ATTRIBUTES underline shadow remap center
  93. TEXT 114 300 "I hope you enjoyed this cool presentation!"
  94. ATTRIBUTES shadow remap center
  95. TEXT 320 327 ""
  96. TEXT 320 354 ""
  97. TEXT 93 381 "Use your own imagination to make your video"
  98. TEXT 67 408 "presentations more spectacular,... using InfraRexx!"
  99. PAUSE -1
  100. END
  101.