home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d6xx / d635 / ldp.lha / LDP / macros / test.ldp < prev   
Encoding:
Text File  |  1992-04-07  |  1.6 KB  |  44 lines
  1. /* test for ldp driver        you must have ldp running first!  */
  2. /* just hit RETURN to go to next command in the test sequence!  */
  3. address 'LDP'
  4. options prompt "Next?"
  5. say '        ** LDP ARexx driver test **'
  6. call getin
  7. say 'forward play...'; 'forward normal'; call getin
  8. say 'forward step...'; 'forward step'; call getin
  9. say 'forward step...'; 'forward step'; call getin
  10. say 'forward slow...'; 'forward slow'; call getin
  11. say 'forward fast...'; 'forward fast'; call getin
  12. say 'forward scan...  (please scan past frame 12000)'; 'forward scan'; call getin
  13. say 'reverse play...'; 'reverse normal'; call getin
  14. say 'reverse step...'; 'reverse step'; call getin
  15. say 'reverse step...'; 'reverse step'; call getin
  16. say 'reverse fast...'; 'reverse fast'; call getin
  17. say 'reverse slow...'; 'reverse slow'; call getin
  18. say 'reverse scan...'; 'reverse scan'; call getin
  19. say 'still...' ; 'still'; call getin
  20. say 'address command'; 'address' ; say'frame= 'rc
  21. call getin
  22. say 'vplayer command'; 'vplayer' ; say 'player type= 'rc
  23. call getin
  24. say 'play sequence 5000 5100'; 'play 5000 5100'; call getin
  25. say 'play sequence 24000 24250'; 'play 24000 24250'; call getin
  26. say 'play sequence 6000 5900'; 'play 6000 5900'; call getin
  27. say 'init player...'; 'init'; call getin
  28. say 'search to 34090'; 'search 34090'; call getin
  29. say 'eject...'; 'eject'; call getin
  30. say 'clear all...'; 'clear'; call getin
  31. say 'index off'; 'index off'; call getin
  32. say 'index on' ; 'index on' ; call getin
  33. say 'ready?'; 'ready'; say'return= 'rc; call getin
  34. say 'QUIT!';  'quit';
  35. EXIT
  36.  
  37. getin:
  38.   pull input
  39.   if left(input,1) == 'Q' then EXIT
  40.   else return
  41.  
  42.  
  43.  
  44.