home *** CD-ROM | disk | FTP | other *** search
/ Wacky Windows Stuff... / WACKY.iso / toolbook / b-day.tbk (.txt) < prev    next >
Asymetrix ToolBook File  |  1990-10-10  |  93KB  |  627 lines
  1. Birthday Greeting
  2. Birthday Greeting
  3. "About Birthday Card..." 
  4. c"File" 
  5. AboutBirthdayCard
  6. enterBook
  7. AboutBirthdayCard
  8. enterBook
  9. sizetopage
  10. About Birthday Card...
  11. AboutBirthdayCard
  12. About
  13. System
  14. Modern
  15. `D|D|
  16. Modern
  17. `D|D|
  18. Modern
  19. `D|D|
  20. Modern
  21. `D|D|
  22. System
  23. `D|D|
  24. c"Edit" 
  25. c"Text" 
  26. c"Page" 
  27. c"Help" 
  28. "Open" 
  29. "Import..." 
  30. "Export..." 
  31. "Print 
  32. ..." 
  33. report..." 
  34. "Change printer..." 
  35. "About ToolBook..." 
  36. Birthday Card..." 
  37. c"File" 
  38. AboutBirthdayCard
  39. B"OK"
  40. enterBook
  41. AboutBirthdayCard
  42. enterBook
  43. sizetopage
  44. Import...
  45. Export...
  46. Print pages...
  47. Print report...
  48. Change printer...
  49. About ToolBook...
  50. About Birthday Card...
  51. AboutBirthdayCard
  52. About
  53. :PHYSSIZE
  54. :PHYSSIZE
  55. :PHYSSIZE
  56. :PHYSSIZE
  57. D"l 8bjaR
  58. Flame2
  59. :PHYSSIZE
  60. Flame5
  61. :PHYSSIZE
  62. Flame4
  63. :PHYSSIZE
  64. Flame3
  65. :PHYSSIZE
  66. Flame1
  67. :PHYSSIZE
  68. Set Layer 
  69. PaintObject Flame1 
  70. buttonStillDown
  71. buttonStillDown
  72. Flame5
  73. Flame4
  74. Flame3
  75. Flame2
  76. Flame1
  77. Animate Flame
  78. Flame1
  79. :PHYSSIZE
  80. Candle
  81. Move the 
  82. 660, 1725
  83. 945, 1695
  84. 1290, 1740
  85. 1530, 1830
  86. 1740, 1920
  87. 1890, 2070
  88. 1995, 2265
  89. 2040, 2460
  90. 1980, 2655
  91. 1845, 2730
  92. 1680, 2670
  93. 1620, 2535
  94. 1740, 2415
  95. 1920, 2325
  96. 2175, 2295
  97. 2385, 2280
  98. 2580, 2265
  99. 2700, 2250
  100. 2880, 2250
  101. 3090, 2265
  102. 3285, 2340
  103. 3525, 2415
  104. 3705, 2490
  105. 3855, 2595
  106. 3810, 2745
  107. 3705, 2850
  108. 3720, 2670
  109. 3945, 2565
  110. 4200, 2610
  111. 4485, 2730
  112. 4590, 2865
  113. 4800, 2880
  114. 4935, 2835
  115. 5100, 2790
  116. 5370, 2790
  117. 5565, 2835
  118. 5715, 2970
  119. 5775, 3045
  120. buttonUp
  121. buttonUp
  122. Cake 
  123. Move 
  124. -3210, 2280
  125. -2940, 2415
  126. -2535, 2565
  127. -1965, 2730
  128. -1350, 2925
  129. -795, 3105
  130. -225, 3270
  131. 255, 3390
  132. 885, 3570
  133. 1530, 3750
  134. 2175, 3960
  135. 2505, 4065
  136. 2535, 4230
  137. buttonUp
  138. buttonUp
  139. Bring in Cake
  140. Flame1
  141. :PHYSSIZE
  142. :PHYSSIZE
  143. INITSOUNDDRIVER
  144. Animate
  145. SetUpPage
  146. Cake 
  147. Move 
  148. -3210, 2280
  149. Candle 
  150. -15, 2130
  151. Match 
  152. 'Flame1 
  153. 'Flame2 
  154. 'Flame3 
  155. 'Flame4 
  156. 'Flame5 
  157. -1050, 3450
  158. Rectangle "Top cover" 
  159. 1500,90
  160. Bottom 
  161. 1350,1900
  162. Comments1
  163. Comments2
  164. B"Play song"
  165. -- bring 
  166. -2940, 2415
  167. -2535, 2565
  168. -1965, 2730
  169. -1350, 2925
  170. -795, 3105
  171. -225, 3270
  172. 255, 3390
  173. 885, 3570
  174. 1530, 3750
  175. 2175, 3960
  176. 2505, 4065
  177. 2535, 4230
  178. candle on 
  179. 120, 2190
  180. 345, 2310
  181. 555, 2385
  182. 870, 2490
  183. 1125, 2610
  184. 1380, 2730
  185. 1665, 2850
  186. 1995, 2985
  187. 2265, 3090
  188. 2535, 3180
  189. 2760, 3255
  190. 2970, 3330
  191. 3195, 3390
  192. 3390, 3435
  193. 3600, 3465
  194. 3840, 3480
  195. 4095, 3480
  196. 4260, 3465
  197. 4395, 3375
  198. 4545, 3270
  199. 4620, 3150
  200. 4545, 2985
  201. 4440, 2910
  202. 4320, 2895
  203. 4230, 2955
  204. 4155, 3060
  205. 4140, 3210
  206. 4110, 3405
  207. 4110, 3540
  208. 4110, 3675
  209. 4110, 3795
  210. 4110, 3870
  211. 4155, 3960
  212. -- light 
  213. -885, 3435
  214. -660, 3420
  215. -495, 3435
  216. -360, 3420
  217. -150, 3405
  218. 75, 3405
  219. 300, 3390
  220. 540, 3375
  221. 750, 3390
  222. 945, 3390
  223. 1125, 3390
  224. 1395, 3420
  225. 1650, 3435
  226. 1935, 3465
  227. 2175, 3495
  228. 2490, 3525
  229. 2775, 3540
  230. 2955, 3555
  231. 3090, 3555
  232. 3150, 3615
  233. 3000, 3570
  234. 2850, 3525
  235. 2625, 3495
  236. 2445, 3480
  237. 2220, 3465
  238. 2025, 3465
  239. 1785, 3465
  240. 1575, 3450
  241. 1350, 3435
  242. 1110, 3420
  243. 780, 3405
  244. 525, 3375
  245. 225, 3330
  246. -90, 3300
  247. -345, 3270
  248. -585, 3270
  249. -795, 3270
  250. -1005, 3255
  251. -1035, 3255
  252. greeting
  253. XCoord 
  254. 5800 
  255. 7600 
  256. I,1900
  257. comments
  258. -- give option 
  259. play music; don't force 
  260. , because 
  261. can sound awful
  262. -- animate flame
  263. FlameDelay -- adjust 
  264. speed 
  265. processor
  266. BestLayer -- below the 
  267. but above 
  268. match
  269. PaintObject 
  270. -- The following 
  271.  routines are 
  272. HRoger Newhall,
  273. -- who got them 
  274. ToolBook Scripts Notebook 
  275. was nice enough
  276. take 
  277. people how 
  278. .drv"
  279. CloseSound( )
  280. CountVoiceNotes( 
  281. GetThresholdStatus( )
  282. OpenSound( )
  283. SetSoundNoise( 
  284. SetVoiceAccent( 
  285. SetVoiceEnvelope( 
  286. SetVoiceNote( 
  287. SetVoiceQueueSize( 
  288. SetVoiceSound( 
  289. SetVoiceThreshold( 
  290. StartSound( )
  291. StopSound( )
  292. SyncAllVoices( )
  293. WaitSoundState( 
  294. INITIALIZEVALUES
  295. 4MusicVoices, MusicAttack, MusicTempo, MusicLevel, MusicPitch
  296. Zerr, notendx, notelen, dotcnt
  297. e = 65535 
  298.  Device Is Busy" 
  299. f"OK"
  300. %has" && 
  301.  && "
  302. f"OK"
  303.  <> 0 
  304.  Failed:" && 
  305. f"OK"
  306. 1, 2000 )
  307.  <> 0 
  308. :err 
  309. f"OK"
  310. PlayMelody fTune 
  311. 4sMusPitch, sMusDuration, sMusDots, sMusOctave, sMusDefaults
  312. 4sMusVoices, sMusAttack, sMusTempo, sMusVolume, sMusPitchBase
  313. 4sNote
  314. ZnTuneNotes
  315. necessary
  316. s <> 1 
  317. -- setup state 
  318. world
  319. device
  320.  = 65535 
  321.  = -1 
  322. fokay 
  323. each 
  324. player
  325. PlayNote 
  326. -- close 
  327. , value
  328. Znotechars 
  329. Zpitch, inflect, octave, duration, dots 
  330. Zbpitch, binflect, boctave, bduration, bdots 
  331. parser 
  332. flags 
  333. ci <= 
  334.  >= 32 
  335.  <= 255 
  336.  >= 0 
  337.  <= 255
  338.  >= 0 
  339.  <= 2
  340. a potential 
  341. a valid 
  342. -- a rest 
  343.  try 
  344. ttok type 
  345.  = "!" 
  346.  = "#"
  347.  = 0 
  348.  = 1 
  349.  = 2 
  350.  = 3 
  351.  = 4 
  352.  = 5 
  353.  = 6 
  354.  = 7 
  355. -- whole 
  356. -- half 
  357. -- quarter 
  358. -- eigthth 
  359. -- sixteenth 
  360. -- thirtysecond 
  361. bDuration 
  362. bDots = 
  363. >= 0 
  364. <= 4 
  365. correct 
  366.  - Windows 
  367. H3 semitones 
  368.  <> 0
  369.  * 12) - 3
  370. range 
  371. sharp 
  372.  <> 0 
  373. -- PLAY THE NOTE NOW
  374. 1,5632,1000 ) 
  375.     <> 0 
  376. <> 0 
  377. = 65529 
  378. "Invalid Dot 
  379. :" && 
  380. = 65530 
  381. Length: " && 
  382. = 65531 
  383. : " && 
  384. -- error 
  385. Xthese 
  386. you like
  387. : " * 
  388. BirthdaySong
  389. "tempo,255,c4q,c,d,c,f,e4w,r4q,c,c,d,c,g,f4w," &\
  390. c5,a4,f,e,d4w,
  391. &5,c,a4,f,g,
  392. leavePage
  393. INITSOUNDDRIVER
  394. enterPage
  395. INITIALIZEVALUES
  396. SetUpPage
  397. PlayMelody
  398. PlayNote
  399. Animate
  400. BirthdaySong
  401. enterPage
  402. sizetopage
  403. INITSOUNDDRIVER
  404. .Animate
  405. leavePage
  406. SetUpPage
  407. SetUpPage
  408. Top cover
  409. Bottom cover
  410. Play song
  411. Comments2
  412. Comments1
  413. Flame5
  414. Flame4
  415. Flame3
  416. Flame2
  417. Flame1
  418. Match
  419. Candle
  420. Animate
  421. Candle
  422. Candle
  423. Candle
  424. Candle
  425. Candle
  426. Candle
  427. Candle
  428. Candle
  429. Candle
  430. Candle
  431. Candle
  432. Candle
  433. Candle
  434. Candle
  435. Candle
  436. Candle
  437. Candle
  438. Candle
  439. Candle
  440. Candle
  441. Candle
  442. Candle
  443. Candle
  444. Candle
  445. Candle
  446. Candle
  447. Candle
  448. Candle
  449. Candle
  450. Candle
  451. Candle
  452. Candle
  453. Candle
  454. Top cover
  455. Bottom cover
  456. Play song
  457. Comments2
  458. Comments1
  459. XCoord:by
  460. XCoord:to
  461. XCoord
  462. Flame5
  463. Flame4
  464. Flame3
  465. Flame2
  466. Flame1
  467. Match
  468. candle
  469. Flame5
  470. Flame4
  471. Flame3
  472. Flame2
  473. Flame1
  474. BestLayer
  475. FlameDelay
  476. INITSOUNDDRIVER
  477. sound.drv
  478. CloseSound
  479. CountVoiceNotes
  480. GetThresholdStatus
  481. OpenSound
  482. SetSoundNoise
  483. SetVoiceAccent
  484. SetVoiceEnvelope
  485. SetVoiceNote
  486. SetVoiceQueueSize
  487. SetVoiceSound
  488. SetVoiceThreshold
  489. StartSound
  490. StopSound
  491. SyncAllVoices
  492. WaitSoundState
  493. INITIALIZEVALUES
  494. INITIALIZEVALUES
  495. OpenSound
  496. The Sound Device Is Busy
  497. SetVoiceAccent
  498. SetVoiceAccent Failed:
  499. SetVoiceQueueSize
  500. SetVoiceQueueSize Failed:
  501. StopSound
  502. CloseSound
  503. notendx
  504. notelen
  505. dotcnt
  506. MusicVoices
  507. MusicAttack
  508. MusicTempo
  509. MusicLevel
  510. MusicPitch
  511. PlayMelody
  512. sound.drv
  513. CloseSound
  514. CountVoiceNotes
  515. GetThresholdStatus
  516. OpenSound
  517. SetSoundNoise
  518. SetVoiceAccent
  519. SetVoiceEnvelope
  520. SetVoiceNote
  521. SetVoiceQueueSize
  522. SetVoiceSound
  523. SetVoiceThreshold
  524. StartSound
  525. StopSound
  526. SyncAllVoices
  527. WaitSoundState
  528. OpenSound
  529. The Sound Device Is Busy
  530. oPxPlayNote
  531. CloseSound
  532. nTuneNotes
  533. sNote
  534. sMusVoices
  535. sMusAttack
  536. sMusTempo
  537. sMusVolume
  538. sMusPitchBase
  539. sMusPitch
  540. sMusDuration
  541. sMusDots
  542. sMusOctave
  543. sMusDefaults
  544. fTune
  545. PlayNote
  546. Tempo
  547. Volume
  548. Attack
  549. bDuration
  550. bDuration
  551. bDots
  552. SetVoiceNote
  553. Invalid Dot Count:
  554. Invalid Note Length: 
  555. Invalid Note: 
  556. CountVoiceNotes
  557. Notes: 
  558. StartSound
  559. WaitSoundState
  560. StopSound
  561. notendx
  562. notelen
  563. dotcnt
  564. sNote
  565. sMusVoices
  566. sMusAttack
  567. sMusTempo
  568. sMusVolume
  569. sMusPitchBase
  570. sMusPitch
  571. sMusDuration
  572. sMusDots
  573. sMusOctave
  574. sMusDefaults
  575. bpitch
  576. binflect
  577. boctave
  578. bduration
  579. bdots
  580. pitch
  581. inflect
  582. octave
  583. duration
  584. notechars
  585. value
  586. BirthdaySong
  587. PlayMelody
  588. tempo,255,c4q,c,d,c,f,e4w,r4q,c,c,d,c,g,f4w,
  589. r4q,c,c,c5,a4,f,e,d4w,r4q,c5,c,a4,f,g,f4w,r
  590. Bottom cover
  591. Match
  592. Flame1
  593. 7:PHYSSIZE
  594. Flame5
  595. $<:PHYSSIZE
  596. Flame4
  597. =:PHYSSIZE
  598. Flame3
  599. t?:PHYSSIZE
  600. Flame2
  601. A:PHYSSIZE
  602. Flame1
  603. B:PHYSSIZE
  604. Top cover
  605. Candle
  606. Comments1
  607. Put any comments, best wishes, whatever, either down here...
  608. Comments2
  609. ...or over here.
  610. Or both!
  611. About
  612. Birthday Card
  613. by Jack Herlocker
  614. Based on a similar stack I wrote in HyperCard for my wife's birthday. Feel free to copy it, pass it around, personalize it, whatever.
  615. Comments to me at CIS 72157,404
  616. B"OK"
  617. "About"
  618. buttonUp
  619. buttonUp
  620. About
  621. Play song
  622. BirthdaySong
  623. buttonDown
  624. buttonDown
  625. #BirthdaySong
  626. Play "Happy Birthday"
  627.