home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / VRAC / UNST13.ZIP / BUTTONS next >
Encoding:
Text File  |  1993-08-16  |  3.3 KB  |  163 lines
  1. ;****************************************************************
  2. ; This Universal INSTALL script file demos BUTTONS, User
  3. ; Input, and a simple technique for creating some "animation".
  4. ;
  5. ;****************************************************************
  6. [Main Intro]
  7. ClearScreen
  8. BackPlane Gray on Brown =▒
  9. TopBar Black on Gray =Sample Top Message Bar
  10. BottomBar Black on Gray =Sample Bottom Message Bar
  11. BuildWindow
  12.   StartRow =Center
  13.   StartColumn =Center
  14.   TopTitle =What do you want to do?
  15.   ShadowType =Big
  16.   WindowColor =Gray
  17.   Border =Blue
  18.   ColumnMargin = 21
  19.   RowMargin =3
  20. EndWindow
  21. Buttons
  22.   RowMargin =1
  23.   ColumnMargin =4
  24.   StartRow =Window+1
  25.   StartCol =Window+5
  26.   ButtonOnColor  =White on Blue
  27.   ButtonOffColor =Black on Gray
  28.   Travel =Horizontal
  29.   Distance =5
  30.   Message  =See moving window
  31.   GoButton =Moving Window
  32.   Message  =Try entering text
  33.   GoButton =Enter Text
  34. EndButtons
  35. Jump =Quit
  36. ;
  37. ; ------------------------
  38. ; Display "moving" window
  39. ; ------------------------
  40. ;
  41. [Moving Window]
  42. ClearPlane
  43. BuildWindow
  44.   StartRow =4
  45.   StartColumn =3
  46.   TopTitle =Moving Window!
  47.   ShadowType =None
  48.   WindowColor =Gray
  49.   Border =Blue
  50.   ColumnMargin = 3
  51.   RowMargin =1
  52. EndWindow
  53. SystemDelay =1
  54. BuildWindow
  55.   StartRow =6
  56.   StartColumn =8
  57.   TopTitle =Moving Window!
  58.   ShadowType =None
  59.   WindowColor =Gray
  60.   Border =Blue
  61.   ColumnMargin = 3
  62.   RowMargin =1
  63. EndWindow
  64. SystemDelay =1
  65. BuildWindow
  66.   StartRow =8
  67.   StartColumn =13
  68.   TopTitle =Moving Window!
  69.   ShadowType =None
  70.   WindowColor =Gray
  71.   Border =Blue
  72.   ColumnMargin = 3
  73.   RowMargin =1
  74. EndWindow
  75. SystemDelay =1
  76. BuildWindow
  77.   StartRow =10
  78.   StartColumn =18
  79.   TopTitle =Moving Window!
  80.   ShadowType =None
  81.   WindowColor =Gray
  82.   Border =Blue
  83.   ColumnMargin = 3
  84.   RowMargin =1
  85. EndWindow
  86. SystemDelay =1
  87. BuildWindow
  88.   StartRow =12
  89.   StartColumn =23
  90.   TopTitle =Moving Window!
  91.   ShadowType =None
  92.   WindowColor =Gray
  93.   Border =Blue
  94.   ColumnMargin = 3
  95.   RowMargin =1
  96. EndWindow
  97. SystemDelay =1
  98. BuildWindow
  99.   StartRow =14
  100.   StartColumn =28
  101.   TopTitle =Moving Window!
  102.   ShadowType =None
  103.   WindowColor =Gray
  104.   Border =Blue
  105.   ColumnMargin = 3
  106.   RowMargin =1
  107. EndWindow
  108. SystemDelay =1
  109. BuildWindow
  110.   StartRow =16
  111.   StartColumn =33
  112.   TopTitle =Moving Window!
  113.   ShadowType =None
  114.   WindowColor =Gray
  115.   Border =Blue
  116.   ColumnMargin = 3
  117.   RowMargin =1
  118. EndWindow
  119. SystemDelay =1
  120. BuildWindow
  121.   StartRow =17
  122.   StartColumn =48
  123.   TopTitle =Moving Window!
  124.   ShadowType =Big
  125.   WindowColor =Gray
  126.   Border =Magenta
  127.   Text Black =Universal INSTALL!
  128.   ColumnMargin =4
  129.   RowMargin =2
  130. EndWindow
  131. SystemDelay =1
  132. BottomBar Black on Gray =Press ENTER to return to opening screen, ESC to Quit...
  133. Wait =Enter,Esc
  134. On (Esc)   Jump =Quit
  135. On (Enter) Jump =Main Intro
  136. ;
  137. ; --------------------
  138. ; Ask for user input
  139. ; --------------------
  140. ;
  141. [Enter Text]
  142. ClearPlane
  143. Input
  144.   StartRow = 9
  145.   StartColumn =20
  146.   Action =Enter,Esc
  147.   TextColor =Blue on Gray
  148.   Default =Type some text here. (default text demo)
  149.   Width =45
  150. EndInput
  151. BottomBar Black on Gray =Press ENTER to return to opening screen, ESC to Quit...
  152. Wait =Enter,Esc
  153. On (Esc)   Jump =Quit
  154. On (Enter) Jump =Main Intro
  155. ;
  156. ; --------------
  157. ; Quit        
  158. ; --------------
  159. ;
  160. [Quit]
  161. ClearScreen
  162. Text 1,1 Gray on Black =Thanks for trying Universal INSTALL.
  163.