;*******************************************************************;
; Sciptname..:  Guidesld.SHW                                        ;
; Revision...:  Nov. 1994, by RMP DATA.                             ;
; Purpose....:  Part of the demonstration script GUIDE.SHW.         ;
;*******************************************************************;

COLOR ATTRIBUTE 31
EFFECT GLITTER

SHOW SCREEN "SHOW1.SCR" TXT
WAIT 1
COLOR ATTRIBUTE 95
EFFECT POINT 5 7
GOXY 4 08 DRAW BOX 43 7
GOXY 5 09 WRITE "In this example you'll learn how to create"
GOXY 5 10 WRITE "your first simple slide show.  Slides have"
GOXY 5 11 WRITE "to be called from scripts.                "
GOXY 5 12 WRITE "                                          "
GOXY 5 13 WRITE "You start in the main screen by selecting "
GOXY 5 14 WRITE "F6 to enter the Slide Center.             "

MARK 301
READ KEY inkey
CASE KEY inkey 464 DO JUMPMARK 302  ; F6 key
CASE KEY inkey 27 DO JUMPMARK 1     ; <Esc> key
MUSIC SOUND A 2 200
JUMPMARK 301
MARK 302

SHOW SCREEN "SHOW6.SCR" TXT
WAIT 1
GOXY 34 10 DRAW BOX 43 7
GOXY 35 11 WRITE "In the Slide Center you set up a slide de-"
GOXY 35 12 WRITE "finition file.  You enter names  of screen"
GOXY 35 13 WRITE "files to be shown,  what type of effect to"
GOXY 35 14 WRITE "be shown between screens, and what trigger"
GOXY 35 15 WRITE "that causes  a new screen to be shown.  At"
GOXY 35 16 WRITE "first you hit F4 to go to Edit Slides.    "

MARK 303
READ KEY inkey
CASE KEY inkey 462 DO JUMPMARK 304  ; F4 key
CASE KEY inkey 27 DO JUMPMARK 1     ; <Esc> key
MUSIC SOUND A 2 200
JUMPMARK 303
MARK 304

SHOW SCREEN "SHOW6.SCR" TXT
GOXY 34 10 DRAW BOX 43 6
GOXY 35 11 WRITE "In the Slide Editor you can use the F9 key"
GOXY 35 12 WRITE "to select file names, effect types and the"
GOXY 35 13 WRITE "transsition effects,  but  in this example"
GOXY 35 14 WRITE "you type  them in manually.  So first  you"
GOXY 35 15 WRITE "type in the filename SHOW1.SCR            "
COLOR ATTRIBUTE 63
SET CURSOR ON

VARIABLE VALUE instr ""
MARK 305
GOXY 6 7 READ STRING UPPER instr 12
CASE STRING UPPER instr "SHOW1.SCR" DO JUMPMARK 306
MUSIC SOUND A 2 200
JUMPMARK 305
MARK 306

COLOR ATTRIBUTE 95
GOXY 35 11 WRITE "Then you enter the type of file it is. TXT"
GOXY 35 12 WRITE "is for  DataShow screen files  made in the"
GOXY 35 13 WRITE "Design Center  or text screens  saved with"
GOXY 35 14 WRITE "the Capture program. You can also have ot-"
GOXY 35 15 WRITE "her file types. But here you enter TXT    "
COLOR ATTRIBUTE 63

VARIABLE VALUE instr ""
MARK 307
GOXY 20 7 READ STRING UPPER instr 3
CASE STRING UPPER instr "TXT" DO JUMPMARK 308
MUSIC SOUND A 2 200
JUMPMARK 307
MARK 308

COLOR ATTRIBUTE 95
GOXY 35 11 WRITE "Now you choose  the effect that take place"
GOXY 35 12 WRITE "between  the first and the second  screen."
GOXY 35 13 WRITE "In the Slide Center  you could hit F9  and"
GOXY 35 14 WRITE "select between the many effects. Here how-"
GOXY 35 15 WRITE "ever you type GLITTER                     "
COLOR ATTRIBUTE 63

