home *** CD-ROM | disk | FTP | other *** search
/ The Pier Shareware 6 / The_Pier_Shareware_Number_6_(The_Pier_Exchange)_(1995).iso / 010 / exc36.zip / testexc.scr < prev    next >
Text File  |  1994-05-26  |  5KB  |  237 lines
  1. ; This script is used to test EXC.EXE functionality.  It is run against
  2. ; the Microsoft 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.  Requires VGA.
  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.  Uncommenting the SLOW
  22. ; command may help.
  23.  
  24. ; SLOW
  25.  
  26.   SCRMAX 80 50
  27.   DELAY 5
  28.   WAITFOR "Guide"
  29.   CASE ON
  30.   WINMAX
  31.   WAITFOR "dialog box"
  32.   CASE OFF
  33.   KEY <ESC>
  34.   SHOWAT 17 47
  35.  
  36. :LOOP
  37.   SEARCH "00001:001"
  38.   IFN LOOP
  39.  
  40.   SHOW 12 "Found \q00001:001\q                     "
  41.   CASE ON
  42.   DELAY 2
  43.  
  44.   BEEP
  45.   SHOW 14 "Testing WAITSCR in window - Press space bar."
  46.   WINROWS 15 50
  47.   WINCOLS 60 79
  48.   WAITSCR
  49.   WINMAX
  50.   SHOW 12 "Found screen change in window.              "
  51.   DELAY 2
  52.  
  53. :LOAD
  54.   SHOW 12 "Loading TESTEXC.SCR                       "
  55.   KEY <BKSP>
  56.   KEY <ALT+F>
  57.   WAITFOR "Open"
  58.   TYPE "o"
  59.   WAITFOR "File Name:"
  60.   TYPE "TESTEXC.SCR"
  61.   KEY <ENTER>
  62.   WAITFOR "Save it now?"
  63.   TYPE "n"
  64.   WAITFOR "WINROWS"
  65.  
  66.   SHOW 12 "Highlighting rows 15 50                     "
  67.   WINROWS 15 50
  68.   SHOWIN 79
  69.   DELAY 2
  70.   HIDEWIN
  71.   SHOW 12 "Highlighting rows 15 50, cols 60 77        "
  72.   WINCOLS 60 77
  73.   SHOWIN 79
  74.   DELAY 2
  75.   HIDEWIN
  76.   SHOW 12 "Now Testing WINMAX                        "
  77.   DELAY 1
  78.   WINMAX
  79.   SHOWIN 79
  80.   DELAY 2
  81.   HIDEWIN
  82.  
  83.   SHOW 12 "Testing a LOOP using ON: 3 beeps          "
  84. :LOOP1
  85.  ON 3 ENDLOOP1
  86.  BEEP
  87.  TICKS 7
  88.  GOTO LOOP1
  89. :ENDLOOP1
  90.  
  91.   SHOW 12 "Typing \qScroll Lock\q at col 43, row 6   "
  92.   CURSOR 43 6
  93.   KEY <DEL> 11
  94.   TYPE "Scroll Lock"
  95.   DELAY 1
  96.   SHOW 12 "Moving cursor back to top row.            "
  97.   CURSOR 0 3
  98.   DELAY 1
  99.   SHOW 12 "Moving cursor back home.                  "
  100.   CURSOR 2 0
  101.   DELAY 1
  102.  
  103.   SHOW 12 "Locating Scroll Lock and changing it back."
  104.   LOCATE "Scroll Lock"
  105.   TYPE "SCROLL LOCK"
  106.   KEY <DEL> 11
  107.   CURSOR 2 3
  108.  
  109.   SHOW 12 "Locating SCROLL LOCK with VLOCATE.        "
  110.   VLOCATE "SCROLL LOCK"
  111.   DELAY 1
  112.  
  113.   SHOW 12 "Locating SCROLL LOCK with HLOCATE.        "
  114.   HLOCATE "SCROLL LOCK"
  115.   DELAY 1
  116.   CURSX 2
  117.   CURSY 3
  118.   DELAY 1
  119.  
  120.   KEY <DOWN> 50
  121.   KEY <PGDN>
  122.   KEY <PGUP>
  123.   SHOW 12 "Testing /CASE/READ/LOOK IN A window.       "
  124.   WINROWS 30 49
  125.   WINCOLS 16 36
  126.   SHOWIN 79
  127.   DELAY 2
  128.   HIDEWIN
  129.   CASE OFF
  130.   READ
  131.   LOOK "waitscr"
  132.   CASE ON
  133.   IFY TLOC
  134.   GOTO RLERR
  135.  
  136. :TLOC
  137.   SHOW 12 "Test LOCATE in a window beyond line 25.   "
  138.   LOCATE "WAITSCR"
  139.   TYPE "WaitScr"
  140.   KEY <DEL> 7
  141. ;  CURSOR 2 3
  142.   GOTO TSTTO
  143.  
  144. :RLERR
  145.   SHOW 12 "Error in CASE/READ/LOOK.                  "
  146.   BEEP
  147.   BEEP
  148.   BEEP
  149.   DELAY 3
  150.  
  151. :TSTTO
  152.   WINMAX
  153.   SHOW 12 "Testing a 4 second timeout.               "
  154.   SETWAIT 4
  155.   BEEP
  156.   TIMEOUT TSTTF
  157.   WAITFOR "ZzZz"
  158.  
  159. :TSTTF
  160.   BEEP
  161.   SHOW 12 "Going to end of the file.                 "
  162.   KEY <CTL+END>
  163.   DELAY 1
  164.   SHOW 12 "Inserting TESTEXC.TXT using SLOW          "
  165.   DELAY 1
  166.   SLOW
  167.   TYPFILE TESTEXC.TXT <ENTER>
  168.   SHOW 12 "Inserting TESTEXC.TXT using FAST          "
  169.   DELAY 1
  170.   FAST
  171.   TYPFILE TESTEXC.TXT <ENTER>
  172.   DELAY 1
  173.   BEEP
  174.  
  175.   SHOW 12 "Inserting records from TESTEXC.FIL with GET"
  176.   FILE TESTEXC.FIL
  177. :GLOOP
  178.   GETFILE ENDGLOOP GBLANK
  179.   TYPE "@16@"
  180.   KEY <ENTER>
  181. :GBLANK
  182.   GOTO GLOOP
  183. :ENDGLOOP
  184.  
  185.   SHOW 12 "REWIND and do it again with blank lines    "
  186.   REWIND
  187. :GLOOP2
  188.   GETFILE ENDGLOOP2 GBLANK2
  189.   TYPE "@16@"
  190. :GBLANK2
  191.   KEY <ENTER>
  192.   GOTO GLOOP2
  193. :ENDGLOOP2
  194.  
  195.   SHOW 12 "Testing use of variables, COMSPEC & 16    "
  196.   DELAY 2
  197.   SET 16 "%COMSPEC%"
  198.   TYPE "[@16@]"
  199.   KEY <ENTER>
  200.   SET 16 NULL
  201.   TYPE "[@16@]"
  202.   KEY <ENTER>
  203.  
  204.   SHOW 12 "TESTING 3 subroutine executions.          "
  205.   SET 2 1
  206.   SET 1 DO2
  207.   GOTO SUB1
  208.  
  209. :DO2
  210.   SET 2 2
  211.   SET 1 DO3
  212.   GOTO SUB1
  213.  
  214. :DO3
  215.   SET 2 3
  216.   SET 1 ENDSUBS
  217.   GOTO SUB1
  218.  
  219. :ENDSUBS
  220.   SHOW 14 "Paused - Press Scroll Lock                "
  221.   PAUSE
  222.  
  223. :EXIT  
  224.   SHOW 12 "Done, exiting Microsoft Editor            "
  225.   DELAY 1
  226.   KEY <ALT+F>
  227.   WAITFOR "Exit"
  228.   TYPE "x"
  229.   WAITFOR "Save it now?"
  230.   TYPE "n"
  231.   QUIT
  232.  
  233. :SUB1
  234.   TYPE "Subroutine execution number @2@."
  235.   KEY <ENTER>
  236.   GOTO @1@
  237.