home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast2.iso / teaching / extol30.zip / TESTER.EXT < prev    next >
Text File  |  1987-10-31  |  1KB  |  55 lines

  1. % This program should test all major functions of EXTOL v. 3.0
  2. %
  3. .define drilltest
  4.      You should now be in the drill
  5.      The variable entered was <drillvar>.
  6.      Enter "x" to exit drill or anything else to continue.
  7.      .accept
  8.      .reset(0)
  9.      .match(0,1).x.X.
  10.      .if match(0,1) then do
  11.           .exit
  12.      .else
  13.           You are continuing !
  14.      .enddo
  15.      Press return to leave drill.
  16.      .accept
  17. .end
  18. % End of drill code
  19. Monitor will be set to color and Mode will be initially set to MEDG
  20. Press return to continue
  21. .accept
  22. .monitor=COLOR
  23. .mode=MEDG
  24. Press return to load and display EXTOL.PIC
  25. .accept
  26. .screenfile=EXTOL.PIC
  27. .mode=TEXT
  28. .<drillvar>=DRILLTEST
  29. The drill is now being executed !
  30. .perform drilltest
  31. The drill should now be over !
  32. Press return to test the position command.
  33. .accept
  34. .clear
  35. .position(10,15)
  36. This should be at position 10, 15.
  37. .position(24,1)
  38. This should be at position 24, 1.
  39. Press return to continue
  40. .accept
  41. .clear
  42. .caseon
  43. Enter either "A" or "B" to test .goto command.
  44. .accept
  45. .reset(0)
  46. .match(0,1).A.
  47. .goto(1).Bentered.Aentered.
  48. :Bentered
  49. You must have entered something other than A!
  50. .goto.continue
  51. :Aentered
  52. You must have entered A!
  53. :continue
  54. .stop
  55.