VARIABLE VALUE instr ""
MARK 309
GOXY 45 7 READ STRING UPPER instr 7
CASE STRING UPPER instr "GLITTER" DO JUMPMARK 310
MUSIC SOUND A 2 200
JUMPMARK 309
MARK 310

COLOR ATTRIBUTE 95
GOXY 35 11 WRITE "Finally you can enter the trigger that has"
GOXY 35 12 WRITE "to happen before the next screen is shown."
GOXY 35 13 WRITE "It can be either  the passing of some time"
GOXY 35 14 WRITE "or hitting any key.  Here we'll wait for a"
GOXY 35 15 WRITE "number of seconds, so you type 4          "
COLOR ATTRIBUTE 63

VARIABLE VALUE instr ""
MARK 311
GOXY 66 7 READ STRING instr 3
CASE STRING UPPER instr "4" DO JUMPMARK 312
MUSIC SOUND A 2 200
JUMPMARK 311
MARK 312

COLOR ATTRIBUTE 95
GOXY 35 11 WRITE "Now you can quickly type in the next line."
GOXY 35 12 WRITE "the filename  should be  SHOW3.SCR of type"
GOXY 35 13 WRITE "TXT with effect CLEAR  and 4 as the number"
GOXY 35 14 WRITE "of seconds to wait.  Type in  those values"
GOXY 35 15 WRITE "in the appropriate places...              "
COLOR ATTRIBUTE 63

VARIABLE VALUE instr ""
MARK 313
GOXY 6 8 READ STRING UPPER instr 12
CASE STRING UPPER instr "SHOW3.SCR" DO JUMPMARK 314
MUSIC SOUND A 2 200
JUMPMARK 313
MARK 314

VARIABLE VALUE instr ""
MARK 315
GOXY 20 8 READ STRING UPPER instr 3
CASE STRING UPPER instr "TXT" DO JUMPMARK 316
MUSIC SOUND A 2 200
JUMPMARK 315
MARK 316

VARIABLE VALUE instr ""
MARK 317
GOXY 45 8 READ STRING UPPER instr 7
CASE STRING UPPER instr "CLEAR" DO JUMPMARK 318
MUSIC SOUND A 2 200
JUMPMARK 317
MARK 318

VARIABLE VALUE instr ""
MARK 319
GOXY 66 8 READ STRING instr 3
CASE STRING UPPER instr "4" DO JUMPMARK 320
MUSIC SOUND A 2 200
JUMPMARK 319
MARK 320

SCREEN GET

COLOR ATTRIBUTE 95
GOXY 35 11 WRITE "Now you have made your slide definition in"
GOXY 35 12 WRITE "the editor and it must be saved. First you"
GOXY 35 13 WRITE "push F10 to exit the editor and then you  "
GOXY 35 14 WRITE "hit F2 so that you can save the definition"
GOXY 35 15 WRITE "into a slide file. First F10 then F2.     "

GOXY 6 8

MARK 321
READ KEY inkey
CASE KEY inkey 468 DO JUMPMARK 322  ; F10 key
CASE KEY inkey 27 DO JUMPMARK 1     ; <Esc> key
MUSIC SOUND A 2 200
JUMPMARK 321
MARK 322

SET CURSOR OFF

MARK 323
READ KEY inkey
CASE KEY inkey 460 DO JUMPMARK 324  ; F2 key
CASE KEY inkey 27 DO JUMPMARK 1     ; <Esc> key
MUSIC SOUND A 2 200
JUMPMARK 323
MARK 324

SHOW SCREEN "GUIDE14.SCR" TXT
GOXY 34 10 DRAW BOX 42 5
GOXY 35 11 WRITE "When the editor has been activated  Data-"
GOXY 35 12 WRITE "Show assume that you want to save a file,"
GOXY 35 13 WRITE "so that option  is highlighted.  You just"
GOXY 35 14 WRITE "press <Enter> to accept the choise.      "

