home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / graphic / video_presentation / titler_presentation / helm / examples / welcome (.txt) < prev   
Encoding:
Helm Multimedia Book  |  1995-07-10  |  241.2 KB  |  2,573 lines

  1. DemoBook
  2. Scott Nickerson
  3. 07-15-93
  4. New...
  5. Open...
  6. Make Copy...
  7. Streamline...
  8. Preferences...
  9.     Workbench
  10. Help...
  11. About...
  12. Quit...
  13. Paste
  14. Clear
  15. Select All
  16. Cut Page
  17.     Copy Page
  18. Colors
  19. Load...
  20. Save...
  21. Restore Colors
  22. Default Colors
  23. Brush Colors
  24. Image Colors
  25. Cycle
  26. Grid...
  27. Stop Sound
  28. Show All
  29. Unlock All
  30.     Edit Form
  31. Share
  32.     Next Page
  33. Previous Page
  34. First Page
  35.     Last Page
  36. Backward
  37. Forward
  38.     Last Book
  39.     Browse...
  40. Autobrowse...
  41.     Bookshelf
  42. New Page
  43. Delete Page
  44. New Form
  45. Load Form...
  46. Save Form...
  47. Image
  48. Load...
  49. Save...
  50. Capture...
  51.     Clipboard
  52. Paste
  53. Spare
  54. Swap Frames
  55. Copy to Spare
  56. Merge in Front
  57. Merge in Back
  58. Delete Spare
  59. Frame
  60. Previous
  61. Delete
  62. Copy to All
  63. Color
  64. Remap
  65. Transparency
  66. Paper <-> Pen
  67. Paper ->  Pen
  68. Count
  69. Vertical
  70. Horizontal
  71. Info...
  72. Brush
  73. Load...
  74. Save...
  75. Restore
  76.     Clipboard
  77. Paste
  78. Color
  79. Remap
  80. Transparency
  81. Paper <-> Pen
  82. Paper ->  Pen
  83. Center
  84. Corner
  85.     Any Point
  86. Any Size
  87. Halve
  88. Double
  89. Halve Width
  90. Halve Height
  91. Double Width
  92. Double Height
  93. To PAL
  94. To NTSC
  95. Vertical
  96. Horizontal
  97. Shear
  98. Vertical
  99. Horizontal
  100. Rotate
  101.     Any Angle
  102. Paint
  103. Matte
  104. Color
  105. Replace
  106. Smear
  107. Dissolve
  108. Spare
  109. Cycle
  110. Cycle 2
  111. Gradient
  112. Gradient 2
  113. Smudge
  114. Chaos
  115. Count
  116. Custom
  117. Dither
  118. Edges
  119. Object
  120. Load...
  121. Save...
  122. Bring to Front
  123. Send to Back
  124. Bring Closer
  125. Send Farther
  126. Group
  127. Ungroup
  128. Duplicate...
  129. Align...
  130. Info...
  131. Actions...
  132.     Script...
  133. Load...
  134. Save...
  135. Plain
  136.     Underline
  137. Italic
  138. Shadow
  139. Font...
  140. Spacing...
  141.     Hypertext
  142. Actions...
  143.     Script...
  144. Tools
  145. Coordinates
  146.     Title Bar
  147. Palette
  148. Colors
  149. Patterns
  150. Paint Tools
  151. Paint Types
  152.     Histogram
  153.     Magnifier
  154. Messages
  155. Draw Tools
  156. Layers
  157. Pages
  158. Author
  159. Book...
  160. Form...
  161. Page...
  162. Display...
  163. Narrator...
  164. Hypertext...
  165. Resources...
  166.     Effect...
  167. Effect Area
  168. wwwwDUUU
  169. Book23
  170. eagle.8svx
  171. MaryCeleste.SMUS
  172. Piano
  173. PTopaz8
  174. Raven.SMUS
  175. Shackleton.text
  176. Small8
  177. topaz.font
  178. PTopaz.font
  179. DF0:Shackleton.text
  180. DF0:eagle.8svx
  181. DF0:Shackleton.text
  182. fs1:fonts/PTopaz/8
  183. Work:Helm/Examples/Welcome
  184. Fast2:Action.pic
  185. work:helm/books/Welcome.bkp
  186. Piano
  187. First Voice
  188. Organ
  189. \sPiano
  190. @MMenu
  191. @CCreate Book
  192. @mSimple Applications
  193. @DDraw Tools
  194. @PPaint Tools
  195. @BHow to Use this Book
  196.     @SScripts
  197. @AMultimedia Actions
  198. @HPresenting Helm!
  199. The Helm Welcome Book
  200. @kBookshelf
  201. @QQuit Helm
  202. @FFor More Information
  203. @UUpgrading to Helm
  204. on SelectUp
  205. begin
  206.   answer "CREATE A NEW BOOK?\n\n" &
  207.     "Experiment with creating and programming\n" &
  208.     "objects in a book." with "@CCancel" or "~@OOK"
  209.   if it is "OK" then doMenu "Book", "New..."
  210. CREATE A NEW BOOK?
  211. Experiment with creating and programming
  212. objects in a book.
  213. @CCancel
  214. ~@OOK
  215. New...
  216. Non Timer
  217. begin
  218.   animate imagefield "Sail" from 1 to 10 loops 1 jiffies 2
  219. -on PageOpen
  220. begin
  221.   set the pointer to 0
  222. Chicago                         
  223. p?0v`
  224. p?0|0
  225. s>|~?
  226. <This book presents several complete applications. While they
  227. ?are not nearly as flashy or as interesting as applications that
  228. 7are use many pages, we hope they indicate the diversity
  229. ?of applications that you can make with Helm. These applications
  230. ?use scripts sparingly and were, in fact, quite easy to make. If
  231. ;you want to see how they were made, activate an object with
  232. Cthe Selection Tool of the 
  233. Draw Tools
  234.  Window and then select
  235. Actions...
  236. Script...
  237.  from the Object menu.
  238. Simple Applications Menu
  239. @PPaint Program
  240. @EExample Database
  241. @KPiano Keyboard
  242. @CCalculator
  243. @DDirectory Utility
  244. @aCalendar
  245. Use the Draw tools to create
  246. objects that rest on a page or
  247. a form. These objects include
  248. $shapes, buttons, 
  249. textfields
  250. imagefields
  251. selectors
  252. , and
  253. timer objects
  254. . Any object that
  255. rests on a form, especially
  256. textfields, can be shared or
  257. nonshared. Nonshared text-
  258. fields have different text on
  259. each page of that form.
  260. Selection Tool
  261.   Curve
  262.       Ellipse
  263.   Irregular
  264.     Polygon
  265.   Button
  266.   Imagefield
  267.   Selector
  268.   Timer
  269. Browse Tool 
  270. Line 
  271. Rectangle 
  272. Regular 
  273. Polygon
  274. Arrow 
  275. Textfield 
  276. Chart 
  277. PIP Object 
  278. *Draw Tools (Very, very, very important!!!)
  279. Use a tool from the Paint tools
  280. window to paint on an image
  281. inside an imagefield. Like the
  282. Draw tools, many of the icons
  283. have pop-up menus or
  284. windows that appear when
  285. you click on the icon with the
  286. menu (right) mouse button.
  287. When you are using a paint
  288. tool, the Image, Paint, and
  289. Brush menus are available.
  290. Brush Indicator
  291. Select a built-in
  292. brush with the
  293. pop-up menu.
  294. Create
  295. user-
  296. defined
  297. brushes
  298. tool.
  299. Use the Animation Frame
  300. Controls to flip through
  301. the frames of an imagefield
  302. that contains more than
  303. one image frame.
  304. Painting
  305. Tools
  306. Browse
  307. Paint Tools
  308. AYou can easily hook a list of actions to an object, menu item, or
  309. ?hypertext. You simply drag actions from a catalog list and drop
  310. Athem into an action list that executes the actions asynchronously
  311. <when you select the object in a designated way. You then set
  312. 9some parameters for each action. NO PROGRAMMING REQUIRED.
  313. Blackboard
  314.  - Displays text in a timed window.
  315. <CDTV Audio - Selects and plays tracks from an audio CD disc.
  316. 'Execute - Runs an AREXX or DOS program.
  317. +Flip - Changes the frames in an imagefield.
  318. 1Genlock - Sends commands to an available genlock.
  319. "Go To - Turns to a specified page.
  320. .Helm Command - Executes a Helm system command.
  321. 9Layers - Uses a visual effect to change layer visibility.
  322. Move - Moves an object.
  323. Music
  324.  - Plays a SMUS file.
  325. ,Musical Notes - Plays notes entered as text.
  326. Narration
  327.  - Sends notes to the Amiga Narrator if available.
  328. *Picture - Displays a picture or animation.
  329. %Scroll - Scrolls text in a textfield.
  330. -Serial - Sends codes through a serial device.
  331. Sound
  332.  - Plays an 8SVX file.
  333. Test Pattern
  334.  - Displays color bars for adjusting video output.
  335.  - Displays a textfile.
  336. Touch Tones
  337.  - Dials a telephone.
  338. 1Visibility - Changes the visibility of an object.
  339. Multimedia Actions
  340. 8 Action Catalog (Press Red Hypertext to Activate Action)
  341. #This is a
  342. Blackboard
  343. Help message.
  344.     14520623
  345. Oregon Hill Cable
  346. This is the Amiga
  347. speaking.
  348. ?If you do not find an action that does just what you need, then
  349. Ayou attach a script to an object, menu item, or hypertext. Helm's
  350. 7scripting language uses object-oriented features and an
  351. 1English-like syntax to make programming a breeze.
  352. ?You enclose blocks of script statements in 
  353. event functions
  354. 4which are control structures that determine when the
  355. =statements will execute. Helm also converts data dynamically,
  356. <so you never have to worry about converting between strings,
  357. %integers, and floating point numbers.
  358. Scripts
  359. @EEvent Functions
  360. @SScript Example
  361. @HHow to Program
  362. =This Demonstration Book introduces you to Helm, its purposes,
  363. ;and tells you a little about how to use it. Once you become
  364. ;familiar with the basic ways to make Helm books, you should
  365. >try it yourself. Go to the Main Menu and click on Create Book.
  366. 8Then you can design your applications with what you have
  367. learned here.
  368. :We encourage you to move freely through this book, turning
  369. <from page to page and clicking on buttons. But if you really
  370. <want to learn Helm, you should take particular notice of the
  371. Draw tools
  372.  window, activated by choosing Draw Tools in the
  373. :Tools pull-down menu. With this one window, you can select
  374. 7the tools to browse through a book, create objects, and
  375. 4manipulate objects. Once you understand these tools,
  376. =particularly the Browse and Selection Tools, you will be well
  377. "on your way to understanding Helm.
  378. ?Another thing that you must understand is that a Helm book file
  379. =stays open the entire time that you are using that book. When
  380. 9you make a change in the book, like moving an object with
  381. @the Selection tool, that change will be automatically saved into
  382. ?the book file. There is no need, and no way, to explicitly save
  383. a book; it is done for you.
  384. >In this book, many buttons will turn to other pages. To return
  385. <to the previously displayed page, select the angled arrow in
  386. @the top right corner of the screen. If you get lost in the book,
  387. =select the Menu button which is also in the top right corner.
  388. <The Example Database application consists of four pages that
  389. ;use a single form. If you turn from page to page many times
  390. =in this form, the angled return arrow obviously will not send
  391. @you back to the applications menu. Select the lower right button
  392. on these pages to do that.
  393. @Red text is hypertext. When you click on this text, Helm will do
  394. +something, usually turning to another page.
  395. @This book has the Cannot Modify property active. This means that
  396. @you cannot alter the book. If you want to change the book or use
  397. >it as the basis of your own book applications, then you should
  398. Dfirst deselect 
  399. Cannot Modify
  400.   in the Book Information requester,
  401. 5opened by choosing 
  402.   in the 
  403. Author
  404.   menu.
  405. How to Use this Book
  406. wwwPAGE
  407. Multimedia Presentations
  408. ,on PreOpen
  409. begin
  410.   set the pointer to 5
  411. Make Interactive Kiosks
  412. Video Presentations
  413. Graphical Databases
  414. What does Helm do?
  415. on Timer
  416. begin
  417.   set the pen of object id 759 to 5
  418.   wait 1
  419.   set the pen of object id 760 to 5
  420.   wait 1
  421.   set the pen of object id 761 to 5
  422.   wait 2
  423.   go to the next page
  424. uon PreOpen
  425. begin
  426.   set pen of object id 759 to 4
  427.   set pen of object id 760 to 4
  428.   set pen of object id 761 to 4
  429. 1Paint Program (Select a Paint Type from the Menu)
  430. theImage
  431. @LLoad Image
  432. @SSave Image
  433. @PPrint Image
  434. #on SelectUp
  435. begin
  436.   undo paint
  437. on SelectUp
  438. begin
  439. 0on SelectUp
  440. begin
  441.   set the pencolor to me
  442. >on SelectUp
  443. begin
  444.   set tool to 4
  445.   set freehandtype to 0
  446. pon SelectUp
  447. begin
  448.   click on object id 467
  449.   set tool to 14
  450. on MenuUp
  451. begin
  452.   set the brushnumber to 0
  453. &on SelectUp
  454. begin
  455.   set tool to 5
  456. &on SelectUp
  457. begin
  458.   set tool to 6
  459. &on SelectUp
  460. begin
  461.   set tool to 8
  462. &on SelectUp
  463. begin
  464.   set tool to 7
  465. &on SelectUp
  466. begin
  467.   set tool to 9
  468. *on SelectUp
  469. begin
  470.   set tool to 32777
  471. 'on SelectUp
  472. begin
  473.   set tool to 10
  474. *on SelectUp
  475. begin
  476.   set tool to 32778
  477. 'on SelectUp
  478. begin
  479.   set tool to 11
  480. *on SelectUp
  481. begin
  482.   set tool to 32779
  483. 'on SelectUp
  484. begin
  485.   set tool to 12
  486. *on SelectUp
  487. begin
  488.   set tool to 32780
  489. on SelectUp
  490. begin
  491.   clear paint
  492. on MenuUp
  493. begin
  494.   get the pencolor
  495.   set the pencolor to zero
  496.   clear paint
  497.   set the pencolor to it
  498. on SelectUp
  499. begin
  500.   getfile ""
  501.   if it is not empty begin
  502. lock display
  503. load image it into object id 464
  504. unlock display with blocks speed 10
  505.   end
  506. aon SelectUp
  507. begin
  508.   getfile ""
  509.   if it is not empty begin
  510. save object id 464 as it
  511.   end
  512. -on SelectUp
  513. begin
  514.   set brushnumber to 4
  515. on SelectUp
  516. begin
  517.   answer "Print picture?" with "@CCancel" or "@PPrint"
  518.   if it is "Print" then print imagefield "theImage"
  519. Print picture?
  520. @CCancel
  521. @PPrint
  522. Print
  523. theImage
  524. -on SelectUp
  525. begin
  526.   set brushnumber to 1
  527. -on SelectUp
  528. begin
  529.   set brushnumber to 9
  530. .on SelectUp
  531. begin
  532.   set brushnumber to 17
  533. -on SelectUp
  534. begin
  535.   set brushnumber to 2
  536. .on SelectUp
  537. begin
  538.   set brushnumber to 10
  539. .on SelectUp
  540. begin
  541.   set brushnumber to 18
  542. -on SelectUp
  543. begin
  544.   set brushnumber to 7
  545. .on SelectUp
  546. begin
  547.   set brushnumber to 15
  548. .on SelectUp
  549. begin
  550.   set brushnumber to 23
  551. on PageOpen
  552. begin
  553.   set tool to 0
  554.   click on object id 464
  555.   click on object id 467
  556.   put 1 into object id 466
  557.   resetpaint
  558.   set the pencolor to 1
  559. on PageClose
  560. begin
  561.   set tool to 0
  562. Piano Keyboard
  563. MIDI Preset
  564. theScore
  565. Record
  566. @($18)
  567. @($17)
  568. @($16)
  569. @($15)
  570. @($14)
  571. @($13)
  572. @($12)
  573. @($11)
  574. @($10)
  575. Clear
  576. 0on SelectUp
  577. begin
  578.   set defaultpreset to me
  579. on SelectUp
  580. begin
  581.   global midikey
  582.   if the hilite of me is true begin
  583. put true into midikey
  584. set defaultpreset to object id 320
  585.   else put false into midikey
  586. midikey
  587. Gon SelectUp
  588. begin
  589.   play notes "i\\sPiano " & textfield "theScore"
  590. i\sPiano 
  591. theScore
  592. on SelectUp
  593. begin
  594.   global Rec, theStart
  595.   put true into theStart
  596.   if Rec is true Rec is false
  597.   else {
  598. Rec is true
  599. put empty into textfield "theScore"
  600. /    theStart
  601. theScore
  602. "on SelectUp
  603. begin
  604.   piano(84)
  605. piano
  606. "on SelectUp
  607. begin
  608.   piano(83)
  609. piano
  610. "on SelectUp
  611. begin
  612.   piano(81)
  613. piano
  614. "on SelectUp
  615. begin
  616.   piano(79)
  617. piano
  618. "on SelectUp
  619. begin
  620.   piano(77)
  621. piano
  622. "on SelectUp
  623. begin
  624.   piano(76)
  625. piano
  626. "on SelectUp
  627. begin
  628.   piano(74)
  629. piano
  630. "on SelectUp
  631. begin
  632.   piano(72)
  633. piano
  634. "on SelectUp
  635. begin
  636.   piano(71)
  637. piano
  638. "on SelectUp
  639. begin
  640.   piano(69)
  641. piano
  642. "on SelectUp
  643. begin
  644.   piano(67)
  645. piano
  646. "on SelectUp
  647. begin
  648.   piano(65)
  649. piano
  650. "on SelectUp
  651. begin
  652.   piano(64)
  653. piano
  654. "on SelectUp
  655. begin
  656.   piano(62)
  657. piano
  658. "on SelectUp
  659. begin
  660.   piano(60)
  661. piano
  662. "on SelectUp
  663. begin
  664.   piano(59)
  665. piano
  666. "on SelectUp
  667. begin
  668.   piano(57)
  669. piano
  670. "on SelectUp
  671. begin
  672.   piano(55)
  673. piano
  674. "on SelectUp
  675. begin
  676.   piano(53)
  677. piano
  678. "on SelectUp
  679. begin
  680.   piano(52)
  681. piano
  682. "on SelectUp
  683. begin
  684.   piano(50)
  685. piano
  686. ;on SelectDown
  687.   piano(48)
  688. on SelectUp
  689.   score(48)
  690. piano
  691. 0PPPS
  692. score
  693. ;on SelectDown
  694.   piano(47)
  695. on SelectUp
  696.   score(47)
  697. piano
  698. /PPPS
  699. score
  700. ;on SelectDown
  701.   piano(45)
  702. on SelectUp
  703.   score(45)
  704. piano
  705. -PPPS
  706. score
  707. ;on SelectDown
  708.   piano(43)
  709. on SelectUp
  710.   score(43)
  711. piano
  712. +PPPS
  713. score
  714. ;on SelectDown
  715.   piano(41)
  716. on SelectUp
  717.   score(41)
  718. piano
  719. )PPPS
  720. score
  721. ;on SelectDown
  722.   piano(40)
  723. on SelectUp
  724.   score(40)
  725. piano
  726. (PPPS
  727. score
  728. ;on SelectDown
  729.   piano(38)
  730. on SelectUp
  731.   score(38)
  732. piano
  733. &PPPS
  734. score
  735. ;on SelectDown
  736.   piano(36)
  737. on SelectUp
  738.   score(36)
  739. piano
  740. $PPPS
  741. score
  742. "on SelectUp
  743. begin
  744.   piano(82)
  745. piano
  746. "on SelectUp
  747. begin
  748.   piano(80)
  749. piano
  750. "on SelectUp
  751. begin
  752.   piano(78)
  753. piano
  754. "on SelectUp
  755. begin
  756.   piano(75)
  757. piano
  758. "on SelectUp
  759. begin
  760.   piano(73)
  761. piano
  762. "on SelectUp
  763. begin
  764.   piano(70)
  765. piano
  766. "on SelectUp
  767. begin
  768.   piano(68)
  769. piano
  770. "on SelectUp
  771. begin
  772.   piano(66)
  773. piano
  774. "on SelectUp
  775. begin
  776.   piano(63)
  777. piano
  778. "on SelectUp
  779. begin
  780.   piano(61)
  781. piano
  782. "on SelectUp
  783. begin
  784.   piano(58)
  785. piano
  786. "on SelectUp
  787. begin
  788.   piano(56)
  789. piano
  790. "on SelectUp
  791. begin
  792.   piano(54)
  793. piano
  794. "on SelectUp
  795. begin
  796.   piano(51)
  797. piano
  798. "on SelectUp
  799. begin
  800.   piano(49)
  801. piano
  802. ;on SelectUp
  803.   piano(46)
  804. on SelectDown
  805.   score(46)
  806. piano
  807. .PPPS
  808. score
  809. ;on SelectDown
  810.   piano(44)
  811. on SelectUp
  812.   score(44)
  813. piano
  814. ,PPPS
  815. score
  816. ;on SelectDown
  817.   piano(42)
  818. on SelectUp
  819.   score(42)
  820. piano
  821. *PPPS
  822. score
  823. ;on SelectDown
  824.   piano(39)
  825. on SelectUp
  826.   score(39)
  827. piano
  828. 'PPPS
  829. score
  830. ;on SelectDown
  831.   piano(37)
  832. on SelectUp
  833.   score(37)
  834. piano
  835. %PPPS
  836. score
  837. <on SelectUp
  838. begin
  839.   put empty into textfield "theScore"
  840. theScore
  841. Lon PageOpen
  842.   global Rec, W1, B1
  843.   put the number of object id 362 into W1
  844.   put the number of object id 360 into B1
  845.   Rec = false
  846.   load sound "\sPiano"
  847. on PageClose
  848.   unload sound "\sPiano"
  849. on Keyboard n
  850.   global W1, B1
  851.   get strmatch("qwertyuiop[]", n)
  852.   if it > 1 {
  853. click on object (W1 + it - 1)
  854.   get strmatch("1234567890-=\\", n)
  855.   if it > 1 {
  856. click on object (B1 + it - 1)
  857. on Piano note
  858.   global midikey, duration, Rec, theStart
  859.   if midikey is true then play notes "MX " & note
  860.   else play notes "i\\sPiano " & note
  861.   if theStart is true {
  862. duration = ticks
  863. put false into theStart
  864.   }  
  865. on Score note
  866.   global duration, Rec
  867.   if Rec is true {
  868. theValue = ticks - duration
  869. duration = ticks
  870. theValue <
  871. 6 then v = "x"
  872. else if theValue <  14 then v = "t"
  873. else if theValue <  25 then v = "s"
  874. else if theValue <  50 then v = "e"
  875. else if theValue < 100 then v = "q"
  876. else if theValue < 200 then v = "h"
  877. v = "w"
  878. put " " & note & v after textfield "theScore"
  879. Score
  880. Piano
  881. h\sPiano
  882. \sPiano
  883. PSPPPS
  884. midikey
  885. /    duration
  886. /    theStart
  887. i\sPiano 
  888. /    duration
  889. theScore
  890. Calculator
  891. Display
  892. C -> 
  893.  Yards -> Meters
  894.  Meters -> Yards
  895. F -> 
  896.  Inches -> Centimeters
  897.  Centimeters -> Inches
  898.  Miles -> Kilometers
  899.  Pounds -> Kilogram
  900.  Kilograms -> Pound
  901.  Kilometers -> Miles
  902. Just for Show
  903. on SelectUp
  904. begin
  905.   checkit()
  906.   if textfield "Display" = 0 and (char 2 of textfield "Display") != "."
  907. put "7" into textfield "Display"
  908.   else put "7" after textfield "Display"
  909. checkit
  910. Display
  911. Display
  912. Display
  913. Display
  914. on SelectUp
  915. begin
  916.   checkit()
  917.   if textfield "Display" = 0 and (char 2 of textfield "Display") != "."
  918. put "8" into textfield "Display"
  919.   else put "8" after textfield "Display"
  920. checkit
  921. Display
  922. Display
  923. Display
  924. Display
  925. on SelectUp
  926. begin
  927.   checkit()
  928.   if textfield "Display" = 0 and (char 2 of textfield "Display") != "."
  929. put "9" into textfield "Display"
  930.   else put "9" after textfield "Display"
  931. checkit
  932. Display
  933. Display
  934. Display
  935. Display
  936. on SelectUp
  937. begin
  938.   global operator
  939.   global firstnumber
  940.   global doit
  941.   put false into doit
  942.   put "/" into operator
  943.   put textfield "Display" into firstnumber
  944. /    operator
  945. firstnumber
  946. Display
  947. on SelectUp
  948. begin
  949.   checkit()
  950.   if textfield "Display" = 0 and (char 2 of textfield "Display") != "."
  951. put "4" into textfield "Display"
  952.   else put "4" after textfield "Display"
  953. checkit
  954. Display
  955. Display
  956. Display
  957. Display
  958. on SelectUp
  959. begin
  960.   checkit()
  961.   if textfield "Display" = 0 and (char 2 of textfield "Display") != "."
  962. put "5" into textfield "Display"
  963.   else put "5" after textfield "Display"
  964. checkit
  965. Display
  966. Display
  967. Display
  968. Display
  969. on SelectUp
  970. begin
  971.   checkit()
  972.   if textfield "Display" = 0 and (char 2 of textfield "Display") != "."
  973. put "6" into textfield "Display"
  974.   else put "6" after textfield "Display"
  975. checkit
  976. Display
  977. Display
  978. Display
  979. Display
  980. on SelectUp
  981. begin
  982.   global operator
  983.   global firstnumber
  984.   global doit
  985.   put false into doit
  986.   put "x" into operator
  987.   put textfield "Display" into firstnumber
  988. /    operator
  989. firstnumber
  990. Display
  991. on SelectUp
  992. begin
  993.   checkit()
  994.   if textfield "Display" = 0 and (char 2 of textfield "Display") != "."
  995. put "1" into textfield "Display"
  996.   else put "1" after textfield "Display"
  997. checkit
  998. Display
  999. Display
  1000. Display
  1001. Display
  1002. on SelectUp
  1003. begin
  1004.   checkit()
  1005.   if textfield "Display" = 0 and (char 2 of textfield "Display") != "."
  1006. put "2" into textfield "Display"
  1007.   else put "2" after textfield "Display"
  1008. checkit
  1009. Display
  1010. Display
  1011. Display
  1012. Display
  1013. on SelectUp
  1014. begin
  1015.   checkit()
  1016.   if textfield "Display" = 0 and (char 2 of textfield "Display") != "."
  1017. put "3" into textfield "Display"
  1018.   else put "3" after textfield "Display"
  1019. checkit
  1020. Display
  1021. Display
  1022. Display
  1023. Display
  1024. on SelectUp
  1025. begin
  1026.   global operator
  1027.   global firstnumber
  1028.   global doit
  1029.   put false into doit
  1030.   put "-" into operator
  1031.   put textfield "Display" into firstnumber
  1032. /    operator
  1033. firstnumber
  1034. Display
  1035. on SelectUp
  1036. begin
  1037.   checkit()
  1038.   if textfield "Display" = 0 and (char 2 of textfield "Display") != "."
  1039. put "0" into textfield "Display"
  1040.   else if textfield "Display" != 0 put "0" after textfield "Display"
  1041.   else put "0" after textfield "Display"
  1042. checkit
  1043. Display
  1044. Display
  1045. Display
  1046. Display
  1047. Display
  1048. Display
  1049. zon SelectUp
  1050. begin
  1051.   get textfield "Display"
  1052.   if it is not zero put textfield "Display" * -1 into textfield "Display"
  1053. Display
  1054. Display
  1055. Display
  1056. 2on SelectUp
  1057. begin
  1058.   checkit()
  1059.   get textfield "Display"
  1060.   put the number of characters of it into n
  1061.   put false into dot
  1062.   for i = 1 to n begin
  1063. if (char i of it) = "." begin
  1064. put true into dot
  1065. put n + 1 into i
  1066.   end
  1067.   if dot = false then
  1068. put "." after textfield "Display"
  1069. checkit
  1070. Display
  1071. Display
  1072. on SelectUp
  1073. begin
  1074.   global operator
  1075.   global firstnumber
  1076.   global doit
  1077.   put false into doit
  1078.   put "+" into operator
  1079.   put textfield "Display" into firstnumber
  1080. /    operator
  1081. firstnumber
  1082. Display
  1083. :on SelectUp
  1084. begin
  1085.   put zero into textfield "Display"
  1086. Display
  1087. on SelectUp
  1088. begin
  1089.   global operator
  1090.   global firstnumber
  1091.   global doit
  1092.   put 0.0 + firstnumber into firstnumber
  1093.   if operator = "/" begin
  1094. if (textfield "Display" = 0) then
  1095. put "DIV BY ZERO" into it
  1096. else put (firstnumber / textfield "Display") into it
  1097.   end
  1098.   if operator = "x" then put firstnumber * textfield "Display" into it
  1099.   if operator = "-" then put firstnumber - textfield "Display" into it
  1100.   if operator = "+" then put firstnumber + textfield "Display" into it
  1101.   if operator is empty then put zero into it
  1102.   if it is not empty put it into textfield "Display"
  1103.   else put 0 into textfield "Display"
  1104.   put "=" into operator
  1105.   put false into doit
  1106. /    operator
  1107. firstnumber
  1108. Display
  1109. DIV BY ZERO
  1110. Display
  1111. Display
  1112. Display
  1113. Display
  1114. Display
  1115. Display
  1116. on SelectUp
  1117. begin
  1118.   get textfield "Display"
  1119.   put (sin of (it * 3.14159265358979 / 180)) into textfield "Display"
  1120.   resetcalculator()
  1121. Display
  1122. Display
  1123. resetcalculator
  1124. on SelectUp
  1125. begin
  1126.   get textfield "Display"
  1127.   put (cos of (it * 3.14159265358979 / 180)) into textfield "Display"
  1128.   resetcalculator()
  1129. Display
  1130. Display
  1131. resetcalculator
  1132. on SelectUp
  1133. begin
  1134.   get textfield "Display"
  1135.   put (tan of (it * 3.14159265358979 / 180)) into textfield "Display"
  1136.   resetcalculator()
  1137. Display
  1138. Display
  1139. resetcalculator
  1140. on SelectUp
  1141. begin
  1142.   get textfield "Display"
  1143.   put (asin of it) * 180 / 3.14159265358979 into textfield "Display"
  1144.   resetcalculator()
  1145. Display
  1146. Display
  1147. resetcalculator
  1148. on SelectUp
  1149. begin
  1150.   get textfield "Display"
  1151.   put (acos of it) * 180 / 3.14159265358979 into textfield "Display"
  1152.   resetcalculator()
  1153. Display
  1154. Display
  1155. resetcalculator
  1156. on SelectUp
  1157. begin
  1158.   get textfield "Display"
  1159.   get textfield "Display"
  1160.   put (atan of it) * 180 / 3.14159265358979 into textfield "Display"
  1161.   resetcalculator()
  1162. Display
  1163. Display
  1164. Display
  1165. resetcalculator
  1166. on SelectUp
  1167. begin
  1168.   get textfield "Display"
  1169.   put (sinh of (it * 3.14159265358979 / 180)) into textfield "Display"
  1170.   resetcalculator()
  1171. Display
  1172. Display
  1173. resetcalculator
  1174. on SelectUp
  1175. begin
  1176.   get textfield "Display"
  1177.   put (cosh of (it * 3.14159265358979 / 180)) into textfield "Display"
  1178.   resetcalculator()
  1179. Display
  1180. Display
  1181. resetcalculator
  1182. on SelectUp
  1183. begin
  1184.   get textfield "Display"
  1185.   put (tanh of (it * 3.14159265358979 / 180)) into textfield "Display"
  1186.   resetcalculator()
  1187. Display
  1188. Display
  1189. resetcalculator
  1190. jon SelectUp
  1191. begin
  1192.   put the log10 of textfield "Display" into textfield "Display"
  1193.   resetcalculator()
  1194. Display
  1195. Display
  1196. resetcalculator
  1197. hon SelectUp
  1198. begin
  1199.   put the exp of textfield "Display" into textfield "Display"
  1200.   resetcalculator()
  1201. Display
  1202. Display
  1203. resetcalculator
  1204. on SelectUp
  1205. begin
  1206.   get textfield "Display"
  1207.   put (cot of (it * 3.14159265358979 / 180)) into textfield "Display"
  1208.   resetcalculator()
  1209. Display
  1210. Display
  1211. resetcalculator
  1212. jon SelectUp
  1213. begin
  1214.   put (textfield "Display") * 1.8 + 32 into textfield "Display"
  1215.   resetcalculator()
  1216. Display
  1217.  Display
  1218. resetcalculator
  1219. hon SelectUp
  1220. begin
  1221.   put (textfield "Display") * 0.9144 into textfield "Display"
  1222.   resetcalculator()
  1223. Display
  1224. Display
  1225. resetcalculator
  1226. lon SelectUp
  1227. begin
  1228.   put (textfield "Display") * 1.09361398 into textfield "Display"
  1229.   resetcalculator()
  1230. Display
  1231. =Display
  1232. resetcalculator
  1233. qon SelectUp
  1234. begin
  1235.   put ((textfield "Display") - 32) * 0.555555 into textfield "Display"
  1236.   resetcalculator()
  1237. Display
  1238. Display
  1239. resetcalculator
  1240. fon SelectUp
  1241. begin
  1242.   put (textfield "Display") * 2.54 into textfield "Display"
  1243.   resetcalculator()
  1244. Display
  1245. RDisplay
  1246. resetcalculator
  1247. jon SelectUp
  1248. begin
  1249.   put (textfield "Display") * 0.393701 into textfield "Display"
  1250.   resetcalculator()
  1251. Display
  1252. Display
  1253. resetcalculator
  1254. ion SelectUp
  1255. begin
  1256.   put (textfield "Display") * 1.60934 into textfield "Display"
  1257.   resetcalculator()
  1258. Display
  1259. PrDisplay
  1260. resetcalculator
  1261. lon SelectUp
  1262. begin
  1263.   put (textfield "Display") * 0.45359237 into textfield "Display"
  1264.   resetcalculator()
  1265. Display
  1266. ^QDisplay
  1267. resetcalculator
  1268. jon SelectUp
  1269. begin
  1270.   put (textfield "Display") * 2.204624 into textfield "Display"
  1271.   resetcalculator()
  1272. Display
  1273. KDisplay
  1274. resetcalculator
  1275. ion SelectUp
  1276. begin
  1277.   put (textfield "Display") * 0.62137 into textfield "Display"
  1278.   resetcalculator()
  1279. Display
  1280. Display
  1281. resetcalculator
  1282. Lon SelectUp
  1283. begin
  1284.   global memory
  1285.   put textfield "Display" into memory
  1286. memory
  1287. Display
  1288. Xon SelectUp
  1289. begin
  1290.   global memory
  1291.   checkit()
  1292.   put memory into textfield "Display"
  1293. memory
  1294. checkit
  1295. Display
  1296. Jon SelectUp
  1297. begin
  1298.   global memory
  1299.   add textfield "Display" to memory
  1300. memory
  1301. Display
  1302. Lon PageClose begin
  1303.   put 0 into textfield "Display"
  1304. checkit begin
  1305.   global operator
  1306.   global doit
  1307.   if (operator is not empty) and (doit is false) then begin
  1308. put zero into textfield "Display"
  1309. put true into doit
  1310.   end
  1311. resetcalculator begin
  1312.   global operator, doit
  1313.   put "=" into operator
  1314.   put false into doit
  1315. resetcalculator
  1316. checkit
  1317. Display
  1318. /    operator
  1319. Display
  1320. /    operator
  1321. Directory Utility
  1322. FileA
  1323. FileB
  1324. CGraphics RAM: %3
  1325.    Other RAM: %4
  1326.           OS: %k
  1327.    Processor: %1
  1328. Delete
  1329. COPY ->
  1330. Rename
  1331. MakeDir
  1332. Image
  1333. Sound
  1334. Music
  1335. <- COPY
  1336. Delete
  1337. Rename
  1338. MakeDir
  1339. Image
  1340. Sound
  1341. Music
  1342. Halt Music
  1343.     Bookshelf
  1344. WORK:
  1345. WORK:
  1346. About
  1347. on SelectUp
  1348. begin
  1349.   put strdir of selector "FileA" into temporary
  1350.   put strdir of selector "FileB" into selector "FileA"
  1351.   put temporary into selector "FileB"
  1352. FileA
  1353. FileB
  1354. FileA
  1355. FileB
  1356. Mon SelectUp
  1357. begin
  1358.   put strdir of selector "FileA" into selector "FileB"
  1359. FileA
  1360. FileB
  1361. Mon SelectUp
  1362. begin
  1363.   put strdir of selector "FileB" into selector "FileA"
  1364. FileB
  1365. FileA
  1366. kon SelectUp
  1367. begin
  1368.   deletefile selector "FileA"
  1369.   put strdir of selector "FileA" into selector "FileA"
  1370. FileA
  1371. FileA
  1372. FileA
  1373. on SelectUp
  1374. begin
  1375.   copyfile selector "FileA" to strdir of selector "FileB"
  1376.   put strdir selector "FileB" into selector "FileB"
  1377. FileA
  1378. FileB
  1379. FileB
  1380. FileB
  1381. on SelectUp
  1382. begin
  1383.   ask "Enter new name:" with selector "FileA"
  1384.   if it is not empty then begin
  1385. rename selector "FileA" as it
  1386. put strdir of selector "FileA" into selector "FileA"
  1387.   end
  1388. Enter new name:
  1389. FileA
  1390. FileA
  1391. FileA
  1392. FileA
  1393. on SelectUp
  1394. begin
  1395.   ask "Enter path and directory name:" with strdir of selector "FileA"
  1396.   if it is not empty then begin
  1397. makedir it
  1398. put strdir of selector "FileA" into selector "FileA"
  1399.   end
  1400. Enter path and directory name:
  1401. FileA
  1402. FileA
  1403. FileA
  1404. Don SelectUp
  1405. begin
  1406.   show image selector "FileA" fade loops zero
  1407. FileA
  1408. 4on SelectUp
  1409. begin
  1410.   play sound selector "FileA"
  1411. FileA
  1412. 3on SelectUp
  1413. begin
  1414.   show text selector "FileA"
  1415. FileA
  1416. 4on SelectUp
  1417. begin
  1418.   play music selector "FileA"
  1419. FileA
  1420. on SelectUp
  1421. begin
  1422.   copyfile selector "FileB" to strdir of selector "FileA"
  1423.   put strdir of selector "FileA" into selector "FileA"
  1424. FileB
  1425. FileA
  1426. FileA
  1427. FileA
  1428. kon SelectUp
  1429. begin
  1430.   deletefile selector "FileB"
  1431.   put strdir of selector "FileB" into selector "FileB"
  1432. FileB
  1433. FileB
  1434. FileB
  1435. on SelectUp
  1436. begin
  1437.   ask "Enter new name:" with selector "FileB"
  1438.   if it is not empty then begin
  1439. rename selector "FileB" as it
  1440. put strdir of selector "FileB" into selector "FileB"
  1441.   end
  1442. Enter new name:
  1443. FileB
  1444. FileB
  1445. FileB
  1446. FileB
  1447. on SelectUp
  1448. begin
  1449.   ask "Enter path and directory name:" with strdir of selector "FileB"
  1450.   if it is not empty begin
  1451. makedir it
  1452. put strdir of selector "FileB" into selector "FileB"
  1453.   end
  1454. Enter path and directory name:
  1455. FileB
  1456. FileB
  1457. FileB
  1458. Don SelectUp
  1459. begin
  1460.   show image selector "FileB" fade loops zero
  1461. FileB
  1462. 4on SelectUp
  1463. begin
  1464.   play sound selector "FileB"
  1465. FileB
  1466. 3on SelectUp
  1467. begin
  1468.   show text selector "FileB"
  1469. FileB
  1470. 4on SelectUp
  1471. begin
  1472.   play music selector "FileB"
  1473. FileB
  1474. 5on SelectUp
  1475. begin
  1476.   set midi to the hilite of me
  1477. Von SelectUp
  1478. begin
  1479.   answer "This button is disabled\nin this demonstration book."
  1480. This button is disabled
  1481. in this demonstration book.
  1482. Lon SelectUp
  1483. begin
  1484.   selectpathA()
  1485. on MenuUp
  1486. begin
  1487.   changebutton()
  1488. selectpathA
  1489. changebutton
  1490. Lon SelectUp
  1491. begin
  1492.   selectpathA()
  1493. on MenuUp
  1494. begin
  1495.   changebutton()
  1496. selectpathA
  1497. changebutton
  1498. Lon SelectUp
  1499. begin
  1500.   selectpathA()
  1501. on MenuUp
  1502. begin
  1503.   changebutton()
  1504. selectpathA
  1505. changebutton
  1506. Lon SelectUp
  1507. begin
  1508.   selectpathB()
  1509. on MenuUp
  1510. begin
  1511.   changebutton()
  1512. selectpathB
  1513. changebutton
  1514. Lon SelectUp
  1515. begin
  1516.   selectpathB()
  1517. on MenuUp
  1518. begin
  1519.   changebutton()
  1520. selectpathB
  1521. changebutton
  1522. Lon SelectUp
  1523. begin
  1524.   selectpathB()
  1525. on MenuUp
  1526. begin
  1527.   changebutton()
  1528. selectpathB
  1529. changebutton
  1530. Lon SelectUp
  1531. begin
  1532.   selectpathA()
  1533. on MenuUp
  1534. begin
  1535.   changebutton()
  1536. selectpathA
  1537. changebutton
  1538. Lon SelectUp
  1539. begin
  1540.   selectpathA()
  1541. on MenuUp
  1542. begin
  1543.   changebutton()
  1544. selectpathA
  1545. changebutton
  1546. Lon SelectUp
  1547. begin
  1548.   selectpathA()
  1549. on MenuUp
  1550. begin
  1551.   changebutton()
  1552. selectpathA
  1553. changebutton
  1554. Lon SelectUp
  1555. begin
  1556.   selectpathB()
  1557. on MenuUp
  1558. begin
  1559.   changebutton()
  1560. selectpathB
  1561. changebutton
  1562. Lon SelectUp
  1563. begin
  1564.   selectpathB()
  1565. on MenuUp
  1566. begin
  1567.   changebutton()
  1568. selectpathB
  1569. changebutton
  1570. Lon SelectUp
  1571. begin
  1572.   selectpathB()
  1573. on MenuUp
  1574. begin
  1575.   changebutton()
  1576. selectpathB
  1577. changebutton
  1578. 3on SelectUp
  1579. begin
  1580.   answer "Directory Utility"
  1581. Directory Utility
  1582. selectpathA
  1583. begin
  1584.   put the name of me into selector "FileA"
  1585. selectpathB
  1586. begin
  1587.   put the name of me into selector "FileB"
  1588. changebutton
  1589. begin
  1590.   ask "Enter path:" with the name of me
  1591.   if it is not empty then set the name of me to it
  1592. changebutton
  1593. selectpathB
  1594. selectpathA
  1595. FileA
  1596. FileB
  1597. Enter path:
  1598. Calendar
  1599. >FORM
  1600. *ILBMBMHD
  1601. DFORM
  1602. 0ILBMBMHD
  1603. ILBMBMHD
  1604. +Database Example (One form with four pages)
  1605.     Last Name
  1606. First Name
  1607. Company
  1608. Street
  1609. State
  1610. Country
  1611. Notes
  1612. Phone
  1613. @MMenu
  1614. @DDelete Page
  1615. @wNew Page
  1616. @FFind
  1617. @SSort
  1618. @RReturn
  1619. @BBookshelf
  1620. @NNext
  1621. @PPrevious
  1622. Number
  1623. Company
  1624. @AApps Menu
  1625. Phone
  1626. @11 Dial
  1627. @22 Dial
  1628. Ton SelectUp
  1629. begin
  1630.   answer "This command is NOT\nimplemented in the Demo Book."
  1631. This command is NOT
  1632. implemented in the Demo Book.
  1633. Ton SelectUp
  1634. begin
  1635.   answer "This command is NOT\nimplemented in the Demo Book."
  1636. This command is NOT
  1637. implemented in the Demo Book.
  1638. Von SelectUp
  1639. begin
  1640.   answer "This command is disabled\nin the demonstration book."
  1641. This command is disabled
  1642. in the demonstration book.
  1643. Ton SelectUp
  1644. begin
  1645.   answer "This command is NOT\nimplemented in the Demo Book."
  1646. This command is NOT
  1647. implemented in the Demo Book.
  1648. bon SelectUp
  1649. begin
  1650.   answer "This command is NOT\n" &
  1651.     "implemented in the Demo Book."
  1652. This command is NOT
  1653. implemented in the Demo Book.
  1654. /on SelectUp
  1655. begin
  1656.   dial textfield "Phone"
  1657. Phone
  1658. -on SelectUp
  1659. begin
  1660.   dial textfield "FAX"
  1661. Smallbridge
  1662. 1805 Esquire Street
  1663. Renown, Ltd.
  1664. 05-14-93
  1665. Horatio
  1666. Hornblower
  1667. 1-804/555-1000
  1668. Chichester
  1669. 1967 Francis Street
  1670. 12-03-92
  1671. William
  1672. 1-555/1797
  1673. ITALIA
  1674. Tuscany
  1675. Volterra
  1676. 1796 Marchesa Way
  1677. Edward Yorke & Associates, Inc.
  1678. 11-15-92
  1679. Nicholas
  1680. Ramage
  1681. Rhymes with "damage."
  1682. 1-804/555-3432
  1683. 1-804/555-3432
  1684. 23230
  1685. Yorktown
  1686. 123 Captain Road
  1687. Nonsuch, Inc.
  1688. 02-15-93
  1689. Barbara
  1690.     Wellesley
  1691. HFORM
  1692. 4ILBMBMHD
  1693.  A textfield is like a small word
  1694. processor contained in an
  1695. .object. The textfields support color and style
  1696. font, color, and style changes;
  1697. color fonts; mouse scrolling;
  1698. transparent backgrounds;
  1699. hypertext; and more. The
  1700. textfields have everything
  1701. you need to create video and
  1702. multimedia presentations
  1703. with ease.
  1704. Lydia
  1705.   swung away,
  1706. close-hauled
  1707. , clawing her
  1708. way up to windward of the
  1709. flaming wreck. 
  1710. Hornblower
  1711.  gazed back at
  1712. her. There were bright
  1713. flames now to be seen,
  1714. spouting from the
  1715. shattered bows -- the red
  1716. glow was reflected in the
  1717. heaving sea around her.
  1718. And then, as they looked,
  1719. they saw the flames
  1720. vanish abruptly, like an
  1721. extinguished candle. There
  1722. was nothing to be seen at
  1723. all, nothing save darkness
  1724. and the faint glimmer of
  1725. the wave crests. The seas
  1726. had swallowed the
  1727. Natividad
  1728.   before the
  1729. flames could destroy her.
  1730. from 
  1731. Beat to Quarters 
  1732. C. S. Forester
  1733. Textfields
  1734. PCECIL SCOTT FORESTER (1899-1965), British
  1735.  Novelist. Created the character of      
  1736.  Horatio Hornblower in a series of novels
  1737.  that take place during the wars with    
  1738.  France (1793-1815). These novels are    
  1739.  noted for their vivid descriptions of   
  1740.  square-rigger seamanship and the complex
  1741.  Hornblower character.                   
  1742. iCLOSE-HAULED, having the sails    
  1743.  trimmed so that the ship proceeds
  1744.  as close to the wind as possible.
  1745. on SelectUp
  1746. begin
  1747. NHORATIO HORNBLOWER       
  1748.  Captain of His Majesty's
  1749.  Frigate Lydia.          
  1750. on SelectUp
  1751. begin
  1752. IWILLIAM BUSH            
  1753. First Lieutenant of His
  1754. Majesty's frigate Lydia
  1755. on SelectUp
  1756. begin
  1757. An imagefield is an object that
  1758. contains one or more image
  1759. frames. You can paint on the
  1760. image with the paint tools.
  1761. You can also animate an
  1762. imagefield or use it as a
  1763. button. Try the imagefield
  1764. slider to the left or press
  1765. down on the lamp with the
  1766. selection (left) mouse button.
  1767. Imagefields
  1768. Selectors are control panels
  1769. used for specialized input.
  1770. Many selectors offer ways
  1771. of selecting an item in a list;
  1772. you can attach actions or a
  1773. script to each item and to the
  1774. selector as a whole. Other
  1775. selectors, like file selectors,
  1776. perform unque functions that
  1777. would be difficult for you to
  1778. program on your own.
  1779.     Selectors
  1780. Selectors Types
  1781. theClock
  1782. Calendar
  1783.     Check Box
  1784. Clock
  1785. Cycle
  1786. Empty
  1787. Function
  1788. Information
  1789. Item Slider
  1790. Matrix
  1791. Multiple Choice
  1792. Number
  1793. Palette
  1794. Pop-up Menu
  1795. Radio
  1796. Scrolling List
  1797. Single Choice
  1798. Slider
  1799. Tacking
  1800. Close-hauled
  1801. Fetch
  1802. Reach
  1803. Broad reach
  1804. Gybing
  1805. Broad
  1806. Grace
  1807. Franklin
  1808. Aon SelectUp
  1809. begin
  1810.   set the pen of selector "theClock" to me
  1811. theClock
  1812. Fleet Admiral
  1813. Admiral
  1814. Vice Admiral
  1815. Rear Admiral
  1816. Marryat
  1817. Forester
  1818. Tinker
  1819. Tailor
  1820. Soldier
  1821. Sailor
  1822. A timer executes actions or a
  1823. script at a specified interval
  1824. after the page on which the
  1825. timer rests is opened. Timers
  1826. provide easy ways to create
  1827. non-interactive video
  1828. presentations. Timers are
  1829. usually left invisible when in
  1830. use. The book author will
  1831. choose 
  1832. Show All
  1833.   to make
  1834. changes to the timers.
  1835. This timer scrolls text in a
  1836. textfield once every second.
  1837. John Jervis
  1838. Horatio Nelson
  1839. Cuthbert Collingwood
  1840. Edward Pellew
  1841. Timer Objects
  1842. nFORM
  1843. ZANIMFORM
  1844. ILBMBMHD
  1845. wwwwCRNG
  1846. ILBMANHD
  1847. con]KR4>
  1848. }}<;CS
  1849. ILBMANHD
  1850. gOOOHWT^?
  1851. ILBMANHD
  1852. o?;;??
  1853. o?;;??
  1854. [[77/_
  1855. 4,Z;>~
  1856. ^ILBMANHD
  1857. ILBMANHD
  1858. con]KR4>
  1859. }}<;CS
  1860. ANIMFORM
  1861. ILBMBMHD
  1862. ADPAN
  1863. wwwwCRNG
  1864. ILBMANHD
  1865. ILBMANHD
  1866. ILBMANHD
  1867. RILBMANHD
  1868. ^^]=:u
  1869. ILBMANHD
  1870. ILBMANHD
  1871. 8|||8
  1872. ,\R    %
  1873. 8|||8
  1874. ILBMANHD
  1875. ILBMANHD
  1876. zFORM
  1877. fANIMFORM
  1878. ILBMBMHD
  1879. wwwwCRNG
  1880. ILBMANHD
  1881. ILBMANHD
  1882. ILBMANHD
  1883. ILBMANHD
  1884. ILBMANHD
  1885. ILBMBMHD
  1886. Helm produces many different
  1887. messages as you interact with
  1888. a book, such as clicking on a
  1889. button or turning a page.
  1890. The event functions in scripts
  1891. give an object a way to
  1892. respond to these events; Helm
  1893. handles the interaction with
  1894. the user, freeing the author
  1895. to concentrate on the creative
  1896. aspect of programming.
  1897. SelectUp
  1898. SelectDown
  1899. MenuUp
  1900. MenuDown
  1901. MenuChoice
  1902. BookOpen
  1903.     BookClose
  1904. PreOpen
  1905. PageOpen
  1906.     PageClose
  1907. Return
  1908. Timer
  1909. Event Functions
  1910. Helm Recognizes these Events
  1911. The script displayed in the
  1912. textfield to the left is a copy
  1913. of the script that is attached
  1914. to the red "Press to Play"
  1915. button. When you click on this
  1916.  button with the selection (left)
  1917. mouse button, Helm will
  1918. run the script. Notice that
  1919. the event function will not
  1920. run until you release (that is,
  1921. "let 
  1922. ) the selection button.
  1923. on SelectUp
  1924. begin
  1925.   set color zero to bright blue
  1926.   answer "Hello"
  1927.   set color zero to black
  1928.   play notes "cq e gh"
  1929. Script Example
  1930. @PPress to Play
  1931. @OVariation One
  1932. @TVariation Two
  1933. xon SelectUp
  1934. begin
  1935.   set color zero to bright blue
  1936.   answer "Hello"
  1937.   set color zero to black
  1938.   play notes "cq e gh"
  1939. Hello
  1940. cq e gh
  1941. on SelectUp
  1942. begin
  1943.   lock display
  1944.   put "red" into word 9 of textfield "test"
  1945.   put "wait" into word 10 of textfield "test"
  1946.   put "1" into word 11 of textfield "test"
  1947.   set the script of button "Press to Play" to textfield "test"
  1948.   unlock display
  1949.     test
  1950. Press to Play
  1951. on SelectUp
  1952. begin
  1953.   lock display
  1954.   put "\"Hello\"" into word 11 of textfield "test"
  1955.   put "blue" into word 9 of textfield "test"
  1956.   put "answer" into word 10 of textfield "test"
  1957.   set the script of button "Press to Play" to textfield "test"
  1958.   unlock display
  1959. "Hello"
  1960.     test
  1961. answer
  1962. Press to Play
  1963. You must understand four
  1964. basic object-oriented concepts
  1965. before you can program in
  1966. Helm: (1) Scripts are attached
  1967. to objects. (2) Scripts consist
  1968. of functions. (3) Event
  1969. functions show Helm how to
  1970. respond to specified events. 
  1971. (4) Events are created when
  1972. the user interacts with the
  1973. objects in a book.
  1974. HOW TO PROGRAM
  1975. +1. Create an object, such as a button, with
  1976. 1a tool chosen from the 
  1977. Draw tools window
  1978. *2. Choose the Selection tool from the Draw
  1979.  tools window to edit the object.
  1980. &3. Double click the object to edit the
  1981. (object's name and change its settings in
  1982. +the object's info window. Then select Exit.
  1983. &4. With the object still active -- the
  1984. 'control points are visible on an active
  1985. *object -- choose Script... from the Object
  1986. &pull down menu; the Script Editor will
  1987. )open. (You could also have chosen Actions
  1988. +to attach a simple multimedia action list.)
  1989. %5. Determine which event you want the
  1990. !object to respond to and enter it
  1991. $followed by "begin" into the editor.
  1992. )6. Enter the body of your event function,
  1993. (followed by "end" to indicate the end of
  1994. %the function. Then choose OK from the
  1995. $editor pull-down menu to compile the
  1996. )script and leave the editor. YOU'RE DONE!
  1997. 37. Select the 
  1998. Browse tool
  1999.  and then click on
  2000. the object to test your work.
  2001. -How to Program (The Easy Object-oriented Way)
  2002. ptopaz                          
  2003. 3o3xg
  2004. Make Interactive Kiosks
  2005. Video Presentations
  2006. Personal Programming
  2007. &To make applications, you draw objects
  2008. 'on screen and attach actions or scripts
  2009. to the objects.
  2010. It's that simple.
  2011. You create objects with
  2012. tools selected from this
  2013. tool window. Use the Selection
  2014. Tool to edit existing objects.
  2015. Use the Browse tool to use
  2016. the book when you are
  2017. finished creating or editing
  2018. objects. All other tools
  2019. create objects.
  2020.     Selection
  2021. Browse
  2022. Use the Draw Tools!
  2023. HFORM
  2024. 4ILBMBMHD
  2025. But that's not all.
  2026. PAINT TOOLS
  2027. Helm's paint tools are some of
  2028. the best in the business. They
  2029. #are useful for editing and creating
  2030. artwork or animated buttons.
  2031. And the painting features of
  2032. Helm are so good that you can
  2033. even create your own custom
  2034. paint program...Your own AGA
  2035. paint program.
  2036. Paint Tools Window
  2037. |FORM
  2038. hILBMBMHD
  2039. Don't forget the Forms!
  2040. ;Objects on a form will appear on all of the form's daughter
  2041. ?pages. The data contained in these objects can be different for
  2042. 3each page. This is great for making books that have
  2043. )different text or pictures on every page.
  2044. Objects on a form...
  2045. ...appear on all the
  2046. form's daughter
  2047. pages.
  2048. Now that you know
  2049.  something about Helm.
  2050. Try creating your own software.
  2051. You will be surprised at how
  2052. "quickly you can build colorful and
  2053.  useful applications.
  2054. Time's wasting!
  2055. ~ Main Menu
  2056. -on PageOpen
  2057. begin
  2058.   set the pointer to 0
  2059. ~SMUSSHDR
  2060. MaryCeleste.SMUSINS1
  2061. Piano
  2062. A    TRAK
  2063. )    SOND
  2064. pFORM
  2065. \8SVXVHDR
  2066. ,Created Or Edited With Synthia Professional.BODY
  2067. (?MGG\
  2068. 2;O`& 
  2069. $ElV89
  2070. >@4'1B@6 
  2071. (+?MMVGTG_\
  2072. 3>\XFQ{T
  2073. ,B?^ZZK
  2074. -?<K^Zl?
  2075. 22;TOx`6&) "
  2076. '$>ETlyV88%9'
  2077. 0)(<WO0)
  2078. (<<G7
  2079. 'L[6    
  2080. #098+%
  2081. '6>73*
  2082.  -.*$
  2083. $,2,&
  2084. *381(
  2085. %41- 
  2086. )/(**
  2087. .)..%
  2088. %)/)"!
  2089. ',+'! "
  2090. #,22*),%
  2091.  )2)((*'
  2092. ,)'!%)!
  2093. &)!!&+
  2094. '-)'*32#
  2095. '+&',23
  2096. ('3>3
  2097. !4A:(
  2098. !173$
  2099. "/3+#
  2100. $12-# 
  2101. &21,'#
  2102. *.0++
  2103. )+-.%!
  2104. $+/+%#
  2105. #+.&+!
  2106. $*&+'#
  2107. %()*)&
  2108. &(+).%
  2109. $'%,,$
  2110. #$(/.!
  2111. +,,)!
  2112.  *+-+
  2113. "&,++!
  2114.  %*.+
  2115. !$-/.
  2116. #&#" 
  2117. "%"#"
  2118. !#"#&
  2119. AWTD--!
  2120. 34/.'%
  2121. "Pd`XM5'$-6EE7/,%% "
  2122. %EFT=
  2123. $6HQD&
  2124. ->Qh`J
  2125. 4HMKA*
  2126. &<U\Z8    
  2127.     (268'
  2128. )D]mV>
  2129. 4GJD6#
  2130. 0K\`[6
  2131. /9@:*
  2132. *I[aU3
  2133. "7LJC3
  2134. ,[ugA$
  2135. ';?0.(
  2136. Fgq\>$
  2137. +03;2
  2138.  GffO8(
  2139. #4=9.
  2140. )R^[M9*
  2141. ,=F>,$#%$
  2142. /MXQE8'
  2143. .:81'""#
  2144. 8NSTH;*
  2145. *1/&"#!
  2146. 8LXQKF,
  2147. *(%'!
  2148. 7AJTO8 
  2149. %*+3+&-. 
  2150. (BQRE0 
  2151. %%"$*(
  2152. 1JVPC8'
  2153. '%'+10'
  2154. 2HGFB2
  2155. 2@GJ@+
  2156. .2+!##$"
  2157. 5GNPC,
  2158. -?OH4&
  2159. 2FJ>5(
  2160. !% #('%# 
  2161. 5@D@1"
  2162. 2CF=2%! 
  2163. #$#%)(!
  2164. /??3*%
  2165. 5=962$
  2166. "3=>;3("!#
  2167. +483&
  2168. 1?=.'/5*
  2169. !9:/)/93"
  2170. (2,'/96."
  2171. '&(/5760!
  2172. !+/2<=/
  2173. $&-;A:+
  2174. %1>@4$
  2175. (;@:4/
  2176. .6889-
  2177. *17?:&
  2178. %2AB4
  2179. (;@>/
  2180. ,:?9-
  2181. -<?6&
  2182. 1<</"
  2183. 4>3+'
  2184. %232-'
  2185. %/211(
  2186. !(24+ 
  2187.  .4/*#
  2188. "-/+)(
  2189. #'),.&
  2190. $-2/#
  2191. ",.+!
  2192. $))&!
  2193. $'))"
  2194. #'+,#
  2195. !).+!
  2196. ',+)$
  2197. #).+!
  2198. $+-+"
  2199. !,+$ 
  2200. %*%"$%
  2201. %##&(%
  2202. !$(($
  2203. !'%')
  2204.  "(,'
  2205. $+.*!
  2206. "//0+
  2207. #+21(
  2208. $/12'
  2209. &/3/'
  2210. &.31#
  2211. '12+%
  2212. (/1,#
  2213. )//)%
  2214. !(.,+(
  2215.  (*,-(
  2216. $*./'
  2217. $+/.(
  2218. #+2.#
  2219. &.0+&
  2220. %+/-'
  2221. %,0.&
  2222. %//,(
  2223. &,00&
  2224. $.2.$
  2225. &/3-!
  2226.  +.,'"
  2227. ")+,( 
  2228. (-+%!
  2229. !(+*' 
  2230.  (+(&"
  2231.  '('&#
  2232.  %%'($
  2233. #%'(&
  2234. !$(*'
  2235.  (+(%
  2236. "'*)&
  2237. !'*,&
  2238.  '+*%
  2239. !'++$
  2240. !)+)$
  2241. "(**#
  2242. !&,)!
  2243. !)+& 
  2244. #)(%"
  2245. #''%"
  2246. "&%%$
  2247.  #&(#
  2248. !%:GJ?'
  2249. -@HI@8/ 
  2250. +O``REJF7,&$ $$
  2251. 0D@AIJ98@0'%!
  2252. &2<7#
  2253. !.=3 
  2254. 4CJTjgOLGA<5/#
  2255. -,.FXOAHSTG7(
  2256. 2SgYKOVUF>C<%
  2257. ')0@A8=O^XKGF<*%(
  2258. 0FHISWSPVZG(!)-%,774<P`[MNYWF<;1(
  2259. %)(6GJJU\I2/02+"#-55:IOTVVXVQPM@-*#
  2260. (>HIKMH<83$""!
  2261. !(/9BCJOMU\T@243-"
  2262. &2AFB@?6'%#
  2263. $&%)7AFOROGDD9786&
  2264. 6?>AGG<6- 
  2265. !-.4GQLFHIECLI4
  2266. %:IE==<0$#* 
  2267. *BH>7CRMIMM=6<4
  2268. %556FH4'08)
  2269. 0.$+?FBEFGHIKC0
  2270. #0<604=?1
  2271. $2715BHFFNVM2
  2272. (,/<HH;,)-%
  2273. "+.,,2;FQVO?0#
  2274. !(,6AE>41,#
  2275.  +=MPLFA=2"
  2276. )37<=<:0("
  2277.  *<IIHML?672(
  2278. %7D?3.&
  2279. -68CPM@=GD832'
  2280. )7322+
  2281. "3DD:;EFCGF6
  2282. "$-5-
  2283. ''" !
  2284. !32-/8AHLLC3%
  2285. #' !%
  2286. +3-''!
  2287. !+)#"&'$%+&
  2288. #039DNQH6( 
  2289. #!$$!&-55'
  2290. #09FMNI@1$
  2291. $+*.,#
  2292. &+364*!
  2293. &1>IOOD. "%
  2294. #(-0(!
  2295. )25-(#
  2296. 1:DMJ<20(
  2297. #(-/0+
  2298. !*()00$
  2299.  3GJ>:90(05+
  2300. '155+
  2301.     "5867965761$
  2302. %)%" 
  2303. -860, 
  2304. &$!%%!
  2305. #'-347:;6.(
  2306. #"#(&
  2307. )*16."
  2308. #'29:;6.(&"
  2309. "')*&
  2310. %22)#!
  2311.  )/0)
  2312. '-49;730+ 
  2313. #(--&"
  2314.  "%(('
  2315. +3/(#
  2316. $-2:?9*#&!
  2317. #.1( 
  2318. !$)-,&
  2319. !'*.* 
  2320. !0<:1+&
  2321. %0.# ""#%%#
  2322. #*04,
  2323. +.'&'
  2324. #560.* ",.("$&'%"&'#!!
  2325. &/22*
  2326. !"$--$
  2327. $'())()('&&'&$$%%$$&&&"
  2328. "%%(('('%#'*#  $*-+%
  2329. (33,$
  2330.  %%&%$$)-)
  2331. !&(,/(! 
  2332. "***%
  2333. &-1* 
  2334.  #'+.$
  2335. !!!%*+(*)$
  2336. '+()&
  2337. '+& #&
  2338. !(*(*-+"
  2339. "++(&
  2340. $$"%% 
  2341.  $$%+-+*&#
  2342. $+**%
  2343. (..*%!"&(%$
  2344.  %&++##'*''(%
  2345. "($!$&&&)-*#
  2346. "#! !##$),*))%
  2347. !%(*-0*"
  2348. " ",1.)$
  2349. "$"$!
  2350. ',0/' 
  2351. !%&$!
  2352. !##$$"
  2353. )--($"!!#('!
  2354. "##&' 
  2355. "*(#%'$ !&&#$&!
  2356.  #&&" %&"#+,%
  2357. #$!!"
  2358. $,,( 
  2359. $-+$! 
  2360.  #"!$%!
  2361. !&%#$$!
  2362. !$&&$
  2363. "#""#!
  2364.   !%#
  2365. &'$""
  2366. "$"#'*&
  2367. ! !$((('#
  2368.  &')+)"
  2369. "#$(,*#
  2370.  &+*$#&%
  2371. "&%$()%!!$"
  2372. ##"%'&$%'%!
  2373. "%$#%'%%('
  2374. #&&'*+%
  2375. "#%)+'$##
  2376. %*(%'(#
  2377. "&%%(*("
  2378.  #(*'""%$ 
  2379. $&$"%&#"$% 
  2380.  #""$$$%'&"
  2381. !%$"$'&$&$
  2382. "&&&((#
  2383.  #"$)+'"! 
  2384.  &*(%%% 
  2385. "&$$()% 
  2386.  #(*&""$"
  2387.  $&$$&&# "$!
  2388.  $#"$%#"%'#
  2389. "%#"%'$#&%
  2390. #&%%((#
  2391.  "#$(*&""#
  2392. %*'$%'#
  2393. "&%%')'"
  2394.  #()&"#%# 
  2395. $&$"%&#"$% 
  2396.  #""$$$%'&"
  2397. !%$"$'&$&$
  2398. "&&&((#
  2399.  #"$)+'"! 
  2400.  &*(%%% 
  2401. "&$$()% 
  2402.  #(*&""$"
  2403.  $&$$&&# "$!
  2404.  $#"$%#"%'#
  2405. "%#"%'$#&%
  2406. #&%%((#
  2407.  "#$(*&""#
  2408. %*'$%'#
  2409. "&%%')'"
  2410.  #()&"#%# 
  2411. $&$"%&#"$% 
  2412.  #""$$$%'&"
  2413. !%$"$'&$&$
  2414. "&&&((#
  2415.  #"$)+'"! 
  2416.  &*(%%% 
  2417. "&$$()% 
  2418.  #(*&""$"
  2419.  $&$$&&# "$!
  2420.  $#"$%#"%'#
  2421. "%#"%'$#&%
  2422. #&%%((#
  2423.  "#$(*&""#
  2424. %*'$%'#
  2425. "&%%')'"
  2426.  #()&"#%# 
  2427. $&$"%&#"$% 
  2428.  #""$$$%'&"
  2429. !%$"$'&$&$
  2430. "&&&((#
  2431.  #"$)+'"! 
  2432.  &*(%%% 
  2433. "&$$()% 
  2434.  #(*&""$"
  2435.  $&$$&&# "$!
  2436.  $#"$%#"%'#
  2437. "%#"%'$#&%
  2438. #&%%((#
  2439.  "#$(*&""#
  2440. %*'$%'#
  2441. "&%%')'"
  2442.  #()&"#%# 
  2443. $&$"%&#"$% 
  2444.  #""$$$%'&"
  2445. !%$"$'&$&$
  2446. "&&&((#
  2447.  #"$)+'"! 
  2448.  &*(%%% 
  2449. "&$$()% 
  2450.  #(*&""$"
  2451.  $&$$&&# "$!
  2452.  $#"$%#"%'#
  2453. "%#"%'$#&%
  2454. #&%%((#
  2455.  "#$(*&""#
  2456. %*'$%'#
  2457. "&%%')'"
  2458.  #()&"#%# 
  2459. $&$"%&#"$% 
  2460.  #""$$$%'&"
  2461. !%$"$'&$&$
  2462. "&&&((#
  2463.  #"$)+'"! 
  2464.  &*(%%% 
  2465. "&$$()% 
  2466.  #(*&""$"
  2467.  $&$$&&# "$!
  2468.  $#"$%#"%'#
  2469. "%#"%'$#&%
  2470. #&%%((#
  2471.  "#$(*&""#
  2472. %*'$%'#
  2473. "&%%')'"
  2474. zFORM
  2475. f8SVXVHDR
  2476. eagle
  2477. Audio Master
  2478. %MPH 
  2479. +* ,)
  2480. '4 + 
  2481. ' #G@
  2482. "9O8&'4
  2483. 'H," 
  2484. - 54 
  2485. At midnight I was at the tiller and suddenly noticed a line of clear sky
  2486. between the south and southwest. I called to the other men that the sky
  2487. was clearing, and then a moment later I realized that what I had seen was
  2488. not a rift in the clouds but the white crest of an enormous wave. During
  2489. twenty-six years' experience of the ocean in all its moods I had not
  2490. encountered a wave so gigantic. It was a mighty upheaval of the ocean, a
  2491. thing quite apart from the big white-capped seas that had been our
  2492. tireless enemies for many days. I shouted, "For God's sake, hold on! It's
  2493. got us!" Then came a moment of suspense that seemed drawn out into hours.
  2494. White surged the foam of the breaking sea around us. We felt our boat
  2495. lifted and flung forward like a cork in breaking surf. We were in a
  2496. seething chaos of tortured water; but somehow the boat lived through it,
  2497. half full of water, sagging to the dead weight and shuddering under the
  2498. blow. We baled with the energy of men fighting for life, flinging the
  2499. water over the sides with every receptacle that came to our hands, and
  2500. after ten minutes of uncertainty we felt the boat renew her life beneath
  2501. us. She floated again and ceased to lurch drunkenly as though dazed by the
  2502. attack of the sea. Earnestly we hoped that never again would we encounter
  2503. such a wave.
  2504.   The conditions in the boat, uncomfortable before, had been made worse by
  2505. the deluge of water. All our gear was thoroughly wet again. Our cooking
  2506. stove had been floating about in the bottom of the boat, and portions of
  2507. our last hoosh seemed to have permeated everything. Not until 3 A.M., when
  2508. we were all chilled almost to the limit of endurance, did we manage to get
  2509. the stove alight and make ourselves hot drinks. The carpenter [McCarthy]
  2510. was suffering particularly, but he showed grit and spirt. Vincent had for
  2511. the past week ceased to be an active member of the crew, and I could not
  2512. easily account for his collapse. Physically he was one of the strongest
  2513. men in the boat. He was a young man, he had served on North Sea trawlers,
  2514. and he should have been able to bear hardships better than McCarthy, who,
  2515. not so strong, was always happy.
  2516.   The weather was better on the following day (May 6), and we got a
  2517. glimpse of the sun. Worsley's observation showed that we were not more
  2518. than a hundred miles from the northwest corner of South Georgia. Two more
  2519. days with a favorable wind and we would sight the promised land.
  2520. from SOUTH (1920)
  2521. by Ernest Shackleton
  2522. ptopaz                          
  2523. 3o3xg
  2524. >The complete Helm package contains a manual, 40 example books,
  2525. Cand ability to print books, pages, text, images, and reports. Also,
  2526. ?it allows you create books with more than 15 pages. You can use
  2527. >the full version of Helm to open and distribute books that you
  2528. 4create with HelmLite. For more information, contact:
  2529. *      Eagle Tree Software                 
  2530.       P.O. Box 164
  2531.        Hopewell, VA  23860 U.S.A.
  2532. *      Telephone (Voice/FAX): (804)452-0623
  2533.       Email
  2534.         Compuserve:  72760,1131
  2535. (        GENIE                J.NICKERSON
  2536. (        BIX:                  jnickerson
  2537. -        Internet:         jnickerson@bix.com 
  2538. For More Information
  2539. BHelmLite is a limited version of Helm. If you cannot find the full
  2540. 7version of Helm at your dealer, you can contact Eureka:
  2541.  Eureka Computer Services
  2542.  Adsteeg 10
  2543.  6191 PX Beek(L)
  2544.  The Netherlands
  2545.  FAX:     +31(0)46360188
  2546.  Voice: +31(0)46370800
  2547. *How to Upgrade to the Full Version of Helm
  2548. ILBMBMHD
  2549. RCAMG
  2550. 5ushCRNG
  2551. A  E 
  2552. ;#'`ix
  2553. ;#'`ix
  2554. rQ)XI
  2555.  FORM
  2556. ANIMFORM
  2557. VILBMBMHD
  2558. 5ushCRNG
  2559. ILBMANHD
  2560. ILBMANHD
  2561. ?//''
  2562. ILBMANHD
  2563. ILBMANHD
  2564. `pppxxx|||~
  2565. ILBMANHD
  2566. ILBMANHD
  2567. $ILBMANHD
  2568. @FORM
  2569. ILBMANHD
  2570. ILBMANHD
  2571. ILBMANHD
  2572. ILBMANHD
  2573.