home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / LOVE4TH.ZIP / DEMO-VR.DEM < prev    next >
Encoding:
Text File  |  1991-10-01  |  834 b   |  34 lines
  1. |O|Dalso ourdemo  : junk ;    last demo-hs !|E
  2. |Ahelp edit
  3. |F open-new" 3demo.scr"
  4. |O|" First the help v-vocab was called in, then the utilties were called to"
  5. |" make a new screen file"
  6. |" Next.. the editor will be called in.."
  7. |F|K1 EDIT
  8. : music ; ( nothing to do yet! )
  9. make_dynamic music     ( prepare for new meanings... )
  10. : high-pitch ( -- )  4000 50 tone ;
  11. : encounters ( -- )
  12.   784 70 tone
  13.   880 70 tone
  14.   698 70 tone
  15.   349 70 tone
  16.   523 200 tone ;
  17.  get help by:  ctl-x    kill line:  ctl-K
  18.   save screen: Esc-F   Here goes ..... 
  19. F|O|" Now the screen will be loaded - which will call in the"
  20. |" Utilities"
  21. |K|F1 LOAD
  22. ( test the new word)
  23. music
  24. ( silent )
  25. revector music high-pitch
  26. music
  27. ( now it's different. )
  28. revector music  encounters
  29. music
  30. |F
  31. "close
  32. dos del 3demo.scr
  33. |Bourdemo  to-menu
  34.