home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Super Store 3.0 / TESTDRIVE_3.ISO / realizer / demos / preview / rlzover.rlz < prev    next >
Encoding:
Text File  |  1992-09-30  |  8.3 KB  |  222 lines
  1. '***********************************************************************
  2. '    RlzOver.RLZ
  3. '
  4. '    Copyright ⌐ 1991-1992 Computer Associates International, Inc.
  5. '    All rights reserved.
  6. '
  7. '***********************************************************************
  8.  
  9. IF NOT QVar(RollStart) THEN
  10.     INPUT "Please run Preview.RLZ";
  11.     EXIT PROGRAM
  12. END IF
  13. RollStart("RlzIcon")
  14. FormSetObject(20, _CaptionCenter, "Programming Language", fontHeading, _Center, 1 pct)
  15. s1 = "Realizer uses a structured superset of BASIC"
  16. s2 = "for its underlying programming language."
  17. FormSetObject(21, _CaptionCenter, s1 + CRLF + s2, fontType, 10 pct, 13 pct, 80 pct, 13 pct)
  18. Delay(title_delay)
  19.  
  20. DelayBmp(100, "Lang", 5 pct, 30 pct)
  21. DelayBmp(102, "Lang3", 10 pct, 60 pct)
  22. DelayBmp(101, "Lang2", 32 pct, 37 pct)
  23.  
  24. s1 = "Even if you are a programming novice, you will find Realizer's"
  25. s2 = " BASIC an exceptionally easy and powerful language to learn and use.  "
  26. s2 = s2 + "BASIC programmers, as well as spreadsheet and database macro programmers "
  27. s2 = s2 + " will find Realizer's BASIC familiar and intuitive."
  28. CyanBox(30, fontHilite, _Right, 60 pct, 5, s1, s1 + s2)
  29.  
  30. IF NOT RollWait(1) THEN
  31.     EXIT MACRO
  32. END IF
  33.  
  34. FormSetObject(20, _CaptionCenter, "Programming Environment", fontHeading, _Center, 1 pct)
  35. FormSetObject(21, _CaptionCenter, "Realizer is an extremely interactive environment.", fontType, _Center, 13 pct)
  36. Delay(title_delay)
  37.  
  38. FormSetObject(100, _Bitmap, "Edit.BMP", 2 pct, 23 pct)
  39. FormModifyObject(100, _Gray)
  40. s1 = "You can readily modify programs to try out new approaches or change values."
  41. FormSetObject(101, _CaptionLeft, s1, QR(100) + fontTypeHt, 24 pct, 45 pct, 20 pct)
  42. Delay(read_delay)
  43.  
  44. FormSetObject(110, _Bitmap, "Debug.BMP", 5 pct, 45 pct)
  45. FormModifyObject(110, _Gray)
  46. s1 = "You can use the powerful integrated debugger to understand and debug them."
  47. FormSetObject(111, _CaptionLeft, s1, QR(110) + fontTypeHt, 46 pct, maxRight - QR(110) - fontTypeHt, 40 pct)
  48. Delay(read_delay)
  49.  
  50. FormSetObject(120, _Bitmap, "Tut04.BMP", 23 pct, 58 pct)
  51. FormModifyObject(120, _Gray)
  52. s1 = "And you can use FormDev to design interfaces and complete programs with great ease."
  53. FormSetObject(121, _CaptionLeft, s1, QR(120) + fontTypeHt, 66 pct, 35 pct, 20 pct)
  54.  
  55. IF NOT RollWait(1) THEN
  56.     EXIT MACRO
  57. END IF
  58.  
  59. FormSetObject(20, _CaptionCenter, "Programmable Application Tools", fontHeading, _Center, 1 pct)
  60. s1 = "Realizer's high-level building blocks let you create"
  61. s2 = "professional applications quickly, complete with:"
  62. FormSetObject(21, _CaptionCenter, s1 + CRLF + s2, fontType, 10 pct, 13 pct, 80 pct, 33 pct)
  63.  
  64. tpPct = 33
  65. FormSetObject(140, _Bitmap, "Anim01.bmp", 100pct, 100pct)
  66. tv = FormQObject(140)
  67. FormSetObject(140, _Animate, "", 50 pct, tpPct - 1 pct, tv[_FQO_Width], tv[_FQO_Height])
  68. AnimateSelect(140)
  69. AnimateCells("Anim0#.bmp", 1, 4)
  70. FOR frameNum = 1 TO 4
  71.     AnimateFrame(frameNum, 0, 0, 150)
  72. NEXT
  73.  
  74. rsID = 100
  75. lfPct = 5
  76. DoBmpCapt("Chart", "Charts")
  77. DoBmpCapt("Sheetico", "Spreadsheets")
  78. DoBmpCapt("Form", "Forms")
  79. DoBmpCapt("Graph", "Graphics")
  80. lfPct = 50
  81. tpPct = 33
  82. DoBmpCapt("", "Animation")
  83. DoBmpCapt("Text", "Text Editors")
  84. DoBmpCapt("Sched", "Event Scheduling")
  85. DoBmpCapt("Board", "Boardwatches")
  86.  
  87. IF NOT RollWait(1) THEN
  88.     EXIT MACRO
  89. END IF
  90.  
  91. FormSetObject(20, _CaptionCenter, "Programmable Application Tools", fontHeading, _Center, 1 pct)
  92. s1 = "These customizable tools provide limitless ways"
  93. s2 =  "of displaying and processing information."
  94. FormSetObject(21, _CaptionCenter, s1 + CRLF + s2, fontType, 10 pct, 12 pct, 80 pct, 33 pct)
  95. Delay(title_delay)
  96.  
  97. FormSetObject(100, _Bitmap, "Tut10.bmp", 68 pct, 28 pct)
  98. FormModifyObject(100, _Gray)
  99. s1 = "Information System (EIS) ..."
  100. FormSetObject(30, _CaptionLeft, s1, fontHilite, 100pct, 100pct)
  101. s2 = "To build an Executive Information System (EIS) ..."
  102. CyanBox(30, fontHilite, QL(100) + (QW(100) - QW(30) - fontHiliteHt)\2, QB(100) + QH(100)\4, 2, s1, s2)
  103. Delay(bmp_delay)
  104.  
  105. FormSetObject(102, _Bitmap, "Tut12.bmp", QL(100) - QW(100)\3, QT(100) + QH(100)\3)
  106. FormModifyObject(102, _Gray)
  107. Delay(bmp_delay)
  108.  
  109. FormSetObject(101, _Bitmap, "Tut11.bmp", QL(100) + QW(100)\2, QT(100) + QH(100)\2)
  110. FormModifyObject(101, _Gray)
  111. Delay(bmp_delay)
  112.  
  113. FormSetObject(110, _Bitmap, "Database.BMP", 5 pct, 28 pct)
  114. FormModifyObject(110, _Gray)
  115. Delay(bmp_delay)
  116.  
  117. s1 = "or Data Entry screens and"
  118. s2 = " Database front-ends."
  119. CyanBox(60, fontHilite, QL(110) + QW(110)\2, QB(110) - fontTypeHt, 2, s1, s1 + s2)
  120.  
  121. IF NOT RollWait(1) THEN
  122.     EXIT MACRO
  123. END IF
  124.  
  125. FormSetObject(20, _CaptionCenter, "More Features", fontHeading, _Center, 1 pct)
  126. s1 = "- " + "Import and Export of Lotus, Excel, text, and binary record files"
  127. FormSetObject(21, _CaptionLeft, s1, fontType, _Center, 100 pct)
  128. lf = QL(21)
  129. FormSetObject(21, _CaptionLeft, "Realizer also includes support for:", fontType, lf\2 pxl, 15 pct, 98 pct, 33 pct)
  130. Delay(1)
  131.  
  132. tpPct = 22
  133. rsID = 30
  134. DoDelayCapt("Serial Communications")
  135. DoDelayCapt("MDI (Multiple Document Interface)")
  136. DoDelayCapt("High-level printing")
  137. DoDelayCapt("Import and Export of Lotus, Excel, text, and binary record files")
  138. DoDelayCapt("Sophisticated mathematics and array processing")
  139. DoDelayCapt("Online and Context sensitive help")
  140. DoDelayCapt("DDE (Dynamic Data Exchange)")
  141. DoDelayCapt("DLLs (Dynamic Link Libraries) to extend Realizer")
  142. DoDelayCapt("User or Third party standard Windows Custom controls")
  143.  
  144. IF NOT RollWait(1) THEN
  145.     EXIT MACRO
  146. END IF
  147.  
  148. FormSetObject(20, _CaptionCenter, "Application Delivery", fontHeading, _Center, 1 pct)
  149. FormSetObject(21, _CaptionCenter, "Deliver a Windows EXE and Installation diskette:", fontType, _Center, 13 pct)
  150. Delay(title_delay)
  151.  
  152. FormSetObject(100, _Bitmap, "Project.BMP", 2 pct, 25 pct)
  153. FormModifyObject(100, _Gray)
  154. s1 = "Realizer will create EXE's for your applications, "
  155. s2 = "which you can then distribute free of royalty or license fees."
  156. CyanBox(30, fontHilite, QR(100) + fontTypeHt\2, QB(100) - 3 * fontTypeHt, 3, s1, s1 + s2) 
  157. Delay(read_delay)
  158.  
  159. FormModifyObject(31, _Close)
  160. FormModifyObject(30, _Close)
  161. FormSetObject(101, _Bitmap, "Install.BMP", 33 pct, 30 pct)
  162. FormModifyObject(101, _Gray)
  163. s1 = "Realizer will even automatically create an "
  164. s2 = "installation disk for your programs."
  165. CyanBox(30, fontHilite, QL(101) + QW(101)\3, QB(101) + fontTypeHt\2, 2, s1, s1 + s2)
  166. Delay(bmp_delay)
  167.  
  168. FormSetObject(102, _Bitmap, "Install2.BMP", 15 pct, 65 pct)
  169. FormModifyObject(102, _Gray)
  170.  
  171. IF NOT RollWait(1) THEN
  172.     EXIT MACRO
  173. END IF
  174.  
  175. FormSetObject(20, _CaptionCenter, "What Comes With the Package", fontHeading, _Center, 1 pct)
  176. FormSetObject(21, _CaptionLeft, "The Realizer disk set comes with:", fontType, 2 pct, 15 pct, 98 pct, 33 pct)
  177. Delay(1)
  178.  
  179. lfPct = 5
  180. tpPct = 24
  181. rsID = 100
  182. DoIcoCapt("RlzIcon", "the Realizer development environment")
  183. DoIcoCapt("FDevIcon", "FormDev for designing interfaces")
  184. DoIcoCapt("ProjIcon", "Project Builder for creating EXEs and install disks")
  185. DoIcoCapt("ClipIcon", "Hundreds of clipart pictures")
  186.  
  187. FormSetObject(200, _CaptionLeft, "And numerous sample applications, such as:", fontType, 2 pct, 66 pct)
  188. Delay(1)
  189.  
  190. FormSetObject(210, _Bitmap, "RlzIcon.BMP", 5 pct, 74 pct)
  191. FormModifyObject(210, _Gray)
  192. FormSetObject(211, _CaptionLeft, "Expense - a program for monitoring and reporting expenses", fontSmall, 12 pct, 74 pct, 40 pct, 10 pct)
  193. Delay(1)
  194.  
  195. FormSetObject(220, _Bitmap, "RlzIcon.BMP", 10 pct, 82 pct)
  196. FormModifyObject(220, _Gray)
  197. FormSetObject(221, _CaptionLeft, "Finance - a financial trader's workstation", fontSmall, 17 pct, 84 pct)
  198. Delay(1)
  199.  
  200. FormSetObject(230, _Bitmap, "RlzIcon.BMP", 15 pct, 90 pct)
  201. FormModifyObject(230, _Gray)
  202. FormSetObject(231, _CaptionLeft, "Dataview - a chart driven EIS front-end to a pharmaceutical sales database", fontSmall, 22 pct, 89 pct, 35 pct, 10 pct)
  203. Delay(1)
  204.  
  205. FormSetObject(240, _Bitmap, "RlzIcon.BMP", 60 pct, 74 pct)
  206. FormModifyObject(240, _Gray)
  207. FormSetObject(241, _CaptionLeft, "Poker - an addictive casino game", fontSmall, 67 pct, 75 pct, 35 pct, 10 pct)
  208. Delay(1)
  209.  
  210. FormSetObject(250, _Bitmap, "RlzIcon.BMP", 65 pct, 82 pct)
  211. FormModifyObject(250, _Gray)
  212. FormSetObject(251, _CaptionLeft, "Bomb - an example of animation", fontSmall, 72 pct, 82 pct, 25 pct, 10 pct)
  213. Delay(1)
  214.  
  215. s1 = "Be sure to try these and the over "
  216. s2 = "50 other sample programs."
  217. CyanBox(300, fontHilite, _Right, QT(240) - 3 * fontTypeHt, 2, s1, s1 + s2)
  218. Delay(1)
  219.  
  220. IF RollWait(0) THEN
  221. END IF
  222.