home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 15 / CD_ASCQ_15_070894.iso / maj / 2179 / examples.exe / PROMOTE2.SHW < prev    next >
Text File  |  1994-06-01  |  5KB  |  177 lines
  1. ;*********************************************************************;
  2. ; Sciptname..:  PROMOTE2.SHW                                          ;
  3. ; Revision...:  1.1, Apr. 1994, by RMP DATA.                          ;
  4. ; Purpose....:  Promotion for VIDEOSYS v. 2.0A, as an example script. ;
  5. ;*********************************************************************;
  6.  
  7. ; A fully text based demo for DataShow
  8.  
  9. ; Other files involved:
  10. ; video1.scr - video11.scr
  11.  
  12. COLOR FOREGROUND 15
  13. COLOR BACKGROUND 1
  14. COLOR ATTRIBUTE 31
  15. SET DELAYFACTOR 5
  16. SET TIMEOUT 8
  17.  
  18. SET CURSOR OFF
  19.  
  20. DEFINE
  21. ///////   ///  ///  ///////     ///////    //////   ///////   //////
  22. //    //  // // //  //    //    //    //  //    //    //     //    //
  23. ////////  // // //  ///////     //    //  ////////    //     ////////
  24. //  //    // // //  //          //    //  //    //    //     //    //
  25. //   //   //    //  //          ///////   //    //    //     //    //
  26. END
  27.  
  28. SCREEN CLEAR
  29.  
  30. GOXY 1 10
  31.  
  32. MOTION RIGHT 74
  33.  
  34. VARIABLE CREATE loop TYPE NUMBER 1
  35.  
  36. MARK 1
  37.  
  38. EFFECT SCROLL UP
  39.  
  40. VARIABLE INCREASE loop 1
  41. IF loop EQ 8 DO JUMPMARK 2
  42. JUMPMARK 1
  43.  
  44. MARK 2
  45.  
  46. VARIABLE RELEASE loop
  47.  
  48. SET CURSOR ON
  49.  
  50. GOXY 10 12 WRITE "Welcome to a presentation of a VIDEO SYSTEM..."
  51. WAIT 1
  52.  
  53. SET CURSOR OFF
  54.  
  55. SPEAK "V-EE-D-I-AW"
  56. WAIT 1
  57. SPEAK "S-Y-S-T-EH-M"
  58. WAIT 2
  59.  
  60. SHOW SCREEN "video1.scr" TXT
  61. WAIT 4
  62.  
  63. SET CURSOR ON
  64.  
  65. SCREEN CLEAR
  66. GOXY 10  4 WRITE "The program is especially developed for administration"
  67. GOXY 10  6 WRITE "in video rental stores.  Here it is possible easily to"
  68. GOXY 10  8 WRITE "get a long range of information about customers video"
  69. GOXY 10 10 WRITE "habits, as well as make it easy to rent out and get back"
  70. GOXY 10 12 WRITE "videos. The VIDEO SYSTEM also makes it possible for you"
  71. GOXY 10 14 WRITE "to export information for further processing elsewhere."
  72. GOXY 10 18
  73. WAIT "Push any key"
  74.  
  75. SET CURSOR OFF
  76.  
  77. EFFECT GLITTER
  78.  
  79. SHOW SCREEN "video2.scr" TXT
  80. WAIT 4
  81.  
  82. SCREEN WIPE SPLIT
  83. GOXY 10  4 WRITE "Here we'll go through a few of the many possibilities"
  84. GOXY 10  6 WRITE "that's available in VIDEO SYSTEM. First let's see what's"
  85. GOXY 10  8 WRITE "available under the video menu. Here a video is beeing"
  86. GOXY 10 10 WRITE "changed."
  87. WAIT 4
  88.  
  89. SHOW SCREEN "video3.scr" TXT
  90. WAIT 4
  91.  
  92. SHOW SCREEN "video4.scr" TXT
  93. WAIT 2
  94.  
  95. GOXY 32 8 WRITE "Live an let die"
  96. WAIT 4
  97.  
  98. SCREEN CLEAR
  99. GOXY 10  8 WRITE "To each video a price code is assigned. The price can then"
  100. GOXY 10 10 WRITE "be changed very fast, and it is possible to take rebates"
  101. GOXY 10 12 WRITE "into account. Here the price setup is shown."
  102. WAIT 4
  103.  
  104. SHOW SCREEN "video5.scr" TXT
  105. WAIT 4
  106.  
  107. EFFECT GLITTER
  108.  
  109. SCREEN CLEAR
  110. GOXY 10  8 WRITE "Messages can be written on price tags. Such messages can"
  111. GOXY 10 10 WRITE "be changed from day to day, hour to hour. The message"
  112. GOXY 10 12 WRITE "writing can be done under the menu 'diverse'."
  113. WAIT 4
  114.  
  115. SHOW SCREEN "video6.scr" TXT
  116. WAIT 4
  117.  
  118. SHOW SCREEN "video7.scr" TXT
  119. WAIT 4
  120.  
  121. SCREEN WIPE RIGHT
  122. GOXY 10  8 WRITE "It's very easy to rent a video to a customer. And all the"
  123. GOXY 10 10 WRITE "information is shown in detail on the screen. - After all"
  124. GOXY 10 12 WRITE "the information  has been entered,  a detailed price slip"
  125. GOXY 10 14 WRITE "will be printed on a connected printer."
  126. WAIT 4
  127.  
  128. SHOW SCREEN "video8.scr" TXT
  129. WAIT 4
  130.  
  131. SHOW SCREEN "video9.scr" TXT
  132. WAIT 4
  133.  
  134. SCREEN CLEAR
  135. GOXY 10  8 WRITE "When videos are rented out, it is possible (if you know"
  136. GOXY 10 10 WRITE "the password) to get information about todays sales."
  137. WAIT 4
  138.  
  139. SHOW SCREEN "video10.scr" TXT
  140. WAIT 4
  141.  
  142. SCREEN WIPE UP
  143. GOXY 10  8 WRITE "At last, we show you an example of the many features that"
  144. GOXY 10 10 WRITE "are availbale through the VIDEO SYSTEM. E.g. it is a possi-"
  145. GOXY 10 12 WRITE "bility to have labels over customers written. You can then"
  146. GOXY 10 14 WRITE "mail out special offers."
  147. WAIT 3
  148.  
  149. SHOW SCREEN "video11.scr" TXT
  150. WAIT 4
  151.  
  152. SCREEN CLEAR
  153. GOXY 10 2
  154. WRITE "With the VIDEO program there's also (of course) an easily"
  155. GOXY 10 4
  156. WRITE "read MANUAL with detailed explanations."
  157. GOXY 10 8
  158. WRITE "Unfortunately the VIDEO SYSTEM is only available in Danish"
  159. GOXY 10 10
  160. WRITE "at the moment. But interested parties can contact RMP DATA"
  161. GOXY 10 12
  162. WRITE "at the address shown in the READ.ME file for more information."
  163. GOXY 10 16
  164. WRITE "Now this presentation starts over again. But you can stop"
  165. GOXY 10 18
  166. WRITE "it at any time by pressing the escape key. You can then"
  167. GOXY 10 20
  168. WRITE "order a demonstration diskette of the VIDEO SYSTEM. With"
  169. GOXY 10 22
  170. WRITE "the demonstration version you can enter 10 customers and 10"
  171. GOXY 10 24
  172. WRITE "video' so you can get an idea of the system. Have a nice Day!"
  173. SET CURSOR ON
  174. WAIT 8
  175.  
  176. CONTINUE
  177.