home *** CD-ROM | disk | FTP | other *** search
/ High Voltage Shareware / high1.zip / high1 / DIR3 / EXC27.ZIP / TESTEXC.SCR < prev    next >
Text File  |  1993-08-15  |  4KB  |  162 lines
  1. ; This script is used to test EXC.EXE functionality.  It is run against
  2. ; the Mirosoft EDIT editor that comes with DOS 5 and up.  It uses almost 
  3. ; every command available in EXC.  To test the abort and pause/resume keys, 
  4. ; type LEFT SHIFT+RIGHT SHIFT (abort) or SCROLL LOCK (pause/resume toggle) 
  5. ; whenever you wish.
  6.  
  7. ; If you don't have DOS 5 or greater, feel free to modify it to work with 
  8. ; your favorite editor or word processor.  This could be a very good
  9. ; excercise in learning how scripts are coded and how they work.  
  10.  
  11. ; Please do not use this as a model of how a script should be written.  
  12. ; In order to test every function, I use some pretty hokey coding that 
  13. ; would not be best used in that manner in real world apllications.  
  14. ; Also I slow down operation considerably with delays so that I can 
  15. ; study the results of various tests as the script proceeds.
  16.  
  17. ; This can be used, however for examples of how each command should be 
  18. ; coded and it will demonstrate the results of that code.
  19.  
  20. ; The initial delay should be increased for very slow CPUs.  Some commands
  21. ; may not function properly at speeds below 8 mhz.
  22. ;
  23.   SCRMAX 80 50
  24.   DELAY 5
  25.   WAITFOR "Guide"
  26.   CASE ON
  27.   WINMAX
  28.   WAITFOR "dialog box"
  29.   CASE OFF
  30.   KEY <ESC>
  31.  
  32. :LOOP
  33.   SEARCH "00001:001"
  34.   IFN LOOP
  35.  
  36.   SHOWAT 17 47
  37.   SHOW 12 "Found \q00001:001\q                     "
  38.   CASE ON
  39.   DELAY 2
  40.  
  41.   BEEP
  42.   SHOW 14 "Testing WAITSCR in window - Press space bar."
  43.   WINROWS 15 50
  44.   WINCOLS 60 79
  45.   WAITSCR
  46.   WINMAX
  47.   SHOW 12 "Found screen change in window.              "
  48.   DELAY 2
  49.  
  50. :LOAD
  51.   SHOW 12 "Loading TESTEXC.SCR                       "
  52.   KEY <BKSP>
  53.   KEY <ALT+F>
  54.   WAITFOR "Open"
  55.   TYPE "o"
  56.   WAITFOR "File Name:"
  57.   TYPE "C:\EXC\TESTEXC.SCR"
  58.   KEY <ENTER>
  59.   WAITFOR "Save it now?"
  60.   TYPE "n"
  61.   WAITFOR "WINROWS"
  62.  
  63.   SHOW 12 "Highlighting rows 15 50                     "
  64.   WINROWS 15 50
  65.   SHOWIN 79
  66.   DELAY 2
  67.   HIDEWIN
  68.   SHOW 12 "Highlighting rows 15 50, cols 60 77        "
  69.   WINCOLS 60 77
  70.   SHOWIN 79
  71.   DELAY 2
  72.   HIDEWIN
  73.   SHOW 12 "Now Testing WINMAX                        "
  74.   DELAY 1
  75.   WINMAX
  76.   SHOWIN 79
  77.   DELAY 2
  78.   HIDEWIN
  79.  
  80.   SHOW 12 "Testing a LOOP using ON: 3 beeps          "
  81. :LOOP1
  82.  ON 3 ENDLOOP1
  83.  BEEP
  84.  TICKS 7
  85.  GOTO LOOP1
  86. :ENDLOOP1
  87.  
  88.   SHOW 12 "Typing \qScroll Lock\q at col 43, row 6   "
  89.   CURSOR 43 6
  90.   KEY <DEL> 11
  91.   TYPE "Scroll Lock"
  92.   DELAY 1
  93.   SHOW 12 "Moving cursor back to top row.            "
  94.   CURSOR 0 3
  95.   DELAY 1
  96.   SHOW 12 "Moving cursor back home.                  "
  97.   CURSOR 2 0
  98.   DELAY 1
  99.  
  100.   SHOW 12 "Locating Scroll Lock and changing it back."
  101.   LOCATE "Scroll Lock"
  102.   TYPE "SCROLL LOCK"
  103.   KEY <DEL> 11
  104. ;  CURSOR 2 3
  105.  
  106.   SHOW 12 "Testing /CASE/READ/LOOK IN A window.       "
  107.   WINROWS 30 46
  108.   WINCOLS 16 36
  109.   SHOWIN 79
  110.   DELAY 2
  111.   HIDEWIN
  112.   CASE OFF
  113.   READ
  114.   LOOK "waitscr"
  115.   CASE ON
  116.   IFY TLOC
  117.   GOTO RLERR
  118.  
  119. :TLOC
  120.   SHOW 12 "Test LOCATE in a window beyond line 25.   "
  121.   LOCATE "WAITSCR"
  122.   TYPE "WaitScr"
  123.   KEY <DEL> 7
  124. ;  CURSOR 2 3
  125.   GOTO TSTTO
  126.  
  127. :RLERR
  128.   SHOW 12 "Error in CASE/READ/LOOK.                  "
  129.   BEEP
  130.   BEEP
  131.   BEEP
  132.   DELAY 3
  133.  
  134. :TSTTO
  135.   WINMAX
  136.   SHOW 12 "Testing a 4 second timeout.               "
  137.   SETWAIT 4
  138.   BEEP
  139.   TIMEOUT TSTTF
  140.   WAITFOR "ZzZz"
  141.  
  142. :TSTTF
  143.   BEEP
  144.   SHOW 12 "Going to end of the file.                 "
  145.   KEY <CTL+END>
  146.   DELAY 1
  147.   SHOW 12 "Inserting TESTEXC.TXT                     "
  148.   TYPFILE TESTEXC.TXT <ENTER>
  149.   DELAY 1
  150.   BEEP
  151.   SHOW 14 "Paused - Press Scroll Lock                "
  152.   PAUSE
  153.   
  154. :EXIT  
  155.   SHOW 12 "Done, exiting Microsoft Editor            "
  156.   DELAY 1
  157.   KEY <ALT+F>
  158.   WAITFOR "Exit"
  159.   TYPE "x"
  160.   WAITFOR "Save it now?"
  161.   TYPE "n"
  162.