MARK 325
READ KEY inkey
CASE KEY inkey 13 DO JUMPMARK 326   ; <Enter> key
CASE KEY inkey 27 DO JUMPMARK 1     ; <Esc> key
MUSIC SOUND A 2 200
JUMPMARK 325
MARK 326

SHOW SCREEN "GUIDE5.SCR" TXT
GOXY 34 10 DRAW BOX 42 5
GOXY 35 11 WRITE "Filenames  can usually  be selected  with"
GOXY 35 12 WRITE "the *.<extension> selector, in which case"
GOXY 35 13 WRITE "you get  a list  of files to choose from."
GOXY 35 14 WRITE "Here you enter TEST.SLD                  "
COLOR ATTRIBUTE 63

VARIABLE VALUE instr ""
MARK 327
GOXY 46 20 READ STRING instr 12
CASE STRING UPPER instr "TEST.SLD" DO JUMPMARK 328
MUSIC SOUND A 2 200
JUMPMARK 327
MARK 328

SCREEN PUT

COLOR ATTRIBUTE 95
GOXY 34 10 DRAW BOX 43 6
GOXY 35 11 WRITE "Now  the  slide definition  is saved  in a"
GOXY 35 12 WRITE "file,  and  it is ready  to  be used  in a"
GOXY 35 13 WRITE "script.  So in order  to go to  the Script"
GOXY 35 14 WRITE "Center to make a script you first push F10"
GOXY 35 15 WRITE "to go to the main menu.                   "

MARK 329
READ KEY inkey
CASE KEY inkey 468 DO JUMPMARK 330  ; F10 key
CASE KEY inkey 27 DO JUMPMARK 1     ; <Esc> key
MUSIC SOUND A 2 200
JUMPMARK 329
MARK 330

SHOW SCREEN "SHOW1.SCR" TXT
GOXY 4 08 DRAW BOX 43 4
GOXY 5 09 WRITE "To make  a script  that uses the slide de-"
GOXY 5 10 WRITE "finition, you must enter the Script Center"
GOXY 5 11 WRITE "so you push F3 in the main menu.          "

MARK 331
READ KEY inkey
CASE KEY inkey 461 DO JUMPMARK 332  ; F3 key
CASE KEY inkey 27 DO JUMPMARK 1     ; <Esc> key
MUSIC SOUND A 2 200
JUMPMARK 331
MARK 332

SHOW SCREEN "SHOW3.SCR" TXT
GOXY 3 08 DRAW BOX 46 5
GOXY 4 09 WRITE "Now you can just enter one single line in the"
GOXY 4 10 WRITE "script editor  because  all other information"
GOXY 4 11 WRITE "is stored  in the slide definition file.  You"
GOXY 4 12 WRITE "hit the F9 button to select between commands."

MARK 333
READ KEY inkey
CASE KEY inkey 467 DO JUMPMARK 334  ; F9 key
CASE KEY inkey 27 DO JUMPMARK 1     ; <Esc> key
MUSIC SOUND A 2 200
JUMPMARK 333
MARK 334

SHOW SCREEN "SHOW4.SCR" TXT
GOXY 3 08 DRAW BOX 45 4
GOXY 4 09 WRITE "You want to show a slide definition file, so"
GOXY 4 10 WRITE "you select SHOW.  Use the arrow keys to move"
GOXY 4 11 WRITE "down and <Enter> to select.                 "

MARK 335
READ KEY inkey
CASE KEY inkey 480 DO JUMPMARK 336  ; Dn key
CASE KEY inkey 27 DO JUMPMARK 1     ; <Esc> key
MUSIC SOUND A 2 200
JUMPMARK 335
MARK 336

