home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / sound2 / midipy15.zip / MIDIPLAY.TBK (.txt) < prev    next >
Asymetrix ToolBook File  |  1993-06-27  |  82KB  |  1,679 lines

  1. System
  2. orig_list(1)
  3. Elvira
  4. DIPlay
  5.  Concerto #6
  6. Funky Beat
  7. orig_list(4)
  8. orig_list(2)
  9. orig_list(7)
  10. Comical 4
  11. orig_list(3)
  12. Action 4
  13. Arial
  14. orig_list(8)
  15. Times New Roman
  16. Arial
  17. Times New Roman
  18. Action 3
  19. Canyon
  20. orig_list(5)
  21. Canyon
  22. orig_list(6)
  23. DixieLand
  24. orig_list(9)
  25. orig_list(10)
  26. Jupiter
  27. orig_list(11)
  28. orig_list(12)
  29. Nutcracker Suite
  30. orig_list(13)
  31. Party
  32. orig_list(14)
  33. Sweet Drums
  34. orig_list(15)
  35. The big city
  36. orig_list(16)
  37. The BIG Piano
  38. orig_list(17)
  39. orig_list(18)
  40. DIPlay
  41. Bluesy 2
  42. Action 3
  43. Dance With Me
  44. Maple Leaf Rag
  45. DIPlay
  46. The BIG Piano
  47. DIPlay
  48. Anitras
  49. Clarinet Polka
  50. DIPlay
  51. DIPlay
  52. MIDIPlay
  53. ourree
  54. omOvE
  55. DIPlay
  56. DIPlay
  57. ourree
  58. System
  59. L!L%V)
  60. .*.P.v.
  61. 0:0`0@2
  62. nTstx
  63. about
  64. init 
  65. dlgInit 
  66. setValue(
  67. ,"","")
  68. --DLL function
  69. retValue 
  70. dialog(dlgBox 
  71. getValue(
  72. ., "")
  73. tbkmci("status MIDIFile mode","")
  74. = "stopped"
  75. 3play 
  76. buttonUp
  77. buttonUp
  78. dlgInit
  79. dlgBox
  80. dialog
  81. status MIDIFile mode
  82. tbkmci
  83. stopped
  84. play MIDIFile
  85. tbkmci
  86. retValue
  87. dlgInit
  88. ,g72,
  89. ,g62,
  90. ,b50,FALSE
  91. ,h57,
  92. ,s58,MIDIPlay Version 1.5
  93. ,s63,(C) Copyright 1993
  94. ,s64,DunsonWare, Co.
  95. ,s65,All Rights Reserved.
  96. ,s66,This program may be freely distributed without cost provided that it is in no way changed.  MIDIPlay is shareware and if you find it of value please send a $5.00 check or money order payable to DunsonWare to the following address:
  97. ,s67,DunsonWare
  98. PO. Box 771269
  99. Wichita, KS  67277
  100. dlgBox
  101. 524480,10,49,3,187,206,,,About MIDIPlay,8,Helv,,8.88,76.59,170.29,91.20,72,1342177287,128,,0,,46.67,6.48,93.33,20.10,62,1342177287,128,,0,,66.36,176.90,50.86,12.31,50,1342242816,128,OK,0,,8.46,8.49,18.29,19.69,57,1342177283,130,comment,0,,57.87,13.74,80.27,11.45,58,1342177280,130,MIDIPlay Version 1.5,0,,56.88,37.21,70.32,11.45,63,1342177280,130,(C) Copyright 1993,0,,56.88,50.75,70.32,11.45,64,1342177280,130,DunsonWare,0,,56.88,63.06,70.32,11.45,65,1342177280,130,All Rights Reserved.
  102. ,0,,18.02,86.44,149.75,49.60,66,1342177280,130,This program may be freely distributed without cost provided that it is in no way changed.  MIDIPlay is shareware and if you find it of value please send a $5.00 check or money order payable to DunsonWare to the following address:,0,,63.16,137.52,64.04,26.22,67,1342177280,130,DunsonWare
  103. PO. Box 771269
  104. Wichita,0
  105. ctrlID
  106. warning
  107. 4warningtext
  108. init 
  109. dlgInit 
  110. setValue(
  111. ,"static label",
  112. --DLL function
  113. retValue 
  114. dialog(dlgBox 
  115. getValue(
  116. ., "")
  117. buttonUp
  118. buttonUp
  119. dlgInit
  120. static label
  121. setValue
  122. dlgBox
  123. dialog
  124. retValue
  125. warningtext
  126. dlgInit
  127. ,h56,
  128. static label,s58,
  129. ,b59,FALSE
  130. dlgBox
  131. 524480,3,18,23,254,69,,,MIDIPlay,8,Helv,,5.75,12.92,18.29,19.69,56,1342177283,130,comment,0,label,30.02,18.95,220.11,10.99,58,1342177280,130,,0,,91.47,40.86,76.50,14.32,59,1342242816,128,OK,0
  132. ctrlID
  133. playlistbox
  134. 4sender    
  135. init 
  136. dlgInit 
  137. setValue(
  138. ,"listbox playlist",
  139. --DLL function
  140. retValue 
  141. dialog(dlgBox 
  142. getValue(
  143. Bokbutton") 
  144. T,"nlistbox 
  145. temper
  146. + 1 & "," 
  147. temp2 
  148. selectedTextlines 
  149. videos 
  150. buttonUp
  151. buttonUp
  152. dlgInit
  153. listbox playlist
  154. setValue
  155. dlgBox
  156. dialog
  157. button okbutton
  158. getValue
  159. nlistbox playlist
  160. getValue
  161. videos
  162. temp2
  163. temper
  164. retValue
  165. sender
  166. dlgInit
  167. ,s50,Please select one or more MIDI songs for playback:
  168. listbox playlist,l51,
  169. button okbutton,b52,TRUE
  170. button cancelbutton,b53,FALSE
  171. ,s54,To select multiple MIDI songs, hold CTRL key down while clicking with the left mouse button.
  172. ,s55,Hold the Shift key down while clicking with the left mouse button to extend a selection.
  173. ,s60,Please select one or more MIDI songs for playback:
  174. dlgBox
  175. 524480,7,55,1,176,152,,,MIDIPlay Playlist,8,Helv,,3.73,4.55,171.73,11.45,50,1342177280,130,Please select one or more MIDI songs for playback:,0,playlist,3.73,16.45,166.13,64.33,51,1352730625,131,,0,okbutton,21.60,124.14,50.86,12.31,52,1342242817,128,&OK,0,cancelbutton,98.32,124.14,50.86,12.31,53,1342242816,128,&Cancel,0,,3.73,76.80,164.27,18.09,54,1342177280,130,To select multiple MIDI songs,0,,3.73,100.47,162.59,20.10,55,1342177280,130,Hold the Shift key down while clicking with the left mouse button to extend a selection.,0,,0.30,95.63,176.30,0.98,60,1350565888,130,Please select one or more MIDI songs for playback:,0
  176. ctrlID
  177. videodescription
  178. 4nameoffile,filenameval
  179. init 
  180. dlgInit 
  181. setValue(
  182. ,"static midifilename",
  183. --DLL function
  184. retValue 
  185. dialog(dlgBox 
  186. getValue(
  187. Bokbutton")
  188. viddes")
  189. buttonUp
  190. buttonUp
  191. dlgInit
  192. static midifilename
  193. setValue
  194. dlgBox
  195. dialog
  196. button okbutton
  197. getValue
  198. edit viddes
  199. getValue
  200. cancel
  201. retValue
  202. nameoffile
  203. filenameval
  204. dlgInit
  205. ,s50,Please enter a description for this MIDI file.
  206. edit viddes,e51,
  207. button okbutton,b52,TRUE
  208. ,s54,MIDI File Name:
  209. static midifilename,s55,
  210. button cancelbutton,b56,FALSE
  211. dlgBox
  212. 524480,6,62,12,155,96,,,MIDI Description,8,Helv,,3.54,31.38,147.50,11.45,50,1342177280,130,Please enter a description for this MIDI file.,0,viddes,3.54,43.45,100.80,13.17,51,1350631424,129,,0,okbutton,24.08,65.56,37.33,12.31,52,1342242817,128,OK,0,,3.58,2.71,63.47,11.45,54,1342177280,130,MIDI File Name:,0,midifilename,1.68,15.30,138.17,11.45,55,1342177280,130,,0,cancelbutton,91.31,65.03,37.33,12.31,56,1342242816,128,Cancel,0
  213. ctrlID
  214. selections
  215. 4selects
  216. init 
  217. dlgInit 
  218. setValue(
  219. ,"listbox selections",
  220. --DLL function
  221. retValue 
  222. dialog(dlgBox 
  223. getValue(
  224. ., "")
  225. tbkmci("status MIDIFile mode","")
  226. = "stopped"
  227. 3play 
  228. buttonUp
  229. buttonUp
  230. dlgInit
  231. listbox selections
  232. setValue
  233. dlgBox
  234. dialog
  235. status MIDIFile mode
  236. tbkmci
  237. stopped
  238. play MIDIFile
  239. tbkmci
  240. retValue
  241. selects
  242. dlgInit
  243. ,g91,
  244. listbox selections,l53,
  245. ,b60,FALSE
  246. dlgBox
  247. 524480,3,78,2,120,140,,,Current Selections,8,Helv,,10.78,7.18,101.79,100.51,91,1342177287,128,,0,selections,9.33,8.57,100.80,96.66,53,1352728577,131,,0,,33.60,113.11,50.86,12.31,60,1342242816,128,Close,0
  248. ctrlID
  249. dupdes
  250. init 
  251. dlgInit 
  252. setValue(
  253. ,"","")
  254. --DLL function
  255. retValue 
  256. dialog(dlgBox 
  257. getValue(
  258. ., "")
  259. buttonUp
  260. buttonUp
  261. dlgInit
  262. dlgBox
  263. dialog
  264. retValue
  265. dlgInit
  266. ,h56,
  267. ,s57,You have entered a description which has already been used.  Please re-enter a new description for this MIDI file.
  268. ,b58,FALSE
  269. dlgBox
  270. 524480,3,55,20,193,73,,,Duplicate Decription,8,Helv,,7.47,16.74,18.29,19.69,56,1342177283,130,stop,0,,35.47,12.72,138.13,28.14,57,1342177280,130,You have entered a description which has already been used.  Please re-enter a new description for this MIDI file.
  271. ,0,,74.67,44.88,50.86,12.31,58,1342242816,128,OK,0
  272. B!ctrlID
  273. error_message
  274. !dlgInit
  275. ,s50,The following MIDI file(s) could not be located on the path(s) indicated.  Either they have been moved to a new location or have been deleted.  In order for MIDIPlay to work properly, the MIDI file(s) must be removed from your list of MIDI files.  Click on the OK button to do this now.  (NOTE: If the MIDI file(s) shown below have simply been moved to a new location, you can add them back to your list.)
  276. button okbutton,b60,TRUE
  277. listbox videolist,l58,
  278. ,h112,
  279. 2%|#dlgBox
  280. 524480,4,25,0,237,160,,,MIDIPlay,8,Helv,,27.85,4.59,205.33,59.94,50,1342177280,130,The following MIDI file(s) could not be located on the path(s) indicated.  Either they have been moved to a new location or have been deleted.  In order for MIDIPlay to work properly,0,okbutton,65.18,131.24,102.67,12.31,60,1342242817,128,OK,0,videolist,27.85,66.91,201.60,59.86,58,1352728577,131,,0,,3.58,18.67,18.29,19.69,112,1342177283,130,stop,0
  281. B%ctrlID
  282. warning2
  283. 4warningtext
  284. init 
  285. dlgInit 
  286. setValue(
  287. ,"static label",
  288. --DLL function
  289. retValue 
  290. dialog(dlgBox 
  291. getValue(
  292. Byesbutton")
  293. delete
  294. buttonUp
  295. buttonUp
  296. dlgInit
  297. static label
  298. setValue
  299. dlgBox
  300. dialog
  301. button yesbutton
  302. getValue
  303. retValue
  304. warningtext
  305. 'X'dlgInit
  306. ,h56,
  307. static label,s58,
  308. button yesbutton,b59,TRUE
  309. button nobutton,b76,FALSE
  310. ,s91,Are you sure you want to remove:
  311. 'dlgBox
  312. 524480,5,44,18,199,69,,,MIDIPlay,8,Helv,,5.45,9.93,18.29,19.69,56,1342177283,130,question,0,label,33.30,22.36,160.50,10.05,58,1342177280,130,,0,yesbutton,29.68,42.09,50.86,14.03,59,1342242816,128,Yes,0,nobutton,111.85,42.09,50.86,14.07,76,1342242817,128,No,0,,33.30,10.30,134.40,10.05,91,1342177280,130,Are you sure you want to remove:
  313. L)ctrlID
  314. playbutton
  315. removeselect
  316. 4tempval
  317. "title" 
  318. temper
  319. init 
  320. dlgInit 
  321. setValue(
  322. ,"listbox removelist",
  323. --DLL function
  324. retValue 
  325. dialog(dlgBox 
  326. getValue(
  327. Bokbutton")
  328. buttonUp
  329. buttonUp
  330. title
  331. dlgInit
  332. listbox removelist
  333. setValue
  334. dlgBox
  335. dialog
  336. button okbutton
  337. getValue
  338. listbox removelist
  339. getValue
  340. retValue
  341. temper
  342. tempval
  343. ,>,dlgInit
  344. button okbutton,b61,TRUE
  345. button cancelbutton,b62,FALSE
  346. listbox removelist,l64,
  347. ,dlgBox
  348. 524480,3,71,13,136,146,,,Select MIDI file to remove...,8,Helv,okbutton,13.07,117.58,50.86,12.31,61,1342242816,128,OK,0,cancelbutton,72.80,117.58,50.86,12.31,62,1342242817,128,Cancel,0,removelist,13.07,11.04,110.13,100.51,64,1352728579,131,,0
  349. -ctrlID
  350. N/:PHYSSIZE
  351. 0:PHYSSIZE
  352. 1:PHYSSIZE
  353. 2:PHYSSIZE
  354. J5:PHYSSIZE
  355. removemidi
  356. 7:PHYSSIZE
  357. xyoffset 
  358. item1 
  359. item2 
  360. p2 + 
  361. p2 + 
  362. buttondown
  363. buttonup
  364. buttondown
  365. item2
  366. item1
  367. xyoffset
  368. buttonup
  369. item2
  370. item1
  371. 4275,242
  372. ;:PHYSSIZE
  373. pause
  374. (Pause) 
  375. tbkMCI("
  376. MIDIFile","")
  377. "playsymbol" 
  378. "pausesymbol" 
  379. "Paused" 
  380. "statusfield" 
  381. "Playing" 
  382. tbkMci("
  383. buttonUp
  384. buttonUp
  385. active,unchecked
  386. Pause
  387. pause MIDIFile
  388. tbkMCI
  389. playsymbol
  390. pausesymbol
  391. Paused
  392. statusfield
  393. active,checked
  394. Pause
  395. playsymbol
  396. pausesymbol
  397. Playing
  398. statusfield
  399. play MIDIFile
  400. tbkMci
  401. Pause
  402. v@:PHYSSIZE
  403. wwwxwwwx
  404. xyoffset 
  405. item1 
  406. item2 
  407. p2 + 
  408. p2 + 
  409. buttondown
  410. buttonup
  411. buttondown
  412. item2
  413. item1
  414. xyoffset
  415. buttonup
  416. item2
  417. item1
  418. 6855,390
  419. playit
  420. 4videolist,counter,stopnow,warningtext,midilist2,selection_total
  421. "videos" 
  422. "No Midi files 
  423. playlist. Please 
  424. Add MIDI File..." 
  425. selectedtextLines 
  426. hWnd 
  427. FindWindow(0,"MIDIPlay")
  428. (autominimize) 
  429. ShowWindow(
  430. B"playButton" 
  431. buttonUp
  432. buttondown
  433. buttonUp
  434. videos
  435. buttondown
  436. No Midi files in playlist. Please select Add MIDI File...
  437. buttonUp
  438. warning
  439. videos
  440. videos
  441. buttondown
  442. MIDIPlay
  443. FindWindow
  444. active,checked
  445. ShowWindow
  446. buttonUp
  447. playButton
  448. autominimize
  449. videolist
  450. counter
  451. stopnow
  452. warningtext
  453. midilist2
  454. selection_total
  455. buttondown
  456. I:PHYSSIZE
  457. xyoffset 
  458. item1 
  459. item2 
  460. p2 + 
  461. p2 + 
  462. buttondown
  463. buttonup
  464. buttondown
  465. item2
  466. item1
  467. xyoffset
  468. buttonup
  469. item2
  470. item1
  471. 6045,360
  472. stopbutton
  473. 4videolist,stopnow,counter,current_track
  474. sysLockscreen 
  475. tbkMci("close 
  476. wait","") 
  477. "tracknumber" 
  478. "00" 
  479. "tracknumbermin" 
  480. "00" 
  481. "tracknumbersec" 
  482. "00:00:00:00" 
  483. "currentpos" 
  484. "Pause" 
  485. "pausecover" 
  486. "playcover" 
  487. "stopsymbol" 
  488. "playsymbol" 
  489. playlistcover 
  490. "Midi Playlist" 
  491. "pausesymbol" 
  492. "Stopped" 
  493. "statusfield" 
  494. "tempo" 
  495. "MIDIPlay"
  496. buttonUp
  497. buttonUp
  498. buttondown
  499. close all wait
  500. tbkMci
  501. tracknumber
  502. tracknumbermin
  503. tracknumbersec
  504. 00:00:00:00
  505. currentpos
  506. Pause
  507. Pause
  508. pausecover
  509. playcover
  510. stopsymbol
  511. playsymbol
  512. Midi Playlist
  513. pausesymbol
  514. Stopped
  515. statusfield
  516. tempo
  517. MIDIPlay
  518. playlistcover
  519. videolist
  520. stopnow
  521. counter
  522. current_track
  523. R:PHYSSIZE
  524. xyoffset 
  525. item1 
  526. item2 
  527. p2 + 
  528. p2 + 
  529. buttondown
  530. buttonup
  531. buttondown
  532. item2
  533. item1
  534. xyoffset
  535. buttonup
  536. item2
  537. item1
  538. 6825,1095
  539. previousmidi
  540. W:PHYSSIZE
  541. xyoffset 
  542. item1 
  543. item2 
  544. p2 + 
  545. p2 + 
  546. buttondown
  547. buttonup
  548. buttondown
  549. item2
  550. item1
  551. xyoffset
  552. buttonup
  553. item2
  554. item1
  555. 5805,1095
  556. nextmidi
  557. 4midilist2,videolist
  558. "statusfield" 
  559. /<> "Playing"
  560. "Scan" 
  561. playsymbol 
  562. rightscan 
  563. tbkmci("close MIDIFile",
  564. buttonUp
  565. buttonUp
  566. statusfield
  567. Playing
  568. close MIDIFile
  569. tbkmci
  570. close MIDIFile
  571. tbkmci
  572. rightscan
  573. playsymbol
  574. statusfield
  575. midilist2
  576. videolist
  577. l]:PHYSSIZE
  578. xyoffset 
  579. item1 
  580. item2 
  581. p2 + 
  582. p2 + 
  583. buttondown
  584. buttonup
  585. buttondown
  586. item2
  587. item1
  588. xyoffset
  589. buttonup
  590. item2
  591. item1
  592. 6195,1095
  593. a:PHYSSIZE
  594. 3    4gx
  595. midiplaylist
  596. 4warningtext,sender
  597. "videos" 
  598. "No Midi files 
  599. playlist. Please 
  600. Add MIDI File..." 
  601. selectedTextlines 
  602. popper1
  603. popper2
  604. "&" & 
  605. R <> 
  606. Bplaylistbox 
  607. buttonUp
  608. buttonUp
  609. videos
  610. buttondown
  611. No Midi files in playlist. Please select Add MIDI File...
  612. buttonUp
  613. warning
  614. videos
  615. buttonUp
  616. playlistbox
  617. popper2
  618. popper1
  619. videos
  620. warningtext
  621. sender
  622. "videos"
  623. buttonUp
  624. buttonUp
  625. videos
  626. h:PHYSSIZE
  627. xyoffset 
  628. item1 
  629. item2 
  630. p2 + 
  631. p2 + 
  632. buttondown
  633. buttonup
  634. buttondown
  635. item2
  636. item1
  637. xyoffset
  638. buttonup
  639. item2
  640. item1
  641. 315,2100
  642. repeat
  643. buttonUp
  644. buttonUp
  645. repeat
  646. "videos"
  647. buttonUp
  648. buttonUp
  649. videos
  650. &p:PHYSSIZE
  651. xyoffset 
  652. item1 
  653. item2 
  654. p2 + 
  655. p2 + 
  656. buttondown
  657. buttonup
  658. buttondown
  659. item2
  660. item1
  661. xyoffset
  662. buttonup
  663. item2
  664. item1
  665. 5895,1725
  666. buttonUp
  667. buttonUp
  668. "videos"
  669. buttonUp
  670. buttonUp
  671. videos
  672. bu:PHYSSIZE
  673. xyoffset 
  674. item1 
  675. item2 
  676. p2 + 
  677. p2 + 
  678. buttondown
  679. buttonup
  680. buttondown
  681. item2
  682. item1
  683. xyoffset
  684. buttonup
  685. item2
  686. item1
  687. playcover
  688. y:PHYSSIZE
  689. repeatsymbol
  690. hz:PHYSSIZE
  691. statusfield
  692. Stopped
  693. stopsymbol
  694. {:PHYSSIZE
  695. playsymbol
  696. |:PHYSSIZE
  697. pausesymbol
  698. R}:PHYSSIZE
  699. Playlist Total:
  700. playlisttotal
  701. tracknumber
  702. Current Selection:
  703. tracknumbermin
  704. tracknumber
  705. currentpos
  706. 00:00:00:00
  707. tracknumbersec
  708. tempo
  709. Tempo:
  710. addmidi
  711. :PHYSSIZE
  712. xyoffset 
  713. item1 
  714. item2 
  715. p2 + 
  716. p2 + 
  717. buttondown
  718. buttonup
  719. buttondown
  720. item2
  721. item1
  722. xyoffset
  723. buttonup
  724. item2
  725. item1
  726. 3270,240
  727. :PHYSSIZE
  728. :PHYSSIZE
  729. playlistcover
  730. :PHYSSIZE
  731. pausecover
  732. scott
  733. :PHYSSIZE
  734. currentselections
  735. 4selects,warningtext
  736. "videos" 
  737. "No Midi files 
  738. playlist. Please 
  739. Add MIDI File..." 
  740. selectedTextLines 
  741. "There are no 
  742. music
  743. "title" 
  744. & CRLF 
  745. Bselections 
  746. buttonUp
  747. buttonUp
  748. videos
  749. buttondown
  750. No Midi files in playlist. Please select Add MIDI File...
  751. buttonUp
  752. warning
  753. buttondown
  754. There are no MIDI files selected.
  755. buttonUp
  756. warning
  757. title
  758. buttonUp
  759. selections
  760. music
  761. videos
  762. selects
  763. warningtext
  764. "videos"
  765. buttonUp
  766. buttonUp
  767. videos
  768. :PHYSSIZE
  769. xyoffset 
  770. item1 
  771. item2 
  772. p2 + 
  773. p2 + 
  774. buttondown
  775. buttonup
  776. buttondown
  777. item2
  778. item1
  779. xyoffset
  780. buttonup
  781. item2
  782. item1
  783. 1335,2595
  784. rightscan
  785. :PHYSSIZE
  786. leftscan
  787. :PHYSSIZE
  788. loadwait
  789. Loading playlist, please wait....
  790. :PHYSSIZE
  791. videos
  792. -- trap 
  793. buttondown
  794. buttondown
  795. 4playfullscreen,play_indef,num_loops,counter,stopnow,helpfile,current_track
  796. "midiplay.hlp"
  797. setmenu
  798. linkDLL "tbkdlg.dll"
  799. opendlg(
  800. dialog(
  801. setValue(
  802. getValue(
  803. X"tbkfile.
  804. getCurrentdrive()
  805. getCurrentDirectory(
  806. setCurrentDirectory(
  807. FileExists(STRING)
  808. X"tbkwin.
  809.  getWinIniVar(
  810. WORD setWinIniVar(
  811. LinkDLL "
  812. e tbkmci(
  813. initStyle
  814. get_directory_drive
  815. read_data
  816. video_error_check
  817. settimer
  818. "title" 
  819. "videos" 
  820. selectedtextlines 
  821. "Stopped" 
  822. "statusfield" 
  823.  "playlisttotal" 
  824. unlinkDLL "user"
  825. hWnd 
  826. sysClientHandle -- identifies 
  827. which message 
  828. be sent
  829. nIDEvent 
  830. integer used 
  831. identify 
  832. within your 
  833.  (see setTimer)
  834. killTimer(
  835. setStyle -4-1
  836. SetStyle pValue
  837. 4sizefirst
  838. -- This handler calls 
  839. the Windows 3.x DLL, 
  840. .exe,
  841. !style 
  842. *ToolBook 
  843. e, modifies that
  844. -- value, 
  845. Fsets 
  846. getWindowlong(
  847. -- (hwnd,nIndex)
  848. setWindowlong(
  849. ),wNewWord)
  850.     LONG GetTickCount()
  851. MessageBox (
  852.     INT WinHelpIndex = 
  853. , DWORD)
  854. *MoveWindow(
  855. KFindWindow(
  856. `ShowWindow(
  857. SetTimer(
  858. KillTimer(
  859. SetWindowPos(
  860. getWindowLong(
  861. ,-16)
  862. -- Add/Remove a 
  863. subtract one 
  864. following values 
  865. corresponding 
  866. Maximize Box
  867. Minimize 
  868. Thick Frame
  869. System Menu
  870. Horz Scroll
  871. Vert 
  872. Dialog 
  873. (128)
  874. Border
  875. (192)
  876. Caption
  877. 64+128.
  878. Includes border 
  879.  frame.}
  880. (256)
  881. (512)
  882. Clip Children
  883. (1024)
  884. Siblings
  885. (2048)
  886. Disabled
  887. (4096)
  888. Visible
  889. (8192)
  890. (16384)
  891. (32768)
  892. Popup
  893. hiWord 
  894. y65536 -- replaced "/" operator 
  895. y" - DRL 4/6/92
  896. loWord 
  897. k65536
  898. (hiword * 65536) + (
  899. setWindowLong(
  900. ,-16,
  901. properly resets 
  902. 7450,3000
  903. 10900,3000
  904. MainWindow 
  905. 15,18
  906. c"Text" 
  907. c"Edit" 
  908. c"Page" 
  909. c"&Midi" 
  910. c"&Settings" 
  911. "&Exit" 
  912. S Playlist" 
  913.  Selections..." 
  914. "&Add 
  915. ..." 
  916. ..." 
  917.  &Next" 
  918.  Previous" 
  919. "Pa&use" 
  920. "&Repeat" 
  921. "&Auto 
  922. "&Stay On Top" 
  923. "&Contents
  924. "&How To Use 
  925. "&About MIDIPlay..." 
  926. "Pause" 
  927. aboutmidiplay
  928. addvideo
  929. removevideo
  930. currentselections
  931. winHelpIndex(
  932. , "winhelp.
  933. ,3, 0)
  934. playvideo
  935. playit 
  936. closevideo
  937. stopbutton 
  938. contentsf1
  939. pathname
  940. 3, 0) 
  941. setup
  942. fileclosed 
  943. firsttime 
  944. loadwait
  945. wininivariable 
  946. ", "StayOnTop")
  947. ,"0")
  948. ","Automin","0")
  949. startupstatus
  950. save_data
  951. titledat
  952. pathdat
  953. i = 1
  954. i = 1
  955. getCurrentDrive()
  956. driveletter
  957.  & ":\" & 
  958. 0 = keyEnter
  959. nextmidi 
  960. previousmidi 
  961. repeat
  962. "playcover" 
  963. USER"
  964. Quit = 
  965. winHelpQuit(
  966. , "",2,0)
  967. 2 = HELP_QUIT
  968.  "toolbook" 
  969. 4list_of_files
  970. stackname 
  971. filenametest 
  972. putbefore 
  973. <> 1 
  974. Berror_message 
  975. tbkMMNotify 
  976. ,op,dev
  977. 4videolist,
  978. + = "MIDIfile"
  979. tbkMCI("
  980. B"playbutton" 
  981. sysLockscreen 
  982. "pausecover" 
  983. "playsymbol" 
  984. "pausesymbol" 
  985. "stopsymbol" 
  986. playlistcover 
  987. "tracknumber" 
  988. "00" 
  989. "tracknumbermin" 
  990. "00" 
  991. "tracknumbersec" 
  992. "tempo" 
  993. "00:00:00:00" 
  994. "currentpos" 
  995. "repeatsymbol" 
  996. addmidifile
  997. removemidifile
  998. playnext
  999. playprevious
  1000. /= "Playing"
  1001.  MIDIFile 
  1002. ","")
  1003. midiplaylist
  1004. togglestatus
  1005. autominimize
  1006. arbitrary 
  1007. wElapse 
  1008. -- specifies 
  1009. elapsed 
  1010. milliseconds) between 
  1011.  events
  1012. lpTimerFunc 
  1013. parameter 
  1014. stayontop
  1015. setWindowPos(
  1016. ,-2,0,0,0,0,3)
  1017. ,"0")
  1018. ,-1,0,0,0,0,3)
  1019. ,"1")
  1020. wininivariable2 
  1021. aboutmidiplay
  1022. setup
  1023. sizetopage
  1024. read_data
  1025. enterBook
  1026. save_data
  1027. addvideo
  1028. get_directory_drive
  1029. keyDown
  1030. initStyle
  1031. enterSystem
  1032. removevideo
  1033. video_error_check
  1034. pause
  1035. currentselections
  1036. tbkMMNotify
  1037. repeat
  1038. SetStyle
  1039. howtousehelp
  1040. addmidifile
  1041. removemidifile
  1042. leaveBook
  1043. playnext
  1044. playprevious
  1045. playvideo
  1046. midiplaylist
  1047. closevideo
  1048. togglestatus
  1049. setmenu
  1050. autominimize
  1051. settimer
  1052. contentsf1
  1053. stayontop
  1054. startupstatus
  1055. enterBook
  1056. midiplay.hlp
  1057. Ksetmenu
  1058. tbkdlg.dll
  1059. opendlg
  1060.                     
  1061. dialog
  1062. setValue
  1063. getValue
  1064. tbkfile.dll
  1065. getCurrentdrive
  1066. getCurrentDirectory
  1067. setCurrentDirectory
  1068. FileExists
  1069. tbkwin.dll
  1070. getWinIniVar
  1071. setWinIniVar
  1072. midiplay.dat
  1073. tbkmci
  1074. initStyle
  1075. +Sget_directory_drive
  1076. nread_data
  1077. video_error_check
  1078. xsettimer
  1079. title
  1080. videos
  1081. videos
  1082. Stopped
  1083. statusfield
  1084. title
  1085. playlisttotal
  1086. playfullscreen
  1087. play_indef
  1088. num_loops
  1089. counter
  1090. stopnow
  1091. helpfile
  1092. current_track
  1093. leaveBook
  1094. midiplay.dat
  1095. tbkdlg.dll
  1096. tbkfile.dll
  1097. tbkwin.dll
  1098. killTimer
  1099. nIDEvent
  1100. initStyle
  1101. setStyle
  1102. SetStyle
  1103. getWindowlong
  1104. setWindowlong
  1105. GetTickCount
  1106. MessageBox
  1107. WinHelpIndex
  1108. WinHelp
  1109. MoveWindow
  1110. FindWindow
  1111. ShowWindow
  1112. SetTimer
  1113. SetTimer
  1114. KillTimer
  1115. SetWindowPos
  1116. getWindowLong
  1117. hiword
  1118. setWindowLong
  1119. sizeToPage
  1120. loWord
  1121. hiWord
  1122. style
  1123. sizefirst
  1124. pValue
  1125. setmenu
  1126. &File
  1127. &Midi
  1128. &Settings
  1129. &Help
  1130. &Exit
  1131. &Midi Playlist
  1132. &Current Selections...
  1133. &Add Midi File...
  1134. &Remove Midi File...
  1135. &Play
  1136. Play &Next
  1137. P&lay Previous
  1138. Pa&use
  1139. &Stop
  1140. &Repeat
  1141. Settings
  1142. Settings
  1143. &Auto Minimize
  1144. Settings
  1145. &Stay On Top
  1146. Settings
  1147. &Contents         F1
  1148. &How To Use Help
  1149. &About MIDIPlay...
  1150. Pause
  1151. aboutmidiplay
  1152. buttondown
  1153. buttonUp
  1154. about
  1155. addvideo
  1156. buttonUp
  1157. addvideo
  1158. removevideo
  1159. buttonUp
  1160. removevideo
  1161. currentselections
  1162. buttonUp
  1163. currentselections
  1164. howtousehelp
  1165. winhelp.hlp
  1166. winHelpIndex
  1167. playvideo
  1168. buttonUp
  1169. playit
  1170. closevideo
  1171. buttonUp
  1172. stopbutton
  1173. contentsf1
  1174. setCurrentDirectory
  1175. winHelpIndex
  1176. helpfile
  1177. pathname
  1178. setup
  1179. buttonUp
  1180. setup
  1181. sizetopage
  1182. sizefirst
  1183. read_data
  1184. title.dat
  1185. title.dat
  1186. title.dat
  1187. title
  1188. title.dat
  1189. title
  1190. title.dat
  1191. path.dat
  1192. path.dat
  1193. path.dat
  1194. path.dat
  1195. path.dat
  1196. MIDIPlay
  1197. StayOnTop
  1198. getWinIniVar
  1199. MIDIPlay
  1200. StayOnTop
  1201. setWinIniVar
  1202. MIDIPlay
  1203. Automin
  1204. setWinIniVar
  1205. startupstatus
  1206. wininivariable
  1207. loadwait
  1208. firsttime
  1209. fileclosed
  1210. save_data
  1211. setCurrentDirectory
  1212. title.dat
  1213. title
  1214. title
  1215. title.dat
  1216. title.dat
  1217. path.dat
  1218. path.dat
  1219. path.dat
  1220. pathdat
  1221. titledat
  1222. pathname
  1223. get_directory_drive
  1224. getCurrentDrive
  1225. getCurrentDirectory
  1226. driveletter
  1227. pathname
  1228. keyDown
  1229. buttonUp
  1230. stopbutton
  1231. contentsf1
  1232. buttondown
  1233. buttonUp
  1234. buttonUp
  1235. pause
  1236. videos
  1237. repeat
  1238. videos
  1239. playcover
  1240. buttonUp
  1241. playit
  1242. previousmidi
  1243. nextmidi
  1244. WinHelpQuit
  1245. WinHelp
  1246. winHelpQuit
  1247. enterSystem
  1248. sysWindowHandle
  1249. toolbook
  1250. video_error_check
  1251. FileExists
  1252. buttonUp
  1253. error_message
  1254. putbefore
  1255. filenametest
  1256. stackname
  1257. list_of_files
  1258. pause
  1259. buttonUp
  1260. pause
  1261. tbkMMNotify
  1262. MIDIfile
  1263. active,checked
  1264. close MIDIfile
  1265. tbkMCI
  1266. buttonUp
  1267. playbutton
  1268. buttonUp
  1269. playit
  1270. buttonUp
  1271. playit
  1272. Pause
  1273. playcover
  1274. pausecover
  1275. playsymbol
  1276. pausesymbol
  1277. Stopped
  1278. statusfield
  1279. stopsymbol
  1280. Midi Playlist
  1281. tracknumber
  1282. tracknumbermin
  1283. tracknumbersec
  1284. tempo
  1285. 00:00:00:00
  1286. currentpos
  1287. MIDIPlay
  1288. playlistcover
  1289. Pause
  1290. videolist
  1291. counter
  1292. play_indef
  1293. num_loops
  1294. stopnow
  1295. current_track
  1296. repeat
  1297. active,unchecked
  1298. Repeat
  1299. repeatsymbol
  1300. Repeat
  1301. repeatsymbol
  1302. repeat
  1303. play_indef
  1304. buttonUp
  1305. playit
  1306. buttonUp
  1307. stopbutton
  1308. addmidifile
  1309. buttonUp
  1310. addmidi
  1311. removemidifile
  1312. buttonUp
  1313. removemidi
  1314. playnext
  1315. buttonUp
  1316. nextmidi
  1317. playprevious
  1318. buttonUp
  1319. previousmidi
  1320. statusfield
  1321. Playing
  1322. status MIDIFile position
  1323. tbkmci
  1324. currentpos
  1325. midiplaylist
  1326. buttonUp
  1327. midiplaylist
  1328. togglestatus
  1329. autominimize
  1330. active,unchecked
  1331. Auto Minimize
  1332. MIDIPlay
  1333. Automin
  1334. setWinIniVar
  1335. Auto Minimize
  1336. MIDIPlay
  1337. Automin
  1338. setWinIniVar
  1339. autominimize
  1340. settimer
  1341. SetTimer
  1342. lpTimerFunc
  1343. wElapse
  1344. nIDEvent
  1345. stayontop
  1346. active,checked
  1347. Stay On Top
  1348. setWindowPos
  1349. MIDIPlay
  1350. StayOnTop
  1351. setWinIniVar
  1352. Stay On Top
  1353. setWindowPos
  1354. MIDIPlay
  1355. StayOnTop
  1356. setWinIniVar
  1357. stayontop
  1358. startupstatus
  1359. MIDIPlay
  1360. StayOnTop
  1361. getWinIniVar
  1362. MIDIPlay
  1363. Automin
  1364. getWinIniVar
  1365. stayontop
  1366. 1.autominimize
  1367. wininivariable2
  1368. wininivariable
  1369. title
  1370. temp2
  1371. length
  1372. 4list_of_files
  1373. init 
  1374. dlgInit 
  1375. dlgBox 
  1376. H524288
  1377. setValue(
  1378. B,"listbox videolist",
  1379. --DLL function
  1380. retValue 
  1381. dialog(
  1382. getValue(
  1383. Bokbutton") 
  1384. temp2 
  1385. textlineCount(
  1386. tempval 
  1387. "path" 
  1388. jj = 1
  1389. CRLF & 
  1390. pathnumber
  1391. "title" 
  1392. k <> 
  1393. kk = 1
  1394. save_data
  1395. buttonUp
  1396. buttonUp
  1397. dlgInit
  1398. dlgBox
  1399. listbox videolist
  1400. setValue
  1401. dialog
  1402. button okbutton
  1403. getValue
  1404. title
  1405. title
  1406. title
  1407. title
  1408. save_data
  1409. k:to1
  1410. pathnumber
  1411. j:to1
  1412. tempval
  1413. ui:to
  1414. temp2
  1415. retValue
  1416. list_of_files
  1417. 4filenameval,videonameval,nameoffile,warningtext,stopnow     
  1418. "stopbutton" 
  1419. OpenDlg("\", "*.
  1420. g", "Choose a Midi 
  1421. .", "Add MIDI File")
  1422. [fileName
  1423. num_letters
  1424.  - 2) 
  1425. * - 1) 
  1426. a1 & a2 & a3 
  1427. is_midi
  1428.  <> "
  1429.  <> "
  1430. "You have chosen a non-
  1431. B"videodescription" 
  1432.  = ""
  1433. must provide a 
  1434. is_duplicate
  1435.  = ""
  1436. "title" 
  1437. "path" 
  1438.  CRLF & 
  1439. : (" & 
  1440.  & ") has been added." 
  1441. "videos" 
  1442.  "playlisttotal" 
  1443. save_data
  1444. Bdupdes 
  1445. buttonUp
  1446. is_duplicate
  1447. buttonUp
  1448. buttonUp
  1449. stopbutton
  1450. *.mid
  1451. Choose a Midi file.
  1452. Add MIDI File
  1453. OpenDlg
  1454. You have chosen a non-midi (MID) file.
  1455. buttonUp
  1456. warning
  1457. buttonUp
  1458. videodescription
  1459. cancel
  1460. You must provide a description.
  1461. buttonUp
  1462. warning
  1463. is_duplicate
  1464. cancel
  1465. You must provide a description.
  1466. buttonUp
  1467. warning
  1468. title
  1469. title
  1470. title
  1471. MIDI File: (
  1472. ) has been added.
  1473. buttonUp
  1474. warning
  1475. title
  1476. videos
  1477. title
  1478. playlisttotal
  1479. save_data
  1480. is_midi
  1481. num_letters
  1482. fileName
  1483. filenameval
  1484. videonameval
  1485. nameoffile
  1486. warningtext
  1487. stopnow
  1488. is_duplicate
  1489. title
  1490. title
  1491. buttonUp
  1492. buttonUp
  1493. videodescription
  1494. dupdes
  1495. nameoffile
  1496. 4current_track,videolist,midilist2,selection_total
  1497. "statusfield" 
  1498. /<> "Playing"
  1499. "Scan" 
  1500. playsymbol 
  1501. leftscan 
  1502. { = 1
  1503. tbkmci("close MIDIFile",
  1504.  - 2)
  1505. "path" 
  1506. filename
  1507. tbkMci("
  1508. " && 
  1509.  && "alias MIDIfile","")
  1510.  - 1)
  1511. " && 
  1512.  && "
  1513. dummy 
  1514.  - 2)
  1515. " && 
  1516.  && "
  1517. buttonUp
  1518. Z    buttonUp
  1519. statusfield
  1520. Playing
  1521. close MIDIFile
  1522. tbkmci
  1523. close MIDIFile
  1524. tbkmci
  1525. alias MIDIfile
  1526. tbkMci
  1527. close MIDIFile
  1528. tbkmci
  1529. alias MIDIfile
  1530. tbkMci
  1531. close MIDIFile
  1532. tbkmci
  1533. close MIDIFile
  1534. tbkmci
  1535. alias MIDIfile
  1536. tbkMci
  1537. close MIDIFile
  1538. tbkmci
  1539. dummy
  1540. filename
  1541. i:to1
  1542. leftscan
  1543. playsymbol
  1544. statusfield
  1545. current_track
  1546. videolist
  1547. midilist2
  1548. selection_total
  1549. 4warningtext,tempval,stopnow
  1550. "stopbutton" 
  1551. "videos" 
  1552. "There are no MIDI files 
  1553. B"removeselect" 
  1554. B"warning2" 
  1555. "title" 
  1556. jj = 1
  1557. CRLF & 
  1558. pathnumber
  1559. k <> 
  1560. kk = 1
  1561. : (" & 
  1562.  & ") has been removed." 
  1563.  "playlisttotal" 
  1564. selectedTextlines 
  1565. save_data
  1566. buttonUp
  1567. 2    buttonUp
  1568. buttonUp
  1569. stopbutton
  1570. videos
  1571. There are no MIDI files to remove.
  1572. buttonUp
  1573. warning
  1574. buttonUp
  1575. removeselect
  1576. buttonUp
  1577. warning2
  1578. title
  1579. title
  1580. title
  1581. title
  1582. MIDI file: (
  1583. ) has been removed.
  1584. buttonUp
  1585. warning
  1586. title
  1587. videos
  1588. title
  1589. playlisttotal
  1590. videos
  1591. save_data
  1592. pathnumber
  1593. warningtext
  1594. tempval
  1595. stopnow
  1596. 4videolist,warningtext,play_indef,num_loops,current_track
  1597. sysLockscreen 
  1598. titlecon 
  1599. ] <> 
  1600. g <> ""
  1601. tracknum
  1602. ) > 32
  1603. "path" 
  1604. filename 
  1605. "Please 
  1606. a Midi File 
  1607. "Pause" 
  1608. "tracknumber" 
  1609. playlistcover 
  1610. xPlaylist" 
  1611. "pausecover" 
  1612. "rightscan" 
  1613. "leftscan" 
  1614. "playcover" 
  1615. "playsymbol" 
  1616. "pausesymbol" 
  1617. "stopsymbol" 
  1618. "Playing" 
  1619. "statusfield" 
  1620. tbkMci("close 
  1621. wait","")
  1622. " && 
  1623. && "alias MIDIfile","")
  1624. tbkmci("
  1625. ] MIDIFile tempo","")
  1626. 'ime 
  1627. smpte 24","")
  1628. Dlength","")
  1629. "tracknumbermin" 
  1630. "tracknumbersec" 
  1631. buttonUp
  1632. buttonUp
  1633. title
  1634. title
  1635. Please select a Midi File to play.
  1636. buttonUp
  1637. warning
  1638. Pause
  1639. tracknumber
  1640. Midi Playlist
  1641. pausecover
  1642. rightscan
  1643. leftscan
  1644. playcover
  1645. playsymbol
  1646. pausesymbol
  1647. stopsymbol
  1648. Playing
  1649. statusfield
  1650. close all wait
  1651. tbkMci
  1652. alias MIDIfile
  1653. tbkMci
  1654. status MIDIFile tempo
  1655. tbkmci
  1656. tempo
  1657. set MIDIFile time format smpte 24
  1658. tbkmci
  1659. status MIDIFile length
  1660. tbkmci
  1661. length
  1662. length
  1663. tracknumbermin
  1664. length
  1665. tracknumbersec
  1666. play MIDIfile 
  1667. tbkMci
  1668. playlistcover
  1669. filename
  1670. tracknum
  1671. titlecon
  1672. videolist
  1673. warningtext
  1674. play_indef
  1675. num_loops
  1676. current_track
  1677. midiplay.ico
  1678. wwwwwwwwwwwwwww
  1679.