Global Amiga Experience

home *** CD-ROM | disk | FTP | other *** search

/ Global Amiga Experience / globalamigaexperience.iso / graphic / video_presentation / titler_presentation / helm / examples / bookbase (.txt) < prev next >

Wrap

Helm Multimedia Book | 1995-07-10 | 19.9 KB | 422 lines

BookBook Eagle Tree Software 09-30-93 New... Open... Make Copy... Streamline... Preferences... Workbench Help... About... Quit... Paste Clear Select All Cut Page Copy Page Colors Load... Save... Restore Colors Default Colors Brush Colors Image Colors Last Color Font Cycle Grid... Stop Sound Show All Unlock All Edit Form Share Next Page Previous Page First Page Last Page Backward Forward Last Book Browse... Autobrowse... Bookshelf New Page Delete Page New Form Load Form... Save Form... Image Load... Save... Capture... Clipboard Paste Spare Swap Frames Copy to Spare Merge in Front Merge in Back Delete Spare Frame Previous Delete Copy to All Color Remap Transparency Paper <-> Pen Paper -> Pen Count Vertical Horizontal Info... Brush Load... Save... Restore Clipboard Paste Color Remap Transparency Paper <-> Pen Paper -> Pen Center Corner Any Point Any Size Halve Double Halve Width Halve Height Double Width Double Height To PAL To NTSC Vertical Horizontal Shear Vertical Horizontal Rotate Any Angle Paint Matte Color Replace Smear Dissolve Spare Cycle Cycle 2 Gradient Gradient 2 Smudge Chaos Count Custom Dither Edges Object Load... Save... Bring to Front Send to Back Bring Closer Send Farther Group Ungroup Duplicate... Align... Info... Actions... Script... Load... Save... Plain Underline Italic Shadow Font... Spacing... Hypertext Actions... Script... Tools Coordinates Title Bar Palette Colors Patterns Paint Tools Paint Types Histogram Magnifier Messages Draw Tools Layers Pages Author Book... Form... Page... Display... Narrator... Hypertext... Resources... Effect... Effect Area topaz.fontGLOB IndexPage The Mauritius Command Two Years Before the Mast Mr. Midshipman Hornblower The Caine Mutiny Ramage Lieutenant Hornblower Ship of the Line %Admiral Hornblower in the West Indies Beat to Quarters Commodore Hornblower Flying Colors Hornblower and the Atropos Hornblower and the Hotspur Lord Hornblower The African Queen A Passage to MutinyPREF fonts:Book23 Tom. No answer. Tom. No answer. (TAA4M. NOW AE4NSER. TAA4M. NOW AE4NSER. ram:TestBook work:books/BookBase.bak @IIndex ~@NNext @PPrevious @SSort @AAdd @DDelete Title Author Description Publisher Pages Date Finished Evaluation /on SelectUp begin go to page "IndexPage" IndexPage on SelectUp begin Kon SelectUp begin sort by (textfield "Author") & (textfield "Title") Author Title pon SelectUp begin answer "Do want to add a new page?" with "Cancel" or "Add" if it is "Add" create page Do want to add a new page? Cancel }on SelectUp begin answer "Do want to delete this page?" with "Cancel" or "Delete" if it is "Delete" delete this page Do want to delete this page? Cancel Delete Delete on FieldReturn begin get the number of characters of me if it is not 4 then begin answer "The year field must\nhave four digits" click on me end '5<`&S The year field must have four digits on FieldReturn begin get the number of characters of me if it is not ten then begin answer "The ISBN field must\nhave ten digits" click on me end '5<`& The ISBN field must have ten digits Great on SelectDown begin popup "Doubleday & Company, Inc.\n" & "Little, Brown and Company\n" & "W.W. Norton & Company\n" & "Putnam" if it is not empty then put it into textfield "Publisher" Doubleday & Company, Inc. Little, Brown and Company W.W. Norton & Company Putnam Publisher 0316289124 Little, Brown and Company Forester, C. S. Mr. Midshipman Hornblower Mr. Midshipman Hornblower 039330762X W.W. Norton & Company O'Brian, Patrick The Mauritius Command The Mauritius Command Doubleday & Company, Inc. Woulk, Herman The Caine Mutiny The Caine Mutiny Little, Brown and Company Pope, Dudley Ramage Ramage rTTTPAGE Two Years Before the Mast %Admiral Hornblower in the West Indies Beat to Quarters Commodore Hornblower Flying Colors Hornblower and the Atropos Hornblower and the Hotspur Lieutenant Hornblower Lord Hornblower Mr. Midshipman Hornblower Ship of the Line The African Queen A Passage to Mutiny The Mauritius Command Ramage The Caine Mutiny BookBase by Eagle Tree Software (12-02-93) 'Use this Helm book to keep track of the books that you have read. 16 books 5100 total pages IndexPage Books I Have Read INDEX @UUpdate Index @CBrowse Cards @QQuit @BBookshelf @IInformation <on SelectUp begin go to page (line clickedline of me) ron SelectUp begin set the pointer to 6 lock the output put 0 into totalpages put empty into tempindex get the number of pages for n = 2 to it begin go to page n put textfield "Title" after tempindex if n is not it then put newline after tempindex if the name of this page is not textfield "Title" then set the name of this page to textfield "Title" add textfield "Pages" to totalpages end go to page "IndexPage" put tempindex into textfield "Index" put (it - 1) & " books\n" & totalpages & " total pages\n" into textfield "Info" unlock the output set the pointer to 0 5G`PS Title Title Title Pages IndexPage Index books total pages ,on SelectUp begin go to the next page son SelectUp begin answer "Do you want to Quit\nthis book?" with "@NNo" or "@YYes" if it is "Yes" then quit Do you want to Quit this book? @YYes on SelectUp begin set the pointer to 6 lock display set the visibility of layer "Info" to true unlock display with wipe down speed 3 // area 11, 36, 628, 391 set the lock of layer "P1" to true set the pointer to 0 on SelectUp begin set the pointer to 6 lock display set the visibility of layer "Info" to false unlock display with wipe up speed 3 // area 11, 36, 628, 391 set the lock of layer "P1" to false set the pointer to 0 Forester, C. S. The African Queen The African Queen Dana, Richard Henry Two Years Before the Mast Two Years Before the Mast Little, Brown and Company Forester, C. S. Ship of the Line Ship of the Line 0316289329 Little, Brown and Company Forester, C. S. Beat to Quarters Beat to Quarters Little, Brown and Company Forester, C. S. Lieutenant Hornblower Lieutenant Hornblower Little, Brown and Company Forester, C. S. Commodore Hornblower Commodore Hornblower Little, Brown and Company Forester, C. S. Lord Hornblower Lord Hornblower Little, Brown and Company Forester, C. S. %Admiral Hornblower in the West Indies %Admiral Hornblower in the West Indies 0316289396 Little, Brown and Company Forester, C. S. Flying Colors Flying Colors 0316289280 Little, Brown and Company Forester, C. S. Hornblower and the Hotspur Hornblower and the Hotspur 0316289299 Little, Brown and Company Forester, C. S. Hornblower and the Atropos Hornblower and the Atropos 0399117725 Putnam Kent, Alexander A Passage to Mutiny A Passage to Mutiny