*********************************************************************** * Sciptname..: PROMOTE1.SHW * * Date.......: 1st. Jun. 1991, by RMP DATA. * * Purpose....: promotion for DATASHOW v. 1.5B, as an example script. * *********************************************************************** * Other files involved: * sound1.shw * scroll1.shw * promote1.gra, hugo1.gif * Graphic files * entrance.snd, napoleon.snd * Music files * show1.scr - show7.scr * Captured screen files ESCAPE ON * Make sure script can be stopped any time CURSOR ON * Make cursor visible at start TIMEOUT 10 * Set seconds to wait for keyboard (WAITKEY) VARIABLE counttimes 1 * Create variable to count number of runs ATTRIBUTE 31 * Set to blue background, white forground FORGROUND 15 * Set the forground to white BACKGROUND 1 * Set the background to blue CLEARSCREEN DELAYFACTOR 5 * Have writing delayed, typewriter style GOXY 10 4 WRITE "Welcome to a presentation of DATASHOW..." CURSOR OFF GOXY 10 10 LINE 60 GOXY 10 18 LINE 60 GOXY 1 12 SPEAK "W-E-L-L-K-U-M-E" * Talk via system speaker SPEAK "T-OO D-A-TH-A-S-H-U-W" DEFINE /////// ////// /////// ////// /////// // // /////// // // // // // // // // // // // // // // // // // // // // //////// // //////// //////// //////// // // // // // // // // // // // // // // // // // // // // /////// // // // // // /////// // // /////// ////// ENDDEFINE MOTION LEFT 0 * Move the defined area across screen WAIT 1 MOTION RIGHT 79 WAIT 2 SHOWSCREEN "show1.scr" * Show screen saved with CAPTURE MUSIC PROCESS "entrance.snd" WAIT 1 CURSOR ON BACKGROUND 3 * Set the background to cyan CLEARSCREEN GOXY 1 20 WINDOW 79 4 BACKGROUND 7 CLEARSCREEN GOXY 1 1 WINDOW 79 24 ATTRIBUTE 63 * Set to cyan background, white forground GOXY 6 2 BOX 70 14 GOXY 10 4 WRITE "Together with the resident program CAPTURE, you can create pre-" GOXY 10 6 WRITE "sentations fast and easy. You CAPTURE screens from programs and" GOXY 10 8 WRITE "show them from DATASHOW like this screen to be shown here......" WAIT 2 GETSCREEN * Save the current screen to a buffer CURSOR OFF SHOWSCREEN "show2.scr" * Show screen saved with CAPTURE WAIT 2 SPEAK "C-A-P-T-U-R-E" WAIT 1 SPEAK "AE" SPEAK "S-K-R-EE-EE-N" WAIT 2 CURSOR ON PUTSCREEN * Retrieve saved screen from the buffer GOXY 10 10 WRITE "It is a simple task to create scripts and have them shown on" GOXY 10 12 WRITE "the screen with encredible flexibility. Scripts are ordinary" GOXY 10 14 WRITE "ASCII files. Here the easy method to make scripts is shown..." SPEAK "P-U-S-H" WAIT 1 SPEAK "A-N-I" WAIT 1 SPEAK "K-E-I" GOXY 10 20 WAITKEY "Push any key" * Wait for any key to be pushed or TIMEOUT secs CURSOR OFF SHOWSCREEN "show3.scr" * Show screen saved with CAPTURE WAIT 4 SHOWSCREEN "show4.scr" * Show screen saved with CAPTURE WAIT 4 SHOWSCREEN "show5.scr" * Show screen saved with CAPTURE WAIT 4 TEXTSOUND ON BACKGROUND 4 * Set the background to red CLEARSCREEN GOXY 10 4 WRITE "You can Also write your scripts to a printer!" WAIT 3 SHOWSCREEN "show6.scr" * Show screen saved with CAPTURE WAIT 2 BACKGROUND 3 * Set the background to cyan GOXY 13 5 WRITE "PROMOTE1.SHW" WAIT 3 TEXTSOUND OFF DELAYFACTOR 0 CLEARSCREEN GOXY 10 10 BOX 32 2 GOXY 11 11 WRITE "You can create single sounds..." VARIABLE controlloop 1 * Create variable to control loops MARK 1 * Create a mark that can be jumped to VARIABLE soundloop 1 * Create variable to control sound DO "sound1.shw" * Call another (sub) program RELEASE soundloop * Clean up after us, for next time round SCROLL DOWN IFVARIABLE controlloop 3 DO JUMPMARK 2 INCREASE controlloop 1 JUMPMARK 1 MARK 2 * Create a mark that can be jumped to RELEASE controlloop * Clean up after us, for next time round WAIT 1 GOXY 20 8 WRITE "Or play songs, that you write yourself!" GOXY 20 9 LINE 38 MUSIC PROCESS "napoleon.snd" WAIT 1 BACKGROUND 2 * Set the background to green CLEARSCREEN GOXY 10 8 WRITE "Besides this you can control a lot of things yourself. You can" GOXY 10 10 WRITE "draw your own pictures or devellop your own logo in DATASHOW." GOXY 10 12 WRITE "For this purpose there is a menu for graphic drawing..." WAIT 6 SHOWSCREEN "show7.scr" * Show screen saved with CAPTURE WAIT 4 DELAYFACTOR 5 GOXY 26 12 WINDOW 50 5 CLEARSCREEN FORGROUND 1 GOXY 26 12 ATTRIBUTE 47 * Set to green background, white forground BOX 50 5 GOXY 3 3 WRITE "By selecting F4 you can draw your own drawings," GOXY 3 4 WRITE "and then display them from a script like this.." WAIT 4 GOXY 1 1 WINDOW 79 24 GRAPHICS "promote1.gra" GRA CLEARSCREEN GOXY 10 10 WRITE "You can also show GRAPHICs created from other programs." GOXY 10 12 WRITE "Here DataShow display a screen saved in the PCX format -" GOXY 10 14 WRITE "saved from e.g. the program PaintBrush (TM)." WAIT 4 GRAPHICS "chess.pcx" PCX CLEARSCREEN GOXY 10 10 WRITE "AND here DataShow display a screen saved in the GIF" GOXY 10 12 WRITE "format; made by CompuServe; with a wealth of files." WAIT 4 GRAPHICS "hugo1.gif" GIF BACKGROUND 6 FORGROUND 14 CLEARSCREEN GOXY 10 5 WRITE "Remember to register DataShow. You'll then recieve:" WAIT 2 DELAYFACTOR 0 FORGROUND 11 GOXY 12 9 WRITE "- A Runtime version called RUNSHOW for distribution af scripts" WAIT 2 GOXY 12 11 WRITE "- A Manual that can be printed on a printer for overview" WAIT 2 GOXY 12 13 WRITE "- A Utility package for making more music files" WAIT 2 GOXY 12 15 WRITE "- And more music and graphics files" WAIT 2 FORGROUND 14 GOXY 10 19 WRITE "See the READ.ME ascii file for further information!" WAIT 4 DO "scroll1.shw" * Call another (sub) program FORGROUND 15 GOXY 1 10 WRITE "This was run number: " GOXY 22 10 WRITE counttimes SPEAK counttimes WAIT 1 SPEAK "T-I-M-E-S" WAIT 1 GOXY 10 13 WRITE "Now this presentation starts over again, but you can stop it at" GOXY 10 15 WRITE "any time you wish by pressing the escape key. Then in DATASHOW" GOXY 10 17 WRITE "you can try all the marvelous things yourself! Just type SHOW" GOXY 10 19 WRITE "at the operating system prompt, and you can try out DataShow." WAIT 1 GOXY 10 22 WRITE "That's all folks" SPEAK "TH-A-T-S AH-L-L F-OH-L-K-S" WAIT 8 CURSOR ON INCREASE counttimes 1 CONTINUE