GOXY 51 8
COLOR BACKGROUND 3
COLOR FOREGROUND 1
WRITE "SCREEN             "
GOXY 51 9
COLOR BACKGROUND 1
COLOR FOREGROUND 15
WRITE "SHOW               "

MARK 337
READ KEY inkey
CASE KEY inkey 13 DO JUMPMARK 338   ; <Enter> key
CASE KEY inkey 27 DO JUMPMARK 1     ; <Esc> key
MUSIC SOUND A 2 200
JUMPMARK 337
MARK 338

SHOW SCREEN "GUIDE6.SCR" TXT
COLOR BACKGROUND 5
GOXY 3 08 DRAW BOX 44 3
GOXY 4 09 WRITE "Of the next choises  you select SLIDE  with"
GOXY 4 10 WRITE "the arrow keys and press <Enter> to select."

MARK 339
READ KEY inkey
CASE KEY inkey 480 DO JUMPMARK 340  ; Dn key
CASE KEY inkey 27 DO JUMPMARK 1     ; <Esc> key
MUSIC SOUND A 2 200
JUMPMARK 339
MARK 340

GOXY 51 8
COLOR BACKGROUND 3
COLOR FOREGROUND 1
WRITE "SCREEN             "
GOXY 51 9
COLOR BACKGROUND 1
COLOR FOREGROUND 15
WRITE "SLIDE              "

MARK 341
READ KEY inkey
CASE KEY inkey 13 DO JUMPMARK 342   ; <Enter> key
CASE KEY inkey 27 DO JUMPMARK 1     ; <Esc> key
MUSIC SOUND A 2 200
JUMPMARK 341
MARK 342

SHOW SCREEN "GUIDE7.SCR" TXT
COLOR BACKGROUND 5
GOXY 3 08 DRAW BOX 43 3
GOXY 4 09 WRITE "Then you enter the name of the slide defi-"
GOXY 4 10 WRITE "nition file, remember TEST.SLD            "
COLOR ATTRIBUTE 63
SET CURSOR ON

VARIABLE VALUE instr ""
MARK 343
GOXY 46 20 READ STRING instr 12
CASE STRING UPPER instr "TEST.SLD" DO JUMPMARK 344
MUSIC SOUND A 2 200
JUMPMARK 343
MARK 344
SET CURSOR OFF

SHOW SCREEN "GUIDE8.SCR" TXT
COLOR ATTRIBUTE 95
GOXY 3 08 DRAW BOX 44 4
GOXY 4 09 WRITE "Now the script is made and it has to be sa-"
GOXY 4 10 WRITE "ved  before you can run it.  Hit the F2 key"
GOXY 4 11 WRITE "and then press <Enter>                     "

MARK 345
READ KEY inkey
CASE KEY inkey 460 DO JUMPMARK 346  ; F2 key
CASE KEY inkey 27 DO JUMPMARK 1     ; <Esc> key
MUSIC SOUND A 2 200
JUMPMARK 345
MARK 346

SHOW SCREEN "GUIDE9.SCR" TXT
MARK 347
READ KEY inkey
CASE KEY inkey 13 DO JUMPMARK 348   ; <Enter> key
CASE KEY inkey 27 DO JUMPMARK 1     ; <Esc> key
MUSIC SOUND A 2 200
JUMPMARK 347
MARK 348

SHOW SCREEN "GUIDE10.SCR" TXT
GOXY 3 08 DRAW BOX 44 4
GOXY 4 09 WRITE "To keep the names of files somewhat in line"
GOXY 4 10 WRITE "with each other, you should save the script"
GOXY 4 11 WRITE "with the name TEST.SHW                     "
COLOR ATTRIBUTE 63
SET CURSOR ON

VARIABLE VALUE instr ""
MARK 349
GOXY 46 20 READ STRING instr 12
CASE STRING UPPER instr "TEST.SHW" DO JUMPMARK 350
MUSIC SOUND A 2 200
JUMPMARK 349
MARK 350
SET CURSOR OFF

SHOW SCREEN "GUIDE8.SCR" TXT
COLOR BACKGROUND 1
COLOR FOREGROUND 14
GOXY 72 3 WRITE "TEST.SHW"
COLOR FOREGROUND 15
COLOR BACKGROUND 5
COLOR ATTRIBUTE 95
GOXY 3 08 DRAW BOX 44 4
GOXY 4 09 WRITE "The script has been saved  and you can  now"
GOXY 4 10 WRITE "run it from the main menu. To return to the"
GOXY 4 11 WRITE "main menu push F10                         "

MARK 351
READ KEY inkey
CASE KEY inkey 468 DO JUMPMARK 352  ; F10 key
CASE KEY inkey 27 DO JUMPMARK 1     ; <Esc> key
MUSIC SOUND A 2 200
JUMPMARK 351
MARK 352

SHOW SCREEN "SHOW1.SCR" TXT
GOXY 3 08 DRAW BOX 42 6
GOXY 4 09 WRITE "To run a script you must always be in the"
GOXY 4 10 WRITE "main menu. Also there's a runtime version"
GOXY 4 11 WRITE "that runs scripts.  Scripts  are executed"
GOXY 4 12 WRITE "from the 'Files' menu, so you push F2 and"
GOXY 4 13 WRITE "push <Enter> to run script from start.   "

MARK 353
READ KEY inkey
CASE KEY inkey 460 DO JUMPMARK 354  ; F2 key
CASE KEY inkey 27 DO JUMPMARK 1     ; <Esc> key
MUSIC SOUND A 2 200
JUMPMARK 353
MARK 354

SHOW SCREEN "GUIDE11.SCR" TXT
MARK 355
READ KEY inkey
CASE KEY inkey 13 DO JUMPMARK 356   ; <Enter> key
CASE KEY inkey 27 DO JUMPMARK 1     ; <Esc> key
MUSIC SOUND A 2 200
JUMPMARK 355
MARK 356

SHOW SCREEN "GUIDE12.SCR" TXT
GOXY 3 08 DRAW BOX 39 4
GOXY 4 09 WRITE "The script you must execute is the one"
GOXY 4 10 WRITE "we just saved in the Script Center. So"
GOXY 4 11 WRITE "you write TEST.SHW                    "
COLOR ATTRIBUTE 63
SET CURSOR ON

VARIABLE VALUE instr ""
MARK 357
GOXY 46 20 READ STRING instr 12
CASE STRING UPPER instr "TEST.SHW" DO JUMPMARK 358
MUSIC SOUND A 2 200
JUMPMARK 357
MARK 358
SET CURSOR OFF

COLOR ATTRIBUTE 95
GOXY 3 08 DRAW BOX 40 4
GOXY 4 09 WRITE "The script will be executed right away."
GOXY 4 10 WRITE "When the script has finished GUIDE will"
GOXY 4 11 WRITE "return with a show message.            "
WAIT 3

; Here we mimic the slide behavior.
SHOW SCREEN "SHOW1.SCR" TXT
WAIT 4
EFFECT GLITTER
SHOW SCREEN "SHOW3.SCR" TXT
WAIT 4
SCREEN CLEAR
WAIT 1

COLOR ATTRIBUTE 111
SCREEN WIPE SPLIT
COLOR ATTRIBUTE 95
GOXY 3 08 DRAW BOX 41 7
GOXY 4 09 WRITE "This concludes the simple guided tour on"
GOXY 4 10 WRITE "how to make  a very simple slide show u-"
GOXY 4 11 WRITE "sing the Slide and Script Center.  There"
GOXY 4 12 WRITE "are very powerful features within all of"
GOXY 4 13 WRITE "many Centers and menues in DataShow.  So"
GOXY 4 14 WRITE "play with it all and learn MultiMedia!  "


; Place to jump to if <Esc> is pushed.
MARK 1