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

COLOR ATTRIBUTE 31
SCREEN WIPE SPLIT

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 script.  Scripts are the"
GOXY 5 11 WRITE "the basis for all promotions/tutorials.   "
GOXY 5 12 WRITE "                                          "
GOXY 5 13 WRITE "You start in the main screen by selecting "
GOXY 5 14 WRITE "F3 to enter the Script Center.            "

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

SHOW SCREEN "SHOW3.SCR" TXT
WAIT 1
GOXY 4 08 DRAW BOX 46 7
GOXY 5 09 WRITE "In the Script Center you write commands to be"
GOXY 5 10 WRITE "be executed.  The Script Center is suited for"
GOXY 5 11 WRITE "making scripts.  With the  many commands  you"
GOXY 5 12 WRITE "can create powerful scripts.  You either type"
GOXY 5 13 WRITE "in commands yourself or as in this case,  use"
GOXY 5 14 WRITE "the F9 key to select between commands.       "

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

SHOW SCREEN "SHOW4.SCR" TXT
GOXY 4 08 DRAW BOX 43 4
GOXY 5 09 WRITE "First you select the Screen Command. It is"
GOXY 5 10 WRITE "already highlighted,  so you can just  hit"
GOXY 5 11 WRITE "the <Enter> key to select it.             "

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

SHOW SCREEN "GUIDE1.SCR" TXT
GOXY 4 08 DRAW BOX 40 5
GOXY 5 09 WRITE "Usually a script  starts by erasing the"
GOXY 5 10 WRITE "current screen.  So  as a parameter  to"
GOXY 5 11 WRITE "the SCREEN command  you push <Enter> to"
GOXY 5 12 WRITE "select the highlighted CLEAR command.  "

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

SHOW SCREEN "GUIDE2.SCR" TXT
GOXY 4 08 DRAW BOX 46 6
GOXY 5 09 WRITE "So you can see, you can easily select between"
GOXY 5 10 WRITE "commands with the F9 key.  But you can also  "
GOXY 5 11 WRITE "write commands directly in the editor. On the"
GOXY 5 12 WRITE "current line write the following command:    "
GOXY 5 13 WRITE 'GOXY 10 10 WRITE "HELLO WORLD"               '

COLOR ATTRIBUTE 63
VARIABLE VALUE instr ""
MARK 209
GOXY 2 5 READ STRING UPPER instr 32
CASE STRING UPPER instr 'GOXY 10 10 WRITE "HELLO WORLD"' DO JUMPMARK 210
MUSIC SOUND A 2 200
JUMPMARK 209
MARK 210

SHOW SCREEN "GUIDE3.SCR" TXT
COLOR ATTRIBUTE 95
GOXY 4 08 DRAW BOX 43 5
GOXY 5 09 WRITE "And on line 3, you then want the script to"
GOXY 5 10 WRITE "halt a little bit before it finishes. This"
GOXY 5 11 WRITE "can be done with the command you enter:   "
GOXY 5 12 WRITE "WAIT 4                                    "

COLOR ATTRIBUTE 63
VARIABLE VALUE instr ""
MARK 210
GOXY 2 6 READ STRING UPPER instr 7
CASE STRING UPPER instr "WAIT 4" DO JUMPMARK 211
MUSIC SOUND A 2 200
JUMPMARK 210
MARK 211

SCREEN GET

COLOR ATTRIBUTE 95
GOXY 4 08 DRAW BOX 43 5
GOXY 5 09 WRITE "Now you must save the file. You push the  "
GOXY 5 10 WRITE "F2 key and select save file (since it is  "
GOXY 5 11 WRITE "highlighted, you just press <Enter>. First"
GOXY 5 12 WRITE "F2 then <Enter>                           "

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

SHOW SCREEN "GUIDE4.SCR" TXT

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

SHOW SCREEN "GUIDE13.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 give the script"
GOXY 4 11 WRITE "a meaningfull name, here HELLO.SHW         "

COLOR ATTRIBUTE 63
VARIABLE VALUE instr ""
MARK 216
GOXY 46 20 READ STRING instr 12
CASE STRING UPPER instr "HELLO.SHW" DO JUMPMARK 217
MUSIC SOUND A 2 200
JUMPMARK 216
MARK 217

SCREEN PUT

COLOR ATTRIBUTE 95
GOXY 4 08 DRAW BOX 44 5
GOXY 5 09 WRITE "The script has been saved  and you can  now"
GOXY 5 10 WRITE "run it from the main menu. To return to the"
GOXY 5 11 WRITE "main menu push F10                         "
GOXY 5 12 WRITE "                                           "

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

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 220
READ KEY inkey
CASE KEY inkey 460 DO JUMPMARK 221  ; F2 key
CASE KEY inkey 27 DO JUMPMARK 1     ; <Esc> key
MUSIC SOUND A 2 200
JUMPMARK 220
MARK 221

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

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 HELLO.SHW                   "

COLOR ATTRIBUTE 63
VARIABLE VALUE instr ""
MARK 224
GOXY 46 20 READ STRING instr 12
CASE STRING UPPER instr "HELLO.SHW" DO JUMPMARK 225
MUSIC SOUND A 2 200
JUMPMARK 224
MARK 225

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.
SCREEN CLEAR
GOXY 10 10 WRITE "HELLO WORLD"
WAIT 4

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 Script Center.  There are  very"
GOXY 4 12 WRITE "powerful features within all of many me-"
GOXY 4 13 WRITE "nues  and Centers  in DataShow.  So play"
GOXY 4 14 WRITE "with it all and learn MultiMedia!       "

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