home *** CD-ROM | disk | FTP | other *** search
/ TopWare 18: Liquid / Image.iso / liquid / top1090 / guide.exe / GUIDESLD.SHW < prev   
Encoding:
Text File  |  1994-02-01  |  13.2 KB  |  473 lines
  1. ;*******************************************************************;
  2. ; Sciptname..:  Guidesld.SHW                                        ;
  3. ; Date.......:  1st. Feb. 1994, by RMP DATA.                        ;
  4. ; Purpose....:  Part of the demonstration script GUIDE.SHW.         ;
  5. ;*******************************************************************;
  6.  
  7. COLOR ATTRIBUTE 31
  8. EFFECT GLITTER
  9.  
  10. SHOW SCREEN "SHOW1.SCR" TXT
  11. WAIT 1
  12. COLOR ATTRIBUTE 95
  13. EFFECT POINT 5 7
  14. GOXY 4 08 DRAW BOX 43 7
  15. GOXY 5 09 WRITE "In this example you'll learn how to create"
  16. GOXY 5 10 WRITE "your first simple slide show.  Slides have"
  17. GOXY 5 11 WRITE "to be called from scripts.                "
  18. GOXY 5 12 WRITE "                                          "
  19. GOXY 5 13 WRITE "You start in the main screen by selecting "
  20. GOXY 5 14 WRITE "F6 to enter the Slide Center.             "
  21.  
  22. MARK 301
  23. READ KEY inkey
  24. CASE KEY inkey 464 DO JUMPMARK 302  ; F6 key
  25. CASE KEY inkey 27 DO JUMPMARK 1     ; <Esc> key
  26. MUSIC SOUND A 2 200
  27. JUMPMARK 301
  28. MARK 302
  29.  
  30. SHOW SCREEN "SHOW6.SCR" TXT
  31. WAIT 1
  32. GOXY 34 10 DRAW BOX 43 7
  33. GOXY 35 11 WRITE "In the Slide Center you set up a slide de-"
  34. GOXY 35 12 WRITE "finition file.  You enter names  of screen"
  35. GOXY 35 13 WRITE "files to be shown,  what type of effect to"
  36. GOXY 35 14 WRITE "be shown between screens, and what trigger"
  37. GOXY 35 15 WRITE "that causes  a new screen to be shown.  At"
  38. GOXY 35 16 WRITE "first you hit F4 to go to Edit Slides.    "
  39.  
  40. MARK 303
  41. READ KEY inkey
  42. CASE KEY inkey 462 DO JUMPMARK 304  ; F4 key
  43. CASE KEY inkey 27 DO JUMPMARK 1     ; <Esc> key
  44. MUSIC SOUND A 2 200
  45. JUMPMARK 303
  46. MARK 304
  47.  
  48. SHOW SCREEN "SHOW6.SCR" TXT
  49. GOXY 34 10 DRAW BOX 43 6
  50. GOXY 35 11 WRITE "In the Slide Editor you can use the F9 key"
  51. GOXY 35 12 WRITE "to select file names, effect types and the"
  52. GOXY 35 13 WRITE "transsition effects,  but  in this example"
  53. GOXY 35 14 WRITE "you type  them in manually.  So first  you"
  54. GOXY 35 15 WRITE "type in the filename SHOW1.SCR            "
  55. COLOR ATTRIBUTE 63
  56. SET CURSOR ON
  57.  
  58. VARIABLE VALUE instr ""
  59. MARK 305
  60. GOXY 6 7 READ STRING UPPER instr 12
  61. CASE STRING UPPER instr "SHOW1.SCR" DO JUMPMARK 306
  62. MUSIC SOUND A 2 200
  63. JUMPMARK 305
  64. MARK 306
  65.  
  66. COLOR ATTRIBUTE 95
  67. GOXY 35 11 WRITE "Then you enter the type of file it is. TXT"
  68. GOXY 35 12 WRITE "is for  DataShow screen files  made in the"
  69. GOXY 35 13 WRITE "Design Center  or text screens  saved with"
  70. GOXY 35 14 WRITE "the Capture program. You can also have ot-"
  71. GOXY 35 15 WRITE "her file types. But here you enter TXT    "
  72. COLOR ATTRIBUTE 63
  73.  
  74. VARIABLE VALUE instr ""
  75. MARK 307
  76. GOXY 20 7 READ STRING UPPER instr 3
  77. CASE STRING UPPER instr "TXT" DO JUMPMARK 308
  78. MUSIC SOUND A 2 200
  79. JUMPMARK 307
  80. MARK 308
  81.  
  82. COLOR ATTRIBUTE 95
  83. GOXY 35 11 WRITE "Now you choose  the effect that take place"
  84. GOXY 35 12 WRITE "between  the first and the second  screen."
  85. GOXY 35 13 WRITE "In the Slide Center  you could hit F9  and"
  86. GOXY 35 14 WRITE "select between the many effects. Here how-"
  87. GOXY 35 15 WRITE "ever you type GLITTER                     "
  88. COLOR ATTRIBUTE 63
  89.  
  90. VARIABLE VALUE instr ""
  91. MARK 309
  92. GOXY 45 7 READ STRING UPPER instr 7
  93. CASE STRING UPPER instr "GLITTER" DO JUMPMARK 310
  94. MUSIC SOUND A 2 200
  95. JUMPMARK 309
  96. MARK 310
  97.  
  98. COLOR ATTRIBUTE 95
  99. GOXY 35 11 WRITE "Finally you can enter the trigger that has"
  100. GOXY 35 12 WRITE "to happen before the next screen is shown."
  101. GOXY 35 13 WRITE "It can be either  the passing of some time"
  102. GOXY 35 14 WRITE "or hitting any key.  Here we'll wait for a"
  103. GOXY 35 15 WRITE "number of seconds, so you type 4          "
  104. COLOR ATTRIBUTE 63
  105.  
  106. VARIABLE VALUE instr ""
  107. MARK 311
  108. GOXY 66 7 READ STRING instr 3
  109. CASE STRING UPPER instr "4" DO JUMPMARK 312
  110. MUSIC SOUND A 2 200
  111. JUMPMARK 311
  112. MARK 312
  113.  
  114. COLOR ATTRIBUTE 95
  115. GOXY 35 11 WRITE "Now you can quickly type in the next line."
  116. GOXY 35 12 WRITE "the filename  should be  SHOW3.SCR of type"
  117. GOXY 35 13 WRITE "TXT with effect CLEAR  and 4 as the number"
  118. GOXY 35 14 WRITE "of seconds to wait.  Type in  those values"
  119. GOXY 35 15 WRITE "in the appropriate places...              "
  120. COLOR ATTRIBUTE 63
  121.  
  122. VARIABLE VALUE instr ""
  123. MARK 313
  124. GOXY 6 8 READ STRING UPPER instr 12
  125. CASE STRING UPPER instr "SHOW3.SCR" DO JUMPMARK 314
  126. MUSIC SOUND A 2 200
  127. JUMPMARK 313
  128. MARK 314
  129.  
  130. VARIABLE VALUE instr ""
  131. MARK 315
  132. GOXY 20 8 READ STRING UPPER instr 3
  133. CASE STRING UPPER instr "TXT" DO JUMPMARK 316
  134. MUSIC SOUND A 2 200
  135. JUMPMARK 315
  136. MARK 316
  137.  
  138. VARIABLE VALUE instr ""
  139. MARK 317
  140. GOXY 45 8 READ STRING UPPER instr 7
  141. CASE STRING UPPER instr "CLEAR" DO JUMPMARK 318
  142. MUSIC SOUND A 2 200
  143. JUMPMARK 317
  144. MARK 318
  145.  
  146. VARIABLE VALUE instr ""
  147. MARK 319
  148. GOXY 66 8 READ STRING instr 3
  149. CASE STRING UPPER instr "4" DO JUMPMARK 320
  150. MUSIC SOUND A 2 200
  151. JUMPMARK 319
  152. MARK 320
  153.  
  154. SCREEN GET
  155.  
  156. COLOR ATTRIBUTE 95
  157. GOXY 35 11 WRITE "Now you have made your slide definition in"
  158. GOXY 35 12 WRITE "the editor and it must be saved. First you"
  159. GOXY 35 13 WRITE "push F10 to exit the editor and then you  "
  160. GOXY 35 14 WRITE "hit F2 so that you can save the definition"
  161. GOXY 35 15 WRITE "into a slide file. First F10 then F2.     "
  162.  
  163. GOXY 6 8
  164.  
  165. MARK 321
  166. READ KEY inkey
  167. CASE KEY inkey 468 DO JUMPMARK 322  ; F10 key
  168. CASE KEY inkey 27 DO JUMPMARK 1     ; <Esc> key
  169. MUSIC SOUND A 2 200
  170. JUMPMARK 321
  171. MARK 322
  172.  
  173. SET CURSOR OFF
  174.  
  175. MARK 323
  176. READ KEY inkey
  177. CASE KEY inkey 460 DO JUMPMARK 324  ; F2 key
  178. CASE KEY inkey 27 DO JUMPMARK 1     ; <Esc> key
  179. MUSIC SOUND A 2 200
  180. JUMPMARK 323
  181. MARK 324
  182.  
  183. SHOW SCREEN "GUIDE4.SCR" TXT
  184. GOXY 34 10 DRAW BOX 42 5
  185. GOXY 35 11 WRITE "When the editor has been activated  Data-"
  186. GOXY 35 12 WRITE "Show assume that you want to save a file,"
  187. GOXY 35 13 WRITE "so that option  is highlighted.  You just"
  188. GOXY 35 14 WRITE "press <Enter> to accept the choise.      "
  189.  
  190. MARK 325
  191. READ KEY inkey
  192. CASE KEY inkey 13 DO JUMPMARK 326   ; <Enter> key
  193. CASE KEY inkey 27 DO JUMPMARK 1     ; <Esc> key
  194. MUSIC SOUND A 2 200
  195. JUMPMARK 325
  196. MARK 326
  197.  
  198. SHOW SCREEN "GUIDE5.SCR" TXT
  199. GOXY 34 10 DRAW BOX 42 5
  200. GOXY 35 11 WRITE "Filenames  can usually  be selected  with"
  201. GOXY 35 12 WRITE "the *.<extension> selector, in which case"
  202. GOXY 35 13 WRITE "you get  a list  of files to choose from."
  203. GOXY 35 14 WRITE "Here you enter TEST.SLD                  "
  204. COLOR ATTRIBUTE 63
  205.  
  206. VARIABLE VALUE instr ""
  207. MARK 327
  208. GOXY 46 20 READ STRING instr 12
  209. CASE STRING UPPER instr "TEST.SLD" DO JUMPMARK 328
  210. MUSIC SOUND A 2 200
  211. JUMPMARK 327
  212. MARK 328
  213.  
  214. SCREEN PUT
  215.  
  216. COLOR ATTRIBUTE 95
  217. GOXY 34 10 DRAW BOX 43 6
  218. GOXY 35 11 WRITE "Now  the  slide definition  is saved  in a"
  219. GOXY 35 12 WRITE "file,  and  it is ready  to  be used  in a"
  220. GOXY 35 13 WRITE "script.  So in order  to go to  the Script"
  221. GOXY 35 14 WRITE "Center to make a script you first push F10"
  222. GOXY 35 15 WRITE "to go to the main menu.                   "
  223.  
  224. MARK 329
  225. READ KEY inkey
  226. CASE KEY inkey 468 DO JUMPMARK 330  ; F10 key
  227. CASE KEY inkey 27 DO JUMPMARK 1     ; <Esc> key
  228. MUSIC SOUND A 2 200
  229. JUMPMARK 329
  230. MARK 330
  231.  
  232. SHOW SCREEN "SHOW1.SCR" TXT
  233. GOXY 4 08 DRAW BOX 43 4
  234. GOXY 5 09 WRITE "To make  a script  that uses the slide de-"
  235. GOXY 5 10 WRITE "finition, you must enter the Script Center"
  236. GOXY 5 11 WRITE "so you push F3 in the main menu.          "
  237.  
  238. MARK 331
  239. READ KEY inkey
  240. CASE KEY inkey 461 DO JUMPMARK 332  ; F3 key
  241. CASE KEY inkey 27 DO JUMPMARK 1     ; <Esc> key
  242. MUSIC SOUND A 2 200
  243. JUMPMARK 331
  244. MARK 332
  245.  
  246. SHOW SCREEN "SHOW3.SCR" TXT
  247. GOXY 3 08 DRAW BOX 46 5
  248. GOXY 4 09 WRITE "Now you can just enter one single line in the"
  249. GOXY 4 10 WRITE "script editor  because  all other information"
  250. GOXY 4 11 WRITE "is stored  in the slide definition file.  You"
  251. GOXY 4 12 WRITE "hit the F9 button to select between commands."
  252.  
  253. MARK 333
  254. READ KEY inkey
  255. CASE KEY inkey 467 DO JUMPMARK 334  ; F9 key
  256. CASE KEY inkey 27 DO JUMPMARK 1     ; <Esc> key
  257. MUSIC SOUND A 2 200
  258. JUMPMARK 333
  259. MARK 334
  260.  
  261. SHOW SCREEN "SHOW4.SCR" TXT
  262. GOXY 3 08 DRAW BOX 45 4
  263. GOXY 4 09 WRITE "You want to show a slide definition file, so"
  264. GOXY 4 10 WRITE "you select SHOW.  Use the arrow keys to move"
  265. GOXY 4 11 WRITE "down and <Enter> to select.                 "
  266.  
  267. MARK 335
  268. READ KEY inkey
  269. CASE KEY inkey 480 DO JUMPMARK 336  ; Dn key
  270. CASE KEY inkey 27 DO JUMPMARK 1     ; <Esc> key
  271. MUSIC SOUND A 2 200
  272. JUMPMARK 335
  273. MARK 336
  274.  
  275. GOXY 51 8
  276. COLOR BACKGROUND 3
  277. COLOR FOREGROUND 1
  278. WRITE "SCREEN             "
  279. GOXY 51 9
  280. COLOR BACKGROUND 1
  281. COLOR FOREGROUND 15
  282. WRITE "SHOW               "
  283.  
  284. MARK 337
  285. READ KEY inkey
  286. CASE KEY inkey 13 DO JUMPMARK 338   ; <Enter> key
  287. CASE KEY inkey 27 DO JUMPMARK 1     ; <Esc> key
  288. MUSIC SOUND A 2 200
  289. JUMPMARK 337
  290. MARK 338
  291.  
  292. SHOW SCREEN "GUIDE6.SCR" TXT
  293. COLOR BACKGROUND 5
  294. GOXY 3 08 DRAW BOX 44 3
  295. GOXY 4 09 WRITE "Of the next choises  you select SLIDE  with"
  296. GOXY 4 10 WRITE "the arrow keys and press <Enter> to select."
  297.  
  298. MARK 339
  299. READ KEY inkey
  300. CASE KEY inkey 480 DO JUMPMARK 340  ; Dn key
  301. CASE KEY inkey 27 DO JUMPMARK 1     ; <Esc> key
  302. MUSIC SOUND A 2 200
  303. JUMPMARK 339
  304. MARK 340
  305.  
  306. GOXY 51 8
  307. COLOR BACKGROUND 3
  308. COLOR FOREGROUND 1
  309. WRITE "SCREEN             "
  310. GOXY 51 9
  311. COLOR BACKGROUND 1
  312. COLOR FOREGROUND 15
  313. WRITE "SLIDE              "
  314.  
  315. MARK 341
  316. READ KEY inkey
  317. CASE KEY inkey 13 DO JUMPMARK 342   ; <Enter> key
  318. CASE KEY inkey 27 DO JUMPMARK 1     ; <Esc> key
  319. MUSIC SOUND A 2 200
  320. JUMPMARK 341
  321. MARK 342
  322.  
  323. SHOW SCREEN "GUIDE7.SCR" TXT
  324. COLOR BACKGROUND 5
  325. GOXY 3 08 DRAW BOX 43 3
  326. GOXY 4 09 WRITE "Then you enter the name of the slide defi-"
  327. GOXY 4 10 WRITE "nition file, remember TEST.SLD            "
  328. COLOR ATTRIBUTE 63
  329. SET CURSOR ON
  330.  
  331. VARIABLE VALUE instr ""
  332. MARK 343
  333. GOXY 46 20 READ STRING instr 12
  334. CASE STRING UPPER instr "TEST.SLD" DO JUMPMARK 344
  335. MUSIC SOUND A 2 200
  336. JUMPMARK 343
  337. MARK 344
  338. SET CURSOR OFF
  339.  
  340. SHOW SCREEN "GUIDE8.SCR" TXT
  341. COLOR ATTRIBUTE 95
  342. GOXY 3 08 DRAW BOX 44 4
  343. GOXY 4 09 WRITE "Now the script is made and it has to be sa-"
  344. GOXY 4 10 WRITE "ved  before you can run it.  Hit the F2 key"
  345. GOXY 4 11 WRITE "and then press <Enter>                     "
  346.  
  347. MARK 345
  348. READ KEY inkey
  349. CASE KEY inkey 460 DO JUMPMARK 346  ; F2 key
  350. CASE KEY inkey 27 DO JUMPMARK 1     ; <Esc> key
  351. MUSIC SOUND A 2 200
  352. JUMPMARK 345
  353. MARK 346
  354.  
  355. SHOW SCREEN "GUIDE9.SCR" TXT
  356. MARK 347
  357. READ KEY inkey
  358. CASE KEY inkey 13 DO JUMPMARK 348   ; <Enter> key
  359. CASE KEY inkey 27 DO JUMPMARK 1     ; <Esc> key
  360. MUSIC SOUND A 2 200
  361. JUMPMARK 347
  362. MARK 348
  363.  
  364. SHOW SCREEN "GUIDE10.SCR" TXT
  365. GOXY 3 08 DRAW BOX 44 4
  366. GOXY 4 09 WRITE "To keep the names of files somewhat in line"
  367. GOXY 4 10 WRITE "with each other, you should save the script"
  368. GOXY 4 11 WRITE "with the name TEST.SHW                     "
  369. COLOR ATTRIBUTE 63
  370. SET CURSOR ON
  371.  
  372. VARIABLE VALUE instr ""
  373. MARK 349
  374. GOXY 46 20 READ STRING instr 12
  375. CASE STRING UPPER instr "TEST.SHW" DO JUMPMARK 350
  376. MUSIC SOUND A 2 200
  377. JUMPMARK 349
  378. MARK 350
  379. SET CURSOR OFF
  380.  
  381. SHOW SCREEN "GUIDE8.SCR" TXT
  382. COLOR BACKGROUND 1
  383. COLOR FOREGROUND 14
  384. GOXY 72 3 WRITE "TEST.SHW"
  385. COLOR FOREGROUND 15
  386. COLOR BACKGROUND 5
  387. COLOR ATTRIBUTE 95
  388. GOXY 3 08 DRAW BOX 44 4
  389. GOXY 4 09 WRITE "The script has been saved  and you can  now"
  390. GOXY 4 10 WRITE "run it from the main menu. To return to the"
  391. GOXY 4 11 WRITE "main menu push F10                         "
  392.  
  393. MARK 351
  394. READ KEY inkey
  395. CASE KEY inkey 468 DO JUMPMARK 352  ; F10 key
  396. CASE KEY inkey 27 DO JUMPMARK 1     ; <Esc> key
  397. MUSIC SOUND A 2 200
  398. JUMPMARK 351
  399. MARK 352
  400.  
  401. SHOW SCREEN "SHOW1.SCR" TXT
  402. GOXY 3 08 DRAW BOX 42 6
  403. GOXY 4 09 WRITE "To run a script you must always be in the"
  404. GOXY 4 10 WRITE "main menu. Also there's a runtime version"
  405. GOXY 4 11 WRITE "that runs scripts.  Scripts  are executed"
  406. GOXY 4 12 WRITE "from the 'Files' menu, so you push F2 and"
  407. GOXY 4 13 WRITE "push <Enter> to run script from start.   "
  408.  
  409. MARK 353
  410. READ KEY inkey
  411. CASE KEY inkey 460 DO JUMPMARK 354  ; F2 key
  412. CASE KEY inkey 27 DO JUMPMARK 1     ; <Esc> key
  413. MUSIC SOUND A 2 200
  414. JUMPMARK 353
  415. MARK 354
  416.  
  417. SHOW SCREEN "GUIDE11.SCR" TXT
  418. MARK 355
  419. READ KEY inkey
  420. CASE KEY inkey 13 DO JUMPMARK 356   ; <Enter> key
  421. CASE KEY inkey 27 DO JUMPMARK 1     ; <Esc> key
  422. MUSIC SOUND A 2 200
  423. JUMPMARK 355
  424. MARK 356
  425.  
  426. SHOW SCREEN "GUIDE12.SCR" TXT
  427. GOXY 3 08 DRAW BOX 39 4
  428. GOXY 4 09 WRITE "The script you must execute is the one"
  429. GOXY 4 10 WRITE "we just saved in the Script Center. So"
  430. GOXY 4 11 WRITE "you write TEST.SHW                    "
  431. COLOR ATTRIBUTE 63
  432. SET CURSOR ON
  433.  
  434. VARIABLE VALUE instr ""
  435. MARK 357
  436. GOXY 46 20 READ STRING instr 12
  437. CASE STRING UPPER instr "TEST.SHW" DO JUMPMARK 358
  438. MUSIC SOUND A 2 200
  439. JUMPMARK 357
  440. MARK 358
  441. SET CURSOR OFF
  442.  
  443. COLOR ATTRIBUTE 95
  444. GOXY 3 08 DRAW BOX 40 4
  445. GOXY 4 09 WRITE "The script will be executed right away."
  446. GOXY 4 10 WRITE "When the script has finished GUIDE will"
  447. GOXY 4 11 WRITE "return with a show message.            "
  448. WAIT 3
  449.  
  450. ; Here we mimic the slide behavior.
  451. SHOW SCREEN "SHOW1.SCR" TXT
  452. WAIT 4
  453. EFFECT GLITTER
  454. SHOW SCREEN "SHOW3.SCR" TXT
  455. WAIT 4
  456. SCREEN CLEAR
  457. WAIT 1
  458.  
  459. COLOR ATTRIBUTE 111
  460. SCREEN WIPE SPLIT
  461. COLOR ATTRIBUTE 95
  462. GOXY 3 08 DRAW BOX 41 7
  463. GOXY 4 09 WRITE "This concludes the simple guided tour on"
  464. GOXY 4 10 WRITE "how to make  a very simple slide show u-"
  465. GOXY 4 11 WRITE "sing the Slide and Script Center.  There"
  466. GOXY 4 12 WRITE "are very powerful features within all of"
  467. GOXY 4 13 WRITE "many Centers and menues in DataShow.  So"
  468. GOXY 4 14 WRITE "play with it all and learn MultiMedia!  "
  469.  
  470.  
  471. ; Place to jump to if <Esc> is pushed.
  472. MARK 1
  473.