home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a004 / 4.ddi / UTILS / VIDPOP.PRG < prev   
Encoding:
Text File  |  1988-01-17  |  1.1 KB  |  48 lines
  1. * Program.......: VIDPOP.PRG
  2. * Author........: G. Rothbart, The Research Group with modifications by Ted
  3. *          McClure, WordTech Systems.
  4. * Function......: Fast Linkage to VIDPOP for the WordTech Compiler, QuickSilver
  5. *        : STRING = SAYWHAT screen name or VIDPOP command
  6. * Reference.....: SAYWHAT 3.0 Manual, WordTech QuickSilver Manual pp 103-104 on
  7. *          the DOSINT command, DOS Tech Ref Manual on Interrupt 10H.
  8. *
  9. * NOTE..........: This is a program that ONLY works with the WordTech
  10. *          compiler, and will NOT run in dBASE by itself!  The idea is
  11. *          to replace your VIDPOP calls of the form
  12. *
  13. *          ?? chr(255)+chr(255)+<screen name or VIDPOP command>/
  14. *
  15. *          with
  16. *
  17. *          STRING = '<screen name or VIDPOP command></>'
  18. *          DO VIDPOP
  19. *
  20. *          For example:
  21. *
  22. *          STRING = 'TINYSCR/'
  23. *          DO VIDPOP
  24. *
  25. *
  26. AH = 256*14
  27. AL = 255
  28. *
  29. * -- send 2 FF's to Int 10H:
  30. *
  31. AXREG = AH + AL
  32. DOSINT 16,AXREG
  33. AXREG = AH + AL
  34. DOSINT 16,AXREG
  35. *
  36. * -- send SAYWHAT screen name or VIDPOP command to Int 10H:
  37. *
  38. I = 1
  39. DO WHILE I <= LEN(STRING)
  40.    AL = ASC(SUBSTR(STRING,I,1))
  41.    AXREG = AH + AL
  42.    DOSINT 16,AXREG
  43.    I = I+1
  44. ENDDO
  45. *
  46. * -- Screen is UP!
  47. *
